Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/import11.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/53537 ! The definition of T1 in the interface used to be rejected because T3 ! was imported under the original name T1. MODULE MOD TYPE T1 SEQUENCE integer :: j END TYPE t1 END PROGRAM MAIN USE MOD, T3 => T1 INTERFACE SUBR SUBROUTINE SUBR1(X,y) IMPORT :: T3 type t1 ! sequence ! integer :: i end type t1 TYPE(T3) X ! TYPE(T1) X END SUBROUTINE END INTERFACE SUBR END PROGRAM MAIN