blob: 15608eea155dd049e86c63b8e2489f8d271d1b54 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { 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
|
