13 lines
297 B
Fortran
13 lines
297 B
Fortran
! { 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
|
|
|