aarch64: Add missing ACLE macro for NEON-SVE Bridge
[official-gcc.git] / gcc / testsuite / gfortran.dg / argument_checking_20.f90
blob12788cc868c586ef1c91a372b7555dbf694a0e13
1 ! { dg-do compile }
2 program main
3 real :: a(10), b(10,10)
4 ! This should be caugt
5 call foo(1.0) ! { dg-error "Rank mismatch" }
6 call foo(b) ! { dg-error "Rank mismatch" }
7 ! This is OK
8 call bar(a)
9 call bar(b)
11 end program main