diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-11-07 02:35:06 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-11-07 02:35:06 +0000 |
| commit | 246d24e984dbe3575989adde201880782ad9f89e (patch) | |
| tree | 2edbe98972f9829bfc9f6df5e3d3daaa29c18dd3 | |
| parent | b44bb2a1185b139cd34a1ac26b484be58a14dffc (diff) | |
| download | gcc-246d24e984dbe3575989adde201880782ad9f89e.zip gcc-246d24e984dbe3575989adde201880782ad9f89e.tar.gz gcc-246d24e984dbe3575989adde201880782ad9f89e.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/recursive_check_15.f90 | 12 |
2 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 77cf10c0..5864fb5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 index 0000000..4e38180 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/recursive_check_15.f90 @@ -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 + |