arm: Add .type and .size to __gnu_cmse_nonsecure_call [PR115360]
[official-gcc.git] / gcc / testsuite / gfortran.dg / recursive_check_15.f90
blob4e381804ef299cb726d2ef0347af88fd527c3d86
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