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 /gcc/fortran/io.c | |
| 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 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index cbb7cf9..ae9df4a 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -2701,8 +2701,8 @@ if (condition) \ if (expr->expr_type == EXPR_CONSTANT && expr->ts.type == BT_CHARACTER) { const char * advance = expr->value.character.string; - not_no = strncasecmp (advance, "no", 2) != 0; - not_yes = strncasecmp (advance, "yes", 2) != 0; + not_no = strcasecmp (advance, "no") != 0; + not_yes = strcasecmp (advance, "yes") != 0; } else { |