diff options
| author | LKedward <laurence.kedward@bristol.ac.uk> | 2021-07-16 15:24:25 +0100 |
|---|---|---|
| committer | LKedward <laurence.kedward@bristol.ac.uk> | 2021-07-16 15:24:25 +0100 |
| commit | f884bfd38a546dba12ccabcce8581e7bab29e51f (patch) | |
| tree | 9c0f3822b59741f18cfb8feef02db7d27caf712d /src/fpm_environment.f90 | |
| parent | 53027990c205eb905ff534544f4752ea92e747d7 (diff) | |
| parent | 68937a4eae6a71b74edbf762c574cc2dc22bb2d6 (diff) | |
| download | fpm-f884bfd38a546dba12ccabcce8581e7bab29e51f.tar.gz fpm-f884bfd38a546dba12ccabcce8581e7bab29e51f.zip | |
Merge branch 'upstream_master' into file-listing
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 cf76250..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' - error stop + call fpm_stop(1,'*run*:Command failed') end if end if |