blob: 45fd6ffcaa690162377ee48776755e566ded0d70 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
!// objective: test abstract types
!// check: structmymodule_1_1t1.xml
!// config: OPTIMIZE_FOR_FORTRAN=YES
!// config: WARN_IF_UNDOCUMENTED=NO
module myModule
implicit none
private
public :: T1
type, abstract :: T1
contains
!> brief doc
procedure(AbstractProc), deferred :: deferredProc
end type T1
abstract interface
subroutine AbstractProc(this, i)
import T1
class(T1), intent(inout) :: this
integer, intent(in) :: i
end subroutine
end interface
end module myModule
|