gcc/testsuite/gfortran.dg/io_real_boz2.f90

   1 ! { dg-do run }
   2 ! { dg-shouldfail "Real BOZ not allowed" }
   3 ! { dg-options "-fall-intrinsics -std=f2003" }
   4 ! Test for invalid (F95/F2003) writing of real with octal edit descriptor
   5 ! PR fortran/29625
   6 program real_boz
   7   implicit none
   8   real(4)           :: r
   9   character(len=100) :: str
  10
  11   r = 325.56
  12   write(str,'(o0)') r
  13 end program real_boz
  14 ! { dg-output "At line 12 .*" }
  15 ! { dg-output "Expected INTEGER .* in formatted transfer, got REAL" }