! { dg-do compile } ! ! PR fortran/53537 ! The definition of T1 in the interface used to be rejected because T3 ! was imported under the original name T1. MODULE MOD TYPE T1 SEQUENCE integer :: j END TYPE t1 END PROGRAM MAIN USE MOD, T3 => T1 INTERFACE SUBR SUBROUTINE SUBR1(X,y) IMPORT :: T3 type t1 ! sequence ! integer :: i end type t1 TYPE(T3) X ! TYPE(T1) X END SUBROUTINE END INTERFACE SUBR END PROGRAM MAIN