Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/recursive_check_15.f90 @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 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 |