diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2007-05-04 14:08:42 -0400 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2007-05-04 14:08:42 -0400 |
| commit | ec3785669db733b186105aa3ffe6e356f144b11b (patch) | |
| tree | ece14348ba6386deda92d813234ab208f4b775ec /gcc | |
| parent | 2b28c07aa788ba7cff755d6858d707de675ad39a (diff) | |
| download | gcc-ec3785669db733b186105aa3ffe6e356f144b11b.zip gcc-ec3785669db733b186105aa3ffe6e356f144b11b.tar.gz gcc-ec3785669db733b186105aa3ffe6e356f144b11b.tar.bz2 | |
check.c (gfc_check_fseek_sub): Fixed typo.
2007-05-04 Daniel Franke <franke.daniel@gmail.com>
* check.c (gfc_check_fseek_sub): Fixed typo.
From-SVN: r124440
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/check.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 84b9023..20a231f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,9 @@ 2007-05-04 Daniel Franke <franke.daniel@gmail.com> + * check.c (gfc_check_fseek_sub): Fixed typo. + +2007-05-04 Daniel Franke <franke.daniel@gmail.com> + PR fortran/22539 * intrinsic.c (add_subroutines): Added FSEEK. * intrinsic.h (gfc_resolve_fseek_sub, gfc_check_fseek_sub): New. diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 73192e9..0420329 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -2488,7 +2488,7 @@ gfc_check_fseek_sub (gfc_expr *unit, gfc_expr *offset, gfc_expr *whence, gfc_exp return FAILURE; if (kind_value_check (status, 3, 4) == FAILURE) - return FAILURE + return FAILURE; if (scalar_check (status, 3) == FAILURE) return FAILURE; |