From 87271c5a55ad6412114c4b153c1a8d0bd37156f5 Mon Sep 17 00:00:00 2001
From: "John S. Urban" <urbanjost@comcast.net>
Date: Sun, 11 Jul 2021 18:16:52 -0400
Subject: some more STOP to FPM_STOP conversions

---
 src/fpm_environment.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/fpm_environment.f90')

diff --git a/src/fpm_environment.f90 b/src/fpm_environment.f90
index 414c766..e9da3c7 100644
--- a/src/fpm_environment.f90
+++ b/src/fpm_environment.f90
@@ -6,6 +6,7 @@ module fpm_environment
     use,intrinsic :: iso_fortran_env, only : stdin=>input_unit,   &
                                            & stdout=>output_unit, &
                                            & stderr=>error_unit
+    use fpm_error, only : fpm_stop
     implicit none
     private
     public :: get_os_type
@@ -157,8 +158,7 @@ contains
             exitstat = stat
         else
             if (stat /= 0) then
-                print *, 'Command failed'
-                stop 1
+                call fpm_stop(1,'*run*:Command failed')
             end if
         end if
 
-- 
cgit v1.2.3