Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/use_17.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR fortran/51578 ! ! Contributed by Billy Backer ! ! Check that indict importing of the symbol "axx" works ! even if renaming prevent the direct import. ! module mod1 integer :: axx=2 end module mod1 module mod2 use mod1 end module mod2 subroutine sub1 use mod1, oxx=>axx use mod2 implicit none print*,axx ! Valid - was working before end subroutine sub1 subroutine sub2 use mod2 use mod1, oxx=>axx implicit none print*,axx ! Valid - was failing before end subroutine sub2 subroutine test1 use :: iso_c_binding use, intrinsic :: iso_c_binding, only: c_double_orig => c_double integer :: c_double integer, parameter :: p1 = c_int, p2 = c_double_orig end subroutine test1