OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* arith.c (gfc_range_check): Fix logic error. 

From-SVN: r81918
This commit is contained in:
Paul Brook 2004-05-16 18:01:38 +00:00 committed by Paul Brook
parent 5a4db26d01
commit 67a459f37c
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2004-05-16 Paul Brook <paul@codesourcery.com>
* arith.c (gfc_range_check): Fix logic error.
2004-05-16 Steve Kargl <sgk@troutmask.apl.washington.edu>
* arith.c: Fix comment typos.

2
gcc/fortran/arith.c
View File

@ -1193,7 +1193,7 @@ gfc_range_check (gfc_expr * e)
case BT_COMPLEX:
rc = gfc_check_real_range (e->value.complex.r, e->ts.kind);
if (rc != ARITH_OK)
if (rc == ARITH_OK)
rc = gfc_check_real_range (e->value.complex.i, e->ts.kind);
break;