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
|
module fpm_manifest_modules_30
use fpm_manifest_package_modules_30, only : package_config_t
use fpm_manifest_executable_modules_30, only : default_executable
implicit none
contains
subroutine package_defaults(package, root)
type(package_config_t), intent(inout) :: package
character(len=*), intent(in) :: root
allocate(package%executable(1))
call default_executable(package%executable(1), package%name)
end subroutine package_defaults
end module fpm_manifest_modules_30
program modules_30
implicit none
print *, "running modules_30 program"
end program
|
