gcc/testsuite/gfortran.dg/import11.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/53537
   4 ! The definition of T1 in the interface used to be rejected because T3
   5 ! was imported under the original name T1.
   6
   7        MODULE MOD
   8          TYPE T1
   9            SEQUENCE
  10            integer :: j
  11          END TYPE t1
  12        END
  13        PROGRAM MAIN
  14          USE MOD, T3 => T1
  15          INTERFACE SUBR
  16            SUBROUTINE SUBR1(X,y)
  17              IMPORT :: T3
  18              type t1
  19 !               sequence
  20 !               integer :: i
  21              end type t1
  22              TYPE(T3) X
  23 !             TYPE(T1) X
  24            END SUBROUTINE
  25          END INTERFACE SUBR
  26        END PROGRAM MAIN
  27
  28