diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-09-20 22:56:48 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-09-20 22:56:48 +0000 |
| commit | fe046210e2d5fa3ac4c0d0d5d48f6851b1dcbe24 (patch) | |
| tree | 093179808f51212622f52a96725ca19f1a622162 /gcc | |
| parent | d36ff2b46bf0c44b5f8c60710b196777e8880285 (diff) | |
| download | gcc-fe046210e2d5fa3ac4c0d0d5d48f6851b1dcbe24.zip gcc-fe046210e2d5fa3ac4c0d0d5d48f6851b1dcbe24.tar.gz gcc-fe046210e2d5fa3ac4c0d0d5d48f6851b1dcbe24.tar.bz2 | |
re PR libfortran/23272 ([mingw32] inquire via filename fails)
PR libfortran/23272
* io/unix.c (id_from_handle, id_from_path, id_from_fd): New
functions.
(compare_file_filename, find_file, find_file0): Use the new
functions above.
* gfortran.dg/inquire_10.f90: New test.
From-SVN: r128636
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inquire_10.f90 | 16 |
2 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e641604..a11d20b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-09-21 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR libfortran/23272 + * gfortran.dg/inquire_10.f90: New test. + 2007-09-20 Joseph Myers <joseph@codesourcery.com> * gcc.dg/c99-bool-2.c, gcc.dg/c99-bool-3.c: New tests. diff --git a/gcc/testsuite/gfortran.dg/inquire_10.f90 b/gcc/testsuite/gfortran.dg/inquire_10.f90 new file mode 100644 index 0000000..5343f2b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/inquire_10.f90 @@ -0,0 +1,16 @@ + character(len=800) :: cwd + integer :: unit + + call getcwd(cwd) + + open(file='cseq', unit=23) + inquire(file='cseq',number=unit) + if (unit /= 23) call abort + inquire(file=trim(cwd) // '/cseq',number=unit) + if (unit /= 23) call abort + + inquire(file='foo/../cseq2',number=unit) + if (unit >= 0) call abort + inquire(file='cseq2',number=unit) + if (unit >= 0) call abort +end |