Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/use_17.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +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