From 39818aa5c174a3cc5d8ee2327c10162ab440ce96 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ond=C5=99ej=20=C4=8Cert=C3=ADk?= <ondrej@certik.us>
Date: Wed, 23 Dec 2020 09:55:15 -0700
Subject: Print target_type as a string

---
 fpm/src/fpm_model.f90 | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3