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