blob: 0f0740a5ec929aaec5ee875ee57f0956c9f6fb32 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
! { dg-do run }
! { dg-options "-std=gnu" }
! PR64506 fixed form source
character(25) :: astring
100 format('This format is OK.'
&)
200 format('This format works now.'!comment << FAILS
&)
300 format('This format is OK.' !comment
&)
400 format('This format is OK.' !comment
&)
500 format('This format is now OK.'''!comment
& )
600 format('This format is OK.''' !comment
& )
write(astring,100)
if (astring.ne."This format is OK.") STOP 1
write(astring,200)
if (astring.ne."This format works now.") STOP 2
write(astring,300)
if (astring.ne."This format is OK.") STOP 3
write(astring,400)
if (astring.ne."This format is OK.") STOP 4
write(astring,500)
if (astring.ne."This format is now OK.'") STOP 5
write(astring,600)
if (astring.ne."This format is OK.'") STOP 6
end
|
