blob: 543b0a1d0fa4191bfe0bb7c0bf97932bf842814f [file] [log] [blame]
! { 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