@@ -6,7 +6,8 @@ module test_features
6
6
use fpm_manifest_feature_collection, only: feature_collection_t
7
7
use fpm_manifest_platform, only: platform_config_t
8
8
use fpm_environment, only: OS_ALL, OS_LINUX, OS_MACOS, OS_WINDOWS
9
- use fpm_compiler, only: id_all, id_gcc, id_intel_classic_nix, id_intel_classic_windows, id_intel_llvm_nix, match_compiler_type
9
+ use fpm_compiler, only: id_all, id_gcc, id_intel_classic_nix, id_intel_classic_windows, id_intel_llvm_nix, &
10
+ match_compiler_type
10
11
use fpm_strings, only: string_t
11
12
use fpm_filesystem, only: get_temp_filename
12
13
implicit none
@@ -27,7 +28,8 @@ subroutine collect_features(testsuite)
27
28
& new_unittest(" feature-collection-invalid" , test_feature_collection_invalid, should_fail= .true. ), &
28
29
& new_unittest(" feature-collection-duplicates" , test_feature_collection_duplicates, should_fail= .true. ), &
29
30
& new_unittest(" feature-collection-extract" , test_feature_collection_extract), &
30
- & new_unittest(" feature-collection-platform-validation" , test_feature_collection_platform_validation, should_fail= .true. ), &
31
+ & new_unittest(" feature-collection-platform-validation" , test_feature_collection_platform_validation, &
32
+ & should_fail= .true. ), &
31
33
& new_unittest(" feature-collection-complex" , test_feature_collection_complex), &
32
34
& new_unittest(" feature-allocatable-conflict" , test_feature_allocatable_conflict, should_fail= .true. ), &
33
35
& new_unittest(" feature-flag-addition" , test_feature_flag_addition), &
@@ -697,7 +699,8 @@ subroutine test_feature_extract_ifort_windows(error)
697
699
if (index (extracted_feature% flags, " /debug" ) == 0 .or. &
698
700
index (extracted_feature% flags, " /warn:all" ) == 0 .or. &
699
701
index (extracted_feature% flags, " /DWINDOWS" ) == 0 ) then
700
- call test_failed(error, " Missing expected flags in ifort+Windows extraction. Got: '" // extracted_feature% flags// " '" )
702
+ call test_failed(error, " Missing expected flags in ifort+Windows extraction. Got: '" &
703
+ // extracted_feature% flags// " '" )
701
704
return
702
705
end if
703
706
@@ -821,7 +824,8 @@ subroutine test_feature_extract_dependencies_examples(error)
821
824
end if
822
825
823
826
if (extracted_feature% fortran% implicit_typing) then
824
- call test_failed(error, " Fortran config not applied correctly - implicit typing should be false" )
827
+ call test_failed(error, " Fortran config not applied correctly - " // &
828
+ " implicit typing should be false" )
825
829
return
826
830
end if
827
831
@@ -893,7 +897,8 @@ subroutine test_feature_extract_build_configs(error)
893
897
end if
894
898
895
899
! Check that external modules are present
896
- if (.not. allocated (extracted_feature% build% external_modules) .or. size (extracted_feature% build% external_modules) < 1 ) then
900
+ if (.not. allocated (extracted_feature% build% external_modules) &
901
+ .or. size (extracted_feature% build% external_modules) < 1 ) then
897
902
call test_failed(error, " Missing external modules in ifort+Linux build config" )
898
903
return
899
904
end if
0 commit comments