blob: dd4417abade0a6c5c9f5519b062ea145b6342e14 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
C { dg-do compile }
C Tests the fix for the regression PR34872, in which the re-matching of
C the function declaration made a mess if the first executable statement
C had a label.
CHARACTER FUNCTION s()
10 CONTINUE
GOTO 10
s = ' '
END FUNCTION s
CHARACTER FUNCTION t()
10 format ("q")
write (t, 10)
END FUNCTION t
character t
if (t() .ne. "q") call abort ()
end
|
