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 39779a4 commit 427c730Copy full SHA for 427c730
src/fpm_environment.f90
@@ -384,8 +384,9 @@ end function c_setenv
384
call f2cs(value,c_value)
385
386
!> Call setenv
387
+#ifndef FPM_BOOTSTRAP
388
cerr = c_setenv(c_name,c_value,cover)
-
389
+#endif
390
set_env = cerr==0_c_int
391
392
end function set_env
@@ -414,8 +415,9 @@ end function c_unsetenv
414
415
call f2cs(name,c_name)
416
417
418
419
cerr = c_unsetenv(c_name)
420
421
success = cerr==0_c_int
422
423
end function delete_env
0 commit comments