gcc/testsuite/gfortran.dg/boz_6.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=gnu" }
   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/
   8   data io, jo /o'234', '234'o/
   9   data iz, jz /z'abc', 'abc'z/
  10   data ix, jx /x'abc', 'abc'x/
  11   if (ib /= jb) call abort
  12   if (io /= jo) call abort
  13   if (iz /= jz) call abort
  14   if (ix /= jx) call abort
  15 end program test