+
−! { dg-do compile }
+
−!
+
−! PR fortran/44614
+
−!
+
−!
+
−
+
−implicit none
+
−
+
−type, abstract :: Connection
+
−end type Connection
+
−
+
−abstract interface
+
−    subroutine generic_desc(self)
+
−        ! <<< missing IMPORT 
+
−        class(Connection) :: self ! { dg-error "is being used before it is defined" }
+
−    end subroutine generic_desc
+
−end interface
+
−end