gcc/testsuite/gfortran.dg/boz_7.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95 -pedantic" }
   3 !
   4 ! PR fortran/34342
   5 !
   6 ! Some BOZ extensions where not diagnosed
   7 !
   8 integer :: k, m
   9 integer :: j = z'000abc' ! { dg-error "BOZ used outside a DATA statement" }
  10 data k/x'0003'/ ! { dg-error "nonstandard X instead of Z" }
  11 data m/'0003'z/ ! { dg-error "nonstandard postfix" }
  12 end