gcc/testsuite/gfortran.dg/function_charlen_3.f


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