59 lines
1.1 KiB
Fortran
59 lines
1.1 KiB
Fortran
|
! { 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
|
||
|
|
||
|
! { dg-final { cleanup-modules "mod" } }
|
||
|
|