1! { dg-do compile } 2! 3! PR39688: IMPORT of derived type fails 4! 5! Contributed by Bob Corbett <robert.corbett@sun.com> 6 7 MODULE MOD 8 TYPE T1 9 SEQUENCE 10 TYPE(T2), POINTER :: P 11 END TYPE 12 TYPE T2 13 SEQUENCE 14 INTEGER I 15 END TYPE 16 END 17 18 PROGRAM MAIN 19 USE MOD, T3 => T1, T4 => T2 20 TYPE T1 21 SEQUENCE 22 TYPE(T2), POINTER :: P 23 END TYPE 24 INTERFACE SUBR 25 SUBROUTINE SUBR1(X) 26 IMPORT T3 27 TYPE(T3) X 28 END SUBROUTINE 29 SUBROUTINE SUBR2(X) 30 IMPORT T1 31 TYPE(T1) X 32 END SUBROUTINE 33 END INTERFACE 34 TYPE T2 35 SEQUENCE 36 REAL X 37 END TYPE 38 END 39 40 SUBROUTINE SUBR1(X) 41 USE MOD 42 TYPE(T1) X 43 END 44 45 SUBROUTINE SUBR2(X) 46 TYPE T1 47 SEQUENCE 48 TYPE(T2), POINTER :: P 49 END TYPE 50 TYPE T2 51 SEQUENCE 52 REAL X 53 END TYPE 54 TYPE(T1) X 55 END 56