diff options
| -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) |