From f98d13bfde648bda2496c938eb113472f50df0a1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ond=C5=99ej=20=C4=8Cert=C3=ADk?= <ondrej@certik.us>
Date: Tue, 21 Jul 2020 23:14:52 -0600
Subject: Use get_os()

---
 fpm/src/fpm.F90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/fpm/src/fpm.F90 b/fpm/src/fpm.F90
index 789df8d..05a02e8 100644
--- a/fpm/src/fpm.F90
+++ b/fpm/src/fpm.F90
@@ -18,12 +18,16 @@ integer function get_os() result(r)
     r = os_linux
 #else
     ! Unsupported platform
+    r = -1
     error stop
 #endif
 end function
 
 subroutine print_help()
+integer :: ostype
+ostype = get_os()
 print *, "Fortran Package Manager (fpm)"
+print *, ostype
 end subroutine
 
 subroutine run(cmd)
-- 
cgit v1.2.3