mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
45 lines
1.2 KiB
Fortran
45 lines
1.2 KiB
Fortran
! { dg-do run }
|
|
! { dg-options "-std=gnu" }
|
|
! PR64506
|
|
character(25) :: astring
|
|
|
|
100 format('This format is OK.'&
|
|
)
|
|
200 format('This format now works.'&!comment
|
|
)
|
|
300 format('This format now works.'& !comment
|
|
)
|
|
400 format('This format is OK.' &!comment
|
|
)
|
|
500 format('This format is OK.' & !comment
|
|
)
|
|
600 format('This format now works.'''&!comment
|
|
)
|
|
700 format('This format now works.'''& !comment
|
|
)
|
|
! See PR65903 for the following cases.
|
|
800 format('This is actually ok.'& !comment
|
|
' end' )
|
|
900 format('This is actually ok.' & !comment
|
|
' end' )
|
|
write(astring,100)
|
|
if (astring.ne."This format is OK.") STOP 1
|
|
write(astring,200)
|
|
if (astring.ne."This format now works.") STOP 2
|
|
write(astring,300)
|
|
if (astring.ne."This format now works.") STOP 3
|
|
write(astring,400)
|
|
if (astring.ne."This format is OK.") STOP 4
|
|
write(astring,500)
|
|
if (astring.ne."This format is OK.") STOP 5
|
|
write(astring,600)
|
|
if (astring.ne."This format now works.'") STOP 6
|
|
write(astring,700)
|
|
if (astring.ne."This format now works.'") STOP 7
|
|
write(astring,800)
|
|
if (astring.ne."This is actually ok.' end") STOP 8
|
|
write(astring,900)
|
|
if (astring.ne."This is actually ok. end") STOP 9
|
|
|
|
end
|