diff options
| author | Tobias Burnus <burnus@net-b.de> | 2006-10-30 19:22:47 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2006-10-30 19:22:47 +0100 |
| commit | 9aceacac9268f061154de7b0596f7f935fc52d46 (patch) | |
| tree | a9bbd7e0ea2545f534a590a6bf549e7dcd6b1bae /libgfortran | |
| parent | e1efef1ef15487a5a4056234db644557ba61cec6 (diff) | |
| download | gcc-9aceacac9268f061154de7b0596f7f935fc52d46.zip gcc-9aceacac9268f061154de7b0596f7f935fc52d46.tar.gz gcc-9aceacac9268f061154de7b0596f7f935fc52d46.tar.bz2 | |
re PR fortran/29452 (Keyword check for specifiers in WRITE and READ)
fortran/
2006-10-30 Tobias Burnus <burnus@net-b.de>
PR fortran/29452
* io.c (check_io_constraints): Fix keyword string comparison.
libgfortran/
2006-10-30 Tobias Burnus <burnus@net-b.de>
PR fortran/29452
* runtime/string.c (compare0): Check whether string lengths match.
testsuite/
2006-10-30 Tobias Burnus <burnus@net-b.de>
PR fortran/29452
* gfortran.dg/write_check.f90: Check run-time keyword checking.
* gfortran.dg/write_check2.f90: Check compile-time keyword checking
From-SVN: r118191
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/runtime/string.c | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 82db785..6dd8270 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2006-10-30 Tobias Burnus <burnus@net-b.de> + + PR fortran/29452 + * runtime/string.c (compare0): Check whether string lengths match. + 2006-10-29 Francois-Xavier Coudert <coudert@clipper.ens.fr> * configure: Regenerate. diff --git a/libgfortran/runtime/string.c b/libgfortran/runtime/string.c index 00dfc29..a92082f 100644 --- a/libgfortran/runtime/string.c +++ b/libgfortran/runtime/string.c @@ -44,6 +44,7 @@ compare0 (const char *s1, int s1_len, const char *s2) /* Strip trailing blanks from the Fortran string. */ len = fstrlen (s1, s1_len); + if(len != strlen(s2)) return 0; /* don't match */ return strncasecmp (s1, s2, len) == 0; } |