Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/import7.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR39688: IMPORT of derived type fails ! ! Contributed by Bob Corbett <robert.corbett@sun.com> MODULE MOD TYPE T1 SEQUENCE TYPE(T2), POINTER :: P END TYPE TYPE T2 SEQUENCE INTEGER I END TYPE END PROGRAM MAIN USE MOD, T3 => T1, T4 => T2 TYPE T1 SEQUENCE TYPE(T2), POINTER :: P END TYPE INTERFACE SUBR SUBROUTINE SUBR1(X) IMPORT T3 TYPE(T3) X END SUBROUTINE SUBROUTINE SUBR2(X) IMPORT T1 TYPE(T1) X END SUBROUTINE END INTERFACE TYPE T2 SEQUENCE REAL X END TYPE END SUBROUTINE SUBR1(X) USE MOD TYPE(T1) X END SUBROUTINE SUBR2(X) TYPE T1 SEQUENCE TYPE(T2), POINTER :: P END TYPE TYPE T2 SEQUENCE REAL X END TYPE TYPE(T1) X END