URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [function_charlen_3.f] - Rev 302
Go to most recent revision | Compare with Previous | Blame | View Log
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
Go to most recent revision | Compare with Previous | Blame | View Log