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 1810 FORMAT( I5,) 19 END 20