C { dg-do compile }C Tests the fix for the regression PR34872, in which the re-matching ofC the function declaration made a mess if the first executable statementC had a label.CHARACTER FUNCTION s() 10CONTINUEGOTO 10s=' 'END FUNCTION sCHARACTER FUNCTION t() 10format("q")write(t,10)END FUNCTION tcharacter tif(t().ne."q")call abort()end