diff options
| author | John S. Urban <urbanjost@comcast.net> | 2021-07-11 18:16:52 -0400 |
|---|---|---|
| committer | John S. Urban <urbanjost@comcast.net> | 2021-07-11 18:16:52 -0400 |
| commit | 87271c5a55ad6412114c4b153c1a8d0bd37156f5 (patch) | |
| tree | e61837e75eeb361af0c3624a7f28169a9d06bf60 /src/fpm_environment.f90 | |
| parent | cca5f83be11f40dd2be86671f8ec14a429540cc9 (diff) | |
| download | fpm-87271c5a55ad6412114c4b153c1a8d0bd37156f5.tar.gz fpm-87271c5a55ad6412114c4b153c1a8d0bd37156f5.zip | |
some more STOP to FPM_STOP conversions
Diffstat (limited to 'src/fpm_environment.f90')
| -rw-r--r-- | src/fpm_environment.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
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 |