Skip to content

Commit fa56e36

Browse files
committed
add verbose print of active features/profile
1 parent 54978e6 commit fa56e36

File tree

2 files changed

+11
-6
lines changed

2 files changed

+11
-6
lines changed

src/fpm.f90

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -89,6 +89,16 @@ subroutine build_model(model, settings, package_config, error)
8989
package = package_config%export_config(target_platform,settings%features,settings%profile,error)
9090
if (allocated(error)) return
9191

92+
! Print enabled features/profile in verbose mode
93+
if (settings%verbose) then
94+
if (allocated(settings%features) .and. size(settings%features) > 0) then
95+
print *, '+ features: [', string_cat(settings%features,','), ']'
96+
end if
97+
if (allocated(settings%profile)) then
98+
print *, '+ profile: ', settings%profile
99+
end if
100+
end if
101+
92102
! Initialize compiler flags using the feature-enabled package configuration
93103
call new_compiler_flags(model, settings, package)
94104

src/fpm/manifest/feature_collection.f90

Lines changed: 1 addition & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1158,14 +1158,9 @@ subroutine merge_into_package(self, package, target, error)
11581158
! Extract the feature configuration for the target platform
11591159
feature = self%extract_for_target(target, error)
11601160
if (allocated(error)) return
1161-
1162-
print *, 'extract for target: flags=',feature%flags
1163-
print *, 'extract for target: link=',feature%link_time_flags
1164-
1161+
11651162
! Merge the extracted feature into the package
11661163
call merge_feature_configs(package, feature, error)
1167-
print *, 'merged for target: flags=',package%flags
1168-
print *, 'merged for target: link=',package%link_time_flags
11691164
if (allocated(error)) return
11701165

11711166
end subroutine merge_into_package

0 commit comments

Comments
 (0)