gcc/testsuite/gfortran.dg/dec_format_empty_item_3.f

   1 ! { dg-do compile }
   2 ! { dg-options "-fdec -fno-dec-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 ! { dg-error "FORMAT label 10 at" }
  14           REWIND(1)
  15           READ(1, 10) A ! { dg-error "FORMAT label 10 at" }
  16           IF (a.NE.100) STOP 1
  17           PRINT 10, A ! { dg-error "FORMAT label 10 at" }
  18  10       FORMAT( I5,) ! { dg-error "Missing item" }
  19         END