re PR fortran/29454 (Slightly wrong error message for IF statement)
2006-11-10 Tobias Burnus <burnus@net-b.de> PR fortran/29454 * resolve.c (gfc_resolve_blocks): Fix error message. From-SVN: r118661
This commit is contained in:
parent
95fe073894
commit
a6b03a63d6
|
@ -1,3 +1,8 @@
|
|||
2006-11-10 Tobias Burnus <burnus@net-b.de>
|
||||
|
||||
PR fortran/29454
|
||||
* resolve.c (gfc_resolve_blocks): Fix error message.
|
||||
|
||||
2006-11-10 Paul Thomas <pault@gcc.gnu.org>
|
||||
|
||||
PR fortran/29315
|
||||
|
|
|
@ -4749,7 +4749,7 @@ gfc_resolve_blocks (gfc_code * b, gfc_namespace * ns)
|
|||
if (t == SUCCESS && b->expr != NULL
|
||||
&& (b->expr->ts.type != BT_LOGICAL || b->expr->rank != 0))
|
||||
gfc_error
|
||||
("ELSE IF clause at %L requires a scalar LOGICAL expression",
|
||||
("IF clause at %L requires a scalar LOGICAL expression",
|
||||
&b->expr->where);
|
||||
break;
|
||||
|
||||
|
|
Loading…
Reference in New Issue