URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [recursive_check_2.f90] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
! PR fortran/26551
function func2()
integer func2
func2 = 42
return
entry c() result (foo)
foo = barbar()
return
entry b() result (bar)
bar = 12
return
contains
function barbar ()
barbar = b () ! { dg-error "is not RECURSIVE" }
end function barbar
end function
Go to most recent revision | Compare with Previous | Blame | View Log