blob: 0d88e625b817386327ff0c32be232521093b47a4 (
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 "has not been declared within the interface" }
end subroutine generic_desc
end interface
end
|