blob: 543b0a1d0fa4191bfe0bb7c0bf97932bf842814f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { 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
|
