commit 02000ad2b84f3f833bf26d74e055811266d348da
Author: Mik <mikael.morin@sfr.fr>
Date: Thu Aug 15 12:39:05 2013 +0200
io.c (match_io_element): appel a gfc_check_do_variable non fatal
@@ -3106,8 +3106,8 @@ match_io_element (io_kind k, gfc_code **cpp)
io_kind_name (k));
}
- if (m == MATCH_YES && k == M_READ && gfc_check_do_variable (expr->symtree))
- m = MATCH_ERROR;
+ if (m == MATCH_YES && k == M_READ)
+ gfc_check_do_variable (expr->symtree);
if (m != MATCH_YES)
{
@@ -10,4 +10,3 @@ DO I=1,5 ! { dg-error "cannot be redefined" "changing do-iterator 3" }
READ(5,*,iostat=i) j ! { dg-error "cannot be redefined" "changing do-iterator 3" }
ENDDO
END
-! { dg-error "Invalid character" "character" { target *-*-* } 7 }