OSDN Git Service

2009-11-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / recursive_check_15.f90
1 ! { dg-do compile }
2 ! PR41909 ICE with "call foo" in "program foo"
3 program test ! { dg-error "Global name" }
4   implicit none
5   call test()  ! { dg-error "" }
6 contains
7   subroutine one(a)
8     real, dimension(:,:), intent(inout), optional :: a
9     call two(a)
10   end subroutine one
11 end program test
12