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