diff options
| author | Carlos Une <brocolis@eml.cc> | 2021-07-10 21:30:35 -0300 |
|---|---|---|
| committer | Carlos Une <brocolis@eml.cc> | 2021-07-10 21:30:35 -0300 |
| commit | 52cb72f02e04786015b2adacd8072bcf2f5e89cb (patch) | |
| tree | 6a1e548a8e5abdb37986899d8d0c19a332f9d3f1 /src/fpm_filesystem.F90 | |
| parent | db869aa38ad7736df9eec5dfb8ac05b4ba45590b (diff) | |
| download | fpm-52cb72f02e04786015b2adacd8072bcf2f5e89cb.tar.gz fpm-52cb72f02e04786015b2adacd8072bcf2f5e89cb.zip | |
Use C wrapper by default
Diffstat (limited to 'src/fpm_filesystem.F90')
| -rw-r--r-- | src/fpm_filesystem.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fpm_filesystem.F90 b/src/fpm_filesystem.F90 index 7d21e31..7b70ebe 100644 --- a/src/fpm_filesystem.F90 +++ b/src/fpm_filesystem.F90 @@ -17,7 +17,7 @@ use,intrinsic :: iso_fortran_env, only : stdin=>input_unit, stdout=>output_unit, integer, parameter :: LINE_BUFFER_LEN = 1000 -#ifdef ENABLE_C_WRAPPER +#ifndef FPM_BOOTSTRAP interface function c_opendir(dir) result(r) bind(c, name="opendir") import c_char, c_ptr @@ -345,7 +345,7 @@ subroutine mkdir(dir) end if end subroutine mkdir -#ifdef ENABLE_C_WRAPPER +#ifndef FPM_BOOTSTRAP !> Get file & directory names in directory `dir` using iso_c_binding. !! !! - File/directory names return are relative to cwd, ie. preprended with `dir` |