Skip to content

Commit fd3525c

Browse files
committed
line length
1 parent 2b42cee commit fd3525c

File tree

1 file changed

+14
-7
lines changed

1 file changed

+14
-7
lines changed

src/fpm_targets.f90

Lines changed: 14 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1088,7 +1088,8 @@ subroutine resolve_target_linking(targets, model, library, error)
10881088
! DEBUG: Print compiler information
10891089
write(stdout,'(A)') 'DEBUG resolve_target_linking: Starting'
10901090
write(stdout,'(A,I0)') 'DEBUG resolve_target_linking: Compiler ID = ', model%compiler%id
1091-
write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Fortran flags = ', model%fortran_compile_flags
1091+
write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Fortran flags = ', &
1092+
model%fortran_compile_flags
10921093
write(stdout,'(A,A)') 'DEBUG resolve_target_linking: C flags = ', model%c_compile_flags
10931094
write(stdout,'(A,A)') 'DEBUG resolve_target_linking: CXX flags = ', model%cxx_compile_flags
10941095

@@ -1124,7 +1125,8 @@ subroutine resolve_target_linking(targets, model, library, error)
11241125
associate(target => targets(i)%ptr)
11251126

11261127
! DEBUG: Print target information
1127-
write(stdout,'(A,I0,A,A)') 'DEBUG resolve_target_linking: Target ', i, ' name = ', target%output_file
1128+
write(stdout,'(A,I0,A,A)') 'DEBUG resolve_target_linking: Target ', i, ' name = ', &
1129+
target%output_file
11281130

11291131
! If the main program is a C/C++ one, some compilers require additional linking flags, see
11301132
! https://stackoverflow.com/questions/36221612/p3dfft-compilation-ifort-compiler-error-multiple-definiton-of-main
@@ -1136,15 +1138,19 @@ subroutine resolve_target_linking(targets, model, library, error)
11361138
select case (target%target_type)
11371139
case (FPM_TARGET_C_OBJECT)
11381140
target%compile_flags = target%compile_flags//model%c_compile_flags
1139-
write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Using C flags: ', model%c_compile_flags
1141+
write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Using C flags: ', &
1142+
model%c_compile_flags
11401143
case (FPM_TARGET_CPP_OBJECT)
11411144
target%compile_flags = target%compile_flags//model%cxx_compile_flags
1142-
write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Using CXX flags: ', model%cxx_compile_flags
1145+
write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Using CXX flags: ', &
1146+
model%cxx_compile_flags
11431147
case default
11441148
target%compile_flags = target%compile_flags//model%fortran_compile_flags &
11451149
& // get_feature_flags(model%compiler, target%features)
1146-
write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Using Fortran flags: ', model%fortran_compile_flags
1147-
write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Feature flags: ', get_feature_flags(model%compiler, target%features)
1150+
write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Using Fortran flags: ', &
1151+
model%fortran_compile_flags
1152+
write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Feature flags: ', &
1153+
get_feature_flags(model%compiler, target%features)
11481154
end select
11491155

11501156
!> Get macros as flags.
@@ -1157,7 +1163,8 @@ subroutine resolve_target_linking(targets, model, library, error)
11571163
end if
11581164

11591165
! DEBUG: Print final compile flags
1160-
write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Final compile flags: ', target%compile_flags
1166+
write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Final compile flags: ', &
1167+
target%compile_flags
11611168

11621169
call target%set_output_dir(get_output_dir(model%build_prefix, target%compile_flags))
11631170

0 commit comments

Comments
 (0)