Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/nesting_1.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! PR 18525 ! we used to incorrectly refer to n from a when resolving the call to ! c from b ! { dg-do run } subroutine a(n) call b(n+1) contains subroutine b(n) call c(n) end subroutine b subroutine c(m) if (m/=1) STOP 1 end subroutine c end subroutine a call a(0) end