blob: 9482aa2e79d7ab7a4b6207f04030a8896eb9b16f (
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") STOP 1
end
|
