get_os: initialize values (ifx error)

fortran-lang · Dec 13, 2023 · b74b9cd · b74b9cd
1 parent 7b7afc2
commit b74b9cd
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/fpm_environment.f90 b/src/fpm_environment.f90
@@ -50,6 +50,8 @@ integer function get_os_type() result(r)
 
         first_run = .false.
         r = OS_UNKNOWN
+        length = 0
+        rc = 0
 
         ! Check environment variable `OSTYPE`.
         call get_environment_variable('OSTYPE', val, length, rc)