We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 4be07af commit f8c901cCopy full SHA for f8c901c
src/fpm_environment.f90
@@ -41,7 +41,7 @@ integer function get_os_type() result(r)
41
logical :: file_exists
42
logical, save :: first_run = .true.
43
integer, save :: ret = OS_UNKNOWN
44
- !omp threadprivate(ret, first_run)
+ !$omp threadprivate(ret, first_run)
45
46
if (.not. first_run) then
47
r = ret
0 commit comments