Subversion Repositories openrisc

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