Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/use_only_4.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do compile } ! Test the fix for PR41062, in which an ICE would ensue because ! of confusion between the two 'one's in the creation of module ! debug info. ! ! Reported by Norman S. Clerman <clerman@fuse.net> ! Reduced testcase by Tobias Burnus <burnus@gcc.gnu.org> ! module m1 interface one ! GENERIC "one" module procedure one1 end interface contains subroutine one1() call abort end subroutine one1 end module m1 module m2 use m1, only : one ! USE generic "one" contains subroutine two() call one() ! Call internal "one" contains subroutine one() ! Internal "one" print *, "m2" end subroutine one end subroutine two end module m2 use m2 call two end