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