From bfc1665471645a0c087ebfcf2aadaa9f93fb8be6 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Mon, 21 Jan 2013 19:34:49 +0000 Subject: [PATCH] re PR fortran/55919 (Bogus warning with -J directory/) 2013-01-21 Thomas Koenig 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 PR fortran/55919 * gfortran.dg/include_8.f90: New test. From-SVN: r195348 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/scanner.c | 14 +++++++++++++- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/include_8.f90 | 6 ++++++ 4 files changed, 30 insertions(+), 1 deletion(-) create mode 100644 gcc/testsuite/gfortran.dg/include_8.f90 diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 730c41b4e1f..126536b31c6 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2013-01-21 Thomas Koenig + + PR fortran/55919 + * gfortran.dg/include_8.f90: New test. + 2013-01-17 Richard Biener * trans-stmt.c (gfc_trans_do): Conditionally compute countm1 diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index 008e91f78b8..0467f8ac347 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 0ca0c07391f..343611c2587 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2013-01-21 Thomas Koenig + + PR fortran/55919 + * add_path_to_list: Copy path to temporary and strip + trailing directory separators before calling stat(). + 2012-01-21 Uros Bizjak * 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 00000000000..84d04583f89 --- /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 -- 2.30.2