Commit 46343456 by Francois-Xavier Coudert Committed by François-Xavier Coudert

Testcase forgotten in the previous commit.

	PR fortran/26551
	* gfortran.dg/recursive_check_2.f90: New test.

From-SVN: r113861
parent 77f131ca
......@@ -2,6 +2,7 @@
PR fortran/26551
* gfortran.dg/recursive_check_1.f: New test.
* gfortran.dg/recursive_check_2.f90: New test.
2005-05-17 Bernd Schmidt <bernd.schmidt@analog.com>
! { 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 declared as RECURSIVE" }
end function barbar
end function
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment