diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2013-01-21 19:34:49 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2013-01-21 19:34:49 +0000 |
| commit | bfc1665471645a0c087ebfcf2aadaa9f93fb8be6 (patch) | |
| tree | a497b79fd25f505a51f14cd7f475f9a76e186e43 /gcc | |
| parent | 62e896818a07297d3469cdd185402c52768c01c2 (diff) | |
| download | gcc-bfc1665471645a0c087ebfcf2aadaa9f93fb8be6.zip gcc-bfc1665471645a0c087ebfcf2aadaa9f93fb8be6.tar.gz gcc-bfc1665471645a0c087ebfcf2aadaa9f93fb8be6.tar.bz2 | |
re PR fortran/55919 (Bogus warning with -J directory/)
2013-01-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/55919
* scanner.c (add_path_to_list): Copy path to temporary and strip
trailing directory separators before calling stat().
2013-01-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/55919
* gfortran.dg/include_8.f90: New test.
From-SVN: r195348
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/scanner.c | 14 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/include_8.f90 | 6 |
4 files changed, 30 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 730c41b..126536b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2013-01-21 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR fortran/55919 + * gfortran.dg/include_8.f90: New test. + 2013-01-17 Richard Biener <rguenther@suse.de> * trans-stmt.c (gfc_trans_do): Conditionally compute countm1 diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index 008e91f..0467f8a 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -310,14 +310,26 @@ add_path_to_list (gfc_directorylist **list, const char *path, { gfc_directorylist *dir; const char *p; + char *q; struct stat st; + size_t len; + int i; p = path; while (*p == ' ' || *p == '\t') /* someone might do "-I include" */ if (*p++ == '\0') return; - if (stat (p, &st)) + /* Strip trailing directory separators from the path, as this + will confuse Windows systems. */ + len = strlen (p); + q = (char *) alloca (len + 1); + memcpy (q, p, len + 1); + i = len - 1; + while (i >=0 && IS_DIR_SEPARATOR(q[i])) + q[i--] = '\0'; + + if (stat (q, &st)) { if (errno != ENOENT) gfc_warning_now ("Include directory \"%s\": %s", path, diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0ca0c07..343611c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2013-01-21 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR fortran/55919 + * add_path_to_list: Copy path to temporary and strip + trailing directory separators before calling stat(). + 2012-01-21 Uros Bizjak <ubizjak@gmail.com> * gcc.dg/tree-ssa/pr55579.c: Cleanup esra tree dump. diff --git a/gcc/testsuite/gfortran.dg/include_8.f90 b/gcc/testsuite/gfortran.dg/include_8.f90 new file mode 100644 index 0000000..84d0458 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/include_8.f90 @@ -0,0 +1,6 @@ +! { dg-do compile } +! { dg-options "-J./" } +! PR 55919 - a trailing dir separator would cause a warning +! on Windows. +program main +end program main |