1
1
module fpm
2
- use fpm_strings, only: string_t, operator (.in .), glob, join
2
+ use fpm_strings, only: string_t, operator (.in .), glob, join, string_cat
3
3
use fpm_backend, only: build_package
4
4
use fpm_command_line, only: fpm_build_settings, fpm_new_settings, &
5
5
fpm_run_settings, fpm_install_settings, fpm_test_settings
@@ -44,11 +44,6 @@ subroutine build_model(model, settings, package, error)
44
44
character (len= :), allocatable :: manifest, lib_dir
45
45
type (string_t) :: include_dir
46
46
47
- if (settings% verbose)then
48
- write (* ,* )' <INFO>BUILD_NAME:' ,settings% build_name
49
- write (* ,* )' <INFO>COMPILER: ' ,settings% compiler
50
- endif
51
-
52
47
model% package_name = package% name
53
48
54
49
allocate (model% include_dirs(0 ))
@@ -67,9 +62,6 @@ subroutine build_model(model, settings, package, error)
67
62
model% output_directory = join_path(' build' ,basename(model% fortran_compiler)// ' _' // settings% build_name)
68
63
69
64
call add_compile_flag_defaults(settings% build_name, basename(model% fortran_compiler), model)
70
- if (settings% verbose)then
71
- write (* ,* )' <INFO>COMPILER OPTIONS: ' , model% fortran_compile_flags
72
- endif
73
65
74
66
allocate (model% packages(model% deps% ndep))
75
67
@@ -172,6 +164,13 @@ subroutine build_model(model, settings, package, error)
172
164
end do
173
165
if (allocated (error)) return
174
166
167
+ if (settings% verbose) then
168
+ write (* ,* )' <INFO> BUILD_NAME: ' ,settings% build_name
169
+ write (* ,* )' <INFO> COMPILER: ' ,settings% compiler
170
+ write (* ,* )' <INFO> COMPILER OPTIONS: ' , model% fortran_compile_flags
171
+ write (* ,* )' <INFO> INCLUDE DIRECTORIES: [' , string_cat(model% include_dirs,' ,' ),' ]'
172
+ end if
173
+
175
174
end subroutine build_model
176
175
177
176
0 commit comments