gcc/testsuite/gfortran.dg/fmt_error_7.f

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3
   4 ! PR37446 Diagnostic of edit descriptors, esp. EN
   5       character(40) :: fmt_string
   6       write(*, '(1P,2E12.4)') 1.0
   7       write(*,'(EN)') 5.0 ! { dg-error "positive width required" }
   8       write(*,'("abcdefg",EN6,"hjjklmnop")') 5.0 ! { dg-error "Period required" }
   9       end