Skip to content

Commit 427c730

Browse files
committed
c functions: not in single-file source
1 parent 39779a4 commit 427c730

File tree

1 file changed

+4
-2
lines changed

1 file changed

+4
-2
lines changed

src/fpm_environment.f90

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -384,8 +384,9 @@ end function c_setenv
384384
call f2cs(value,c_value)
385385

386386
!> Call setenv
387+
#ifndef FPM_BOOTSTRAP
387388
cerr = c_setenv(c_name,c_value,cover)
388-
389+
#endif
389390
set_env = cerr==0_c_int
390391

391392
end function set_env
@@ -414,8 +415,9 @@ end function c_unsetenv
414415
call f2cs(name,c_name)
415416

416417
!> Call setenv
418+
#ifndef FPM_BOOTSTRAP
417419
cerr = c_unsetenv(c_name)
418-
420+
#endif
419421
success = cerr==0_c_int
420422

421423
end function delete_env

0 commit comments

Comments
 (0)