Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/access_spec_3.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! Tests the fix for PR36454, where the PUBLIC declaration for ! aint and bint was rejected because the access was already set. ! ! Contributed by Thomas Orgis <thomas.orgis@awi.de> module base integer :: baseint end module module a use base, ONLY: aint => baseint end module module b use base, ONLY: bint => baseint end module module c use a use b private public :: aint, bint end module program user use c, ONLY: aint, bint aint = 3 bint = 8 write(*,*) aint end program