Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/generic_2.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
rev | line source |
---|---|
111 | 1 ! { dg-do compile } |
2 ! testcase from PR 17583 | |
3 module bidon | |
4 | |
5 interface | |
6 subroutine drivexc(nspden,rho_updn) | |
7 integer, intent(in) :: nspden | |
8 integer, intent(in) :: rho_updn(nspden) | |
9 end subroutine drivexc | |
10 end interface | |
11 | |
12 end module bidon | |
13 | |
14 subroutine nonlinear(nspden) | |
15 | |
16 use bidon | |
17 | |
18 integer,intent(in) :: nspden | |
19 | |
20 end subroutine nonlinear |