! { dg-do run } | |
! { dg-options "-std=gnu" } | |
! PR98825 Test for fix of '$' edit descriptor. | |
character(30) :: line | |
10 format (i3,$) | |
open(10, status='scratch') | |
write (10,10) 1 | |
write (10,10) 2,3,4,5 | |
! Check the result. | |
line = 'abcdefg' | |
rewind(10) | |
read(10, '(a)') line | |
close(10) | |
if (line .ne. ' 1 2 3 4 5') call abort | |
end |