! { dg-do run } | |
! { dg-options "-std=legacy" } | |
! | |
! PR24268 Test case derived from example given by Iwan Kawrakow | |
! Embedded spaces in format strings should be ignored. | |
! Prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> | |
program pr24268 | |
real x | |
character*13 line | |
line = "12.34" | |
read(line,*) x | |
write(line,10) x | |
10 format(g1 | |
* 1.4) | |
if (line.ne." 12.34") STOP 1 | |
line = "" | |
write(line,20) x | |
20 format(t r 2 , g 1 1 . 4) | |
if (line.ne." 12.34") STOP 2 | |
end |