Skip to content

Commit 102705d

Browse files
committed
shorter lines
1 parent a8efbbb commit 102705d

File tree

1 file changed

+10
-5
lines changed

1 file changed

+10
-5
lines changed

test/fpm_test/test_features.f90

Lines changed: 10 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,8 @@ module test_features
66
use fpm_manifest_feature_collection, only: feature_collection_t
77
use fpm_manifest_platform, only: platform_config_t
88
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
1011
use fpm_strings, only: string_t
1112
use fpm_filesystem, only: get_temp_filename
1213
implicit none
@@ -27,7 +28,8 @@ subroutine collect_features(testsuite)
2728
& new_unittest("feature-collection-invalid", test_feature_collection_invalid, should_fail=.true.), &
2829
& new_unittest("feature-collection-duplicates", test_feature_collection_duplicates, should_fail=.true.), &
2930
& 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.), &
3133
& new_unittest("feature-collection-complex", test_feature_collection_complex), &
3234
& new_unittest("feature-allocatable-conflict", test_feature_allocatable_conflict, should_fail=.true.), &
3335
& new_unittest("feature-flag-addition", test_feature_flag_addition), &
@@ -697,7 +699,8 @@ subroutine test_feature_extract_ifort_windows(error)
697699
if (index(extracted_feature%flags, "/debug") == 0 .or. &
698700
index(extracted_feature%flags, "/warn:all") == 0 .or. &
699701
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//"'")
701704
return
702705
end if
703706

@@ -821,7 +824,8 @@ subroutine test_feature_extract_dependencies_examples(error)
821824
end if
822825

823826
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")
825829
return
826830
end if
827831

@@ -893,7 +897,8 @@ subroutine test_feature_extract_build_configs(error)
893897
end if
894898

895899
! 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
897902
call test_failed(error, "Missing external modules in ifort+Linux build config")
898903
return
899904
end if

0 commit comments

Comments
 (0)