aarch64: Add missing ACLE macro for NEON-SVE Bridge
[official-gcc.git] / gcc / testsuite / gfortran.dg / boz_dshift_1.f90
blobba10315ae5b76e8b8653e340d12f2e193353dd14
1 ! { dg-do compile }
2 program foo
3 integer k, n
4 k = dshiftl(z'1234',z'2345',1) ! { dg-error "cannot both be BOZ" }
5 n = dshiftr(z'1234',z'2345',1) ! { dg-error "cannot both be BOZ" }
6 if (k .eq. n) stop 1
7 k = dshiftl(z'1234',3.1415,1) ! { dg-error "must be INTEGER" }
8 n = dshiftr(2.7362,z'2345',1) ! { dg-error "must be INTEGER" }
9 if (k .eq. n) stop 2
10 end program foo