Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/used_types_24.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 PR37794 a regression where a bit of redundant code caused an ICE. ! ! Contributed by Jonathan Hogg <J.Hogg@rl.ac.uk> ! module m1 implicit none type of01_data_private real :: foo end type of01_data_private type of01_data type (of01_data_private) :: private end type of01_data end module m1 module m2 implicit none type of01_data_private integer :: youngest end type of01_data_private end module m2 module test_mod use m1, of01_rdata => of01_data use m2, of01_idata => of01_data ! { dg-error "not found in module" } implicit none end module test_mod