debug prints

Author: perazz

src/fpm_targets.f90

@@ -1076,7 +1076,7 @@ end subroutine prune_build_targets
 subroutine resolve_target_linking(targets, model, library, error)
     type(build_target_ptr), intent(inout), target :: targets(:)
     type(fpm_model_t), intent(in) :: model
-    type(library_config_t), intent(in), optional :: library    
+    type(library_config_t), intent(in), optional :: library
     type(error_t), allocatable, intent(out) :: error
 
     integer :: i,j
@@ -1085,6 +1085,13 @@ subroutine resolve_target_linking(targets, model, library, error)
     character(:), allocatable :: global_link_flags, local_link_flags
     character(:), allocatable :: global_include_flags, shared_lib_paths
 
+    ! DEBUG: Print compiler information
+    write(stdout,'(A)') 'DEBUG resolve_target_linking: Starting'
+    write(stdout,'(A,I0)') 'DEBUG resolve_target_linking: Compiler ID = ', model%compiler%id
+    write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Fortran flags = ', model%fortran_compile_flags
+    write(stdout,'(A,A)') 'DEBUG resolve_target_linking: C flags = ', model%c_compile_flags
+    write(stdout,'(A,A)') 'DEBUG resolve_target_linking: CXX flags = ', model%cxx_compile_flags
+
     if (size(targets) == 0) return
 
     global_link_flags = ""
@@ -1116,21 +1123,28 @@ subroutine resolve_target_linking(targets, model, library, error)
 
         associate(target => targets(i)%ptr)
 
+            ! DEBUG: Print target information
+            write(stdout,'(A,I0,A,A)') 'DEBUG resolve_target_linking: Target ', i, ' name = ', target%output_file
+
             ! If the main program is a C/C++ one, some compilers require additional linking flags, see
             ! https://stackoverflow.com/questions/36221612/p3dfft-compilation-ifort-compiler-error-multiple-definiton-of-main
             ! In this case, compile_flags were already allocated
             if (.not.allocated(target%compile_flags)) allocate(character(len=0) :: target%compile_flags)
 
             target%compile_flags = target%compile_flags//' '
-            
+
             select case (target%target_type)
                case (FPM_TARGET_C_OBJECT)
                    target%compile_flags = target%compile_flags//model%c_compile_flags
+                   write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Using C flags: ', model%c_compile_flags
                case (FPM_TARGET_CPP_OBJECT)
                    target%compile_flags = target%compile_flags//model%cxx_compile_flags
+                   write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Using CXX flags: ', model%cxx_compile_flags
                case default
                    target%compile_flags = target%compile_flags//model%fortran_compile_flags &
                                         & // get_feature_flags(model%compiler, target%features)
+                   write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Using Fortran flags: ', model%fortran_compile_flags
+                   write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Feature flags: ', get_feature_flags(model%compiler, target%features)
             end select
 
             !> Get macros as flags.
@@ -1141,7 +1155,10 @@ subroutine resolve_target_linking(targets, model, library, error)
             if (len(global_include_flags) > 0) then
                 target%compile_flags = target%compile_flags//global_include_flags
             end if
-            
+
+            ! DEBUG: Print final compile flags
+            write(stdout,'(A,A)') 'DEBUG resolve_target_linking: Final compile flags: ', target%compile_flags
+
             call target%set_output_dir(get_output_dir(model%build_prefix, target%compile_flags))
 
         end associate