gcc/testsuite/gfortran.dg/import7.f90

   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
  57 ! { dg-final { cleanup-modules "mod" } }
  58