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