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
27
28
29
|
module fpm_versioning_modules_34
implicit none
type :: version_t
integer, allocatable :: num(:)
contains
procedure :: to_string
end type version_t
interface char
module procedure :: as_string
end interface char
contains
subroutine to_string(self, string)
class(version_t), intent(in) :: self
character(len=:), allocatable, intent(out) :: string
end subroutine to_string
function as_string(self) result(string)
class(version_t), intent(in) :: self
character(len=:), allocatable :: string
call self%to_string(string)
end function as_string
end module fpm_versioning_modules_34
|
