! { 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 | |