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