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 20