diff options
| -rw-r--r-- | fpm/src/fpm_model.f90 | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/fpm/src/fpm_model.f90 b/fpm/src/fpm_model.f90 index f31735d..1d72e82 100644 --- a/fpm/src/fpm_model.f90 +++ b/fpm/src/fpm_model.f90 @@ -207,7 +207,7 @@ recursive function info_build_target(t) result(s) s = s // 'output_file="' // t%output_file // '"' ! type(srcfile_t), allocatable :: source if (allocated(t%source)) then - s = s // ", source=" // info_srcfile(t%source) + s = s // ", source=" // info_srcfile_short(t%source) else s = s // ", source=()" end if @@ -355,6 +355,16 @@ function info_srcfile(source) result(s) s = s // ")" end function +function info_srcfile_short(source) result(s) + ! Prints a shortened version of srcfile_t + type(srcfile_t), intent(in) :: source + character(:), allocatable :: s + integer :: i + s = "srcfile_t(" + s = s // 'file_name="' // source%file_name // '"' + s = s // ", ...)" +end function + function info_model(model) result(s) type(fpm_model_t), intent(in) :: model character(:), allocatable :: s |