diff options
| author | Ondřej Čertík <ondrej@certik.us> | 2020-07-21 23:14:52 -0600 |
|---|---|---|
| committer | Ondřej Čertík <ondrej@certik.us> | 2020-07-21 23:16:07 -0600 |
| commit | f98d13bfde648bda2496c938eb113472f50df0a1 (patch) | |
| tree | 15b765fa42fe0896f5ce1cf0e43d3f337c1ba47c | |
| parent | 2990fe5a66f960a97fb8dff266b724b5314b220a (diff) | |
| download | fpm-f98d13bfde648bda2496c938eb113472f50df0a1.tar.gz fpm-f98d13bfde648bda2496c938eb113472f50df0a1.zip | |
Use get_os()
| -rw-r--r-- | fpm/src/fpm.F90 | 4 |
1 files changed, 4 insertions, 0 deletions
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) |