From b74b9cdb4347f8e33bcb3cc73e2d42b8c9aaf0db Mon Sep 17 00:00:00 2001
From: Federico Perini <federico.perini@gmail.com>
Date: Wed, 13 Dec 2023 16:12:25 +0100
Subject: [PATCH] get_os: initialize values (ifx error)

---
 src/fpm_environment.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/fpm_environment.f90 b/src/fpm_environment.f90
index 7e8aa2317d..8e558e1c8e 100644
--- 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)