Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/nesting_1.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children | 84e7813d76e9 |
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) call abort end subroutine c end subroutine a call a(0) end