gcc/testsuite/gfortran.dg/boz_6.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=gnu -fallow-invalid-boz" }
   3 ! PR 24917
   4 program test
   5   integer ib, io, iz, ix
   6   integer jb, jo, jz, jx
   7   data ib, jb /b'111', '111'b/   ! { dg-warning "nonstandard" }
   8   data io, jo /o'234', '234'o/   ! { dg-warning "nonstandard" }
   9   data iz, jz /z'abc', 'abc'z/   ! { dg-warning "nonstandard" }
  10   data ix, jx /x'abc', 'abc'x/   ! { dg-warning "nonstandard" }
  11   if (ib /= jb) STOP 1
  12   if (io /= jo) STOP 2
  13   if (iz /= jz) STOP 3
  14   if (ix /= jx) STOP 4
  15 end program test