gcc/testsuite/gfortran.dg/boz_10.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3 !
   4 ! PR fortran/34342
   5 !
   6 ! Diagnose BOZ literal for non-integer variables in
   7 ! a DATA statement. And outside DATA statements.
   8 !
   9 real :: r
  10 integer :: i
  11 r = real(z'FFFF') ! { dg-error "outside a DATA statement" }
  12 i = int(z'4455')  ! { dg-error "outside a DATA statement" }
  13 r = z'FFFF' + 1.0 ! { dg-error "outside a DATA statement" }
  14 i = z'4455' + 1   ! { dg-error "outside a DATA statement" }
  15 end