PR fortran/26551
* gfortran.dg/recursive_check_2.f90: New test.
From-SVN: r113861
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>
--- /dev/null
+! { 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