diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-30 18:22:47 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-30 18:22:47 +0000 |
| commit | bc653e6beb45e546fda7659bb1a520785431e9fa (patch) | |
| tree | a9bbd7e0ea2545f534a590a6bf549e7dcd6b1bae /libgfortran/runtime | |
| parent | 1f0fdcb36cf86e0c8d635892b56fb1405142ac66 (diff) | |
| download | gcc-bc653e6beb45e546fda7659bb1a520785431e9fa.tar.gz | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@118191 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/runtime')
| -rw-r--r-- | libgfortran/runtime/string.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libgfortran/runtime/string.c b/libgfortran/runtime/string.c index 00dfc298305..a92082f73ee 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; } |