Update fpm_environment.f90

fortran-lang · Dec 13, 2023 · 5de290a · 5de290a
1 parent 5d9aaae
commit 5de290a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fpm_environment.f90 b/src/fpm_environment.f90
@@ -41,7 +41,7 @@ integer function get_os_type() result(r)
         logical           :: file_exists
         logical, save     :: first_run = .true.
         integer, save     :: ret = OS_UNKNOWN
-        !$omp threadprivate(ret, first_run)
+        !$omp threadprivate(ret, first_run, length, rc)
 
         if (.not. first_run) then
             r = ret