diff options
| author | Ondřej Čertík <ondrej@certik.us> | 2020-12-23 09:55:15 -0700 |
|---|---|---|
| committer | Ondřej Čertík <ondrej@certik.us> | 2020-12-23 09:55:15 -0700 |
| commit | 39818aa5c174a3cc5d8ee2327c10162ab440ce96 (patch) | |
| tree | 4e9e6d5c5435a45124ec01a1eee00704a3a967de | |
| parent | 8faaa90082ea17c0ea4a774ed0eb58adb8cf44c3 (diff) | |
| download | fpm-39818aa5c174a3cc5d8ee2327c10162ab440ce96.tar.gz fpm-39818aa5c174a3cc5d8ee2327c10162ab440ce96.zip | |
Print target_type as a string
| -rw-r--r-- | fpm/src/fpm_model.f90 | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/fpm/src/fpm_model.f90 b/fpm/src/fpm_model.f90 index 2963b97..3ad6dff 100644 --- a/fpm/src/fpm_model.f90 +++ b/fpm/src/fpm_model.f90 @@ -224,7 +224,19 @@ if (allocated(t%dependencies)) then end if s = s // "]" ! integer :: target_type = FPM_TARGET_UNKNOWN -s = s // ", target_type=" // str(t%target_type) +s = s // ", target_type=" +select case(t%target_type) +case (FPM_TARGET_UNKNOWN) + s = s // "FPM_TARGET_UNKNOWN" +case (FPM_TARGET_EXECUTABLE) + s = s // "FPM_TARGET_EXECUTABLE" +case (FPM_TARGET_ARCHIVE) + s = s // "FPM_TARGET_ARCHIVE" +case (FPM_TARGET_OBJECT) + s = s // "FPM_TARGET_OBJECT" +case default + s = s // "INVALID" +end select ! type(string_t), allocatable :: link_libraries(:) s = s // ", link_libraries=[" if (allocated(t%link_libraries)) then |