1! { dg-do compile }
2!
3! PR fortran/44614
4!
5!
6
7implicit none
8
9type, abstract :: Connection
10end type Connection
11
12abstract interface
13    subroutine generic_desc(self)
14        ! <<< missing IMPORT
15        class(Connection) :: self ! { dg-error "is being used before it is defined" }
16    end subroutine generic_desc
17end interface
18end
19