gcc/testsuite/gfortran.fortran-torture/execute/empty_format.f90

   1 ! from NIST test FM406.FOR
   2          CHARACTER*10 A10VK
   3          A10VK = 'XXXXXXXXXX'
   4          WRITE(A10VK,39110)
   5 39110    FORMAT()
   6 !
   7 !  the empty format should fill the target of the internal
   8 !  write with blanks.
   9 !
  10          IF (A10VK.NE.'') THEN
  11 !          PRINT*,A10VK
  12            CALL ABORT
  13          ENDIF
  14          END