OSDN Git Service

2009-11-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 7 Nov 2009 02:35:06 +0000 (02:35 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 7 Nov 2009 02:35:06 +0000 (02:35 +0000)
PR fortran/41909
* gfortran.dg/recursive_check_15.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@153990 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/recursive_check_15.f90 [new file with mode: 0644]

index 77cf10c..5864fb5 100644 (file)
@@ -1,3 +1,8 @@
+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
diff --git a/gcc/testsuite/gfortran.dg/recursive_check_15.f90 b/gcc/testsuite/gfortran.dg/recursive_check_15.f90
new file mode 100644 (file)
index 0000000..4e38180
--- /dev/null
@@ -0,0 +1,12 @@
+! { 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
+