gcc/testsuite/gfortran.dg/dec_format_empty_item_2.f

   1 ! { dg-do run }
   2 ! { dg-options "-fdec-blank-format-item" }
   3 !
   4 ! Test blank/empty format items in format string
   5 !
   6 ! Test case contributed by Jim MacArthur <jim.macarthur@codethink.co.uk>
   7 ! Modified by Mark Eggleston <mark.eggleston@codethink.com>
   8 !
   9         PROGRAM blank_format_items
  10           INTEGER A/0/
  11
  12           OPEN(1, status="scratch")
  13           WRITE(1, 10) 100
  14           REWIND(1)
  15           READ(1, 10) A
  16           IF (a.NE.100) STOP 1
  17           PRINT 10, A
  18 10        FORMAT( I5,)
  19         END