re PR fortran/41909 (ICE with "call foo" in "program foo")

2009-11-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/41909
	* gfortran.dg/recursive_check_15.f90: New test.

From-SVN: r153990

gcc/testsuite/ChangeLog

+2009-11-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/41909
+	* gfortran.dg/recursive_check_15.f90: New test.
+
 2009-11-06  Jason Merrill  <jason@redhat.com>
 
 	PR c++/15946

gcc/testsuite/gfortran.dg/recursive_check_15.f90

+! { dg-do compile }
+! PR41909 ICE with "call foo" in "program foo"
+program test ! { dg-error "Global name" }
+  implicit none
+  call test()  ! { dg-error "" }
+contains
+  subroutine one(a)
+    real, dimension(:,:), intent(inout), optional :: a
+    call two(a)
+  end subroutine one
+end program test
+