From 246d24e984dbe3575989adde201880782ad9f89e Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 7 Nov 2009 02:35:06 +0000 Subject: [PATCH] re PR fortran/41909 (ICE with "call foo" in "program foo") 2009-11-06 Jerry DeLisle PR fortran/41909 * gfortran.dg/recursive_check_15.f90: New test. From-SVN: r153990 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/recursive_check_15.f90 | 12 ++++++++++++ 2 files changed, 17 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/recursive_check_15.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 77cf10c03cf3..5864fb58292d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-11-06 Jerry DeLisle + + PR fortran/41909 + * gfortran.dg/recursive_check_15.f90: New test. + 2009-11-06 Jason Merrill 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 000000000000..4e381804ef29 --- /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 + -- 2.43.5