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
|
module fpm_targets
implicit none
type build_target_ptr
type(build_target_t), pointer :: ptr => null()
end type build_target_ptr
type build_target_t
character(:), allocatable :: output_file
character(:), allocatable :: version
end type build_target_t
contains
function func() result(target_ptr)
type(build_target_t), pointer :: target_ptr
target_ptr => null()
end function func
end module fpm_targets
program modules_32
implicit none
print *, "running modules_32 program"
end program
|
