18 lines
318 B
Fortran
18 lines
318 B
Fortran
! { 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
|