diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2022-12-21 08:06:29 +0100 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2022-12-21 08:14:32 +0100 |
| commit | 18fc70aa9c753d17c00211cea9fa5bd843fe94fd (patch) | |
| tree | 6f034de60c1f27c842a404c1ef74ea5e62a1afdd /libffi | |
| parent | 2b1a604a9b28fbf4f382060bebd04adb83acc2f9 (diff) | |
| download | gcc-18fc70aa9c753d17c00211cea9fa5bd843fe94fd.zip gcc-18fc70aa9c753d17c00211cea9fa5bd843fe94fd.tar.gz gcc-18fc70aa9c753d17c00211cea9fa5bd843fe94fd.tar.bz2 | |
gfortran.dg/read_dir.f90: Make PASS on Windows
On non-Cygwin Windows, use '.' and expect the documented fail when opening
a directory (EACCESS). As gfortran does not set __WIN32__ this check is
done on the C side. (On __CYGWIN__, __WIN32__ is not set - but to make it
clear, !__CYGWIN__ is used in #if.)
On non-Windows, replace the 'call system' shell call by the POSIX functions
stat/mkdir/rmdir for better compatibility, especially on embedded systems;
additionally add some more checks. In particular, confirm that 'close' with
status='delete' indeed deleted the directory.
gcc/testsuite/ChangeLog:
* gfortran.dg/read_dir-aux.c: New; provides my_mkdir, my_rmdir,
my_verify_not_exists and expect_open_to_fail.
* gfortran.dg/read_dir.f90: Call those; expect that opening a
directory fails on Windows.
Diffstat (limited to 'libffi')
0 files changed, 0 insertions, 0 deletions