-2004-05-08 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+2004-05-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+
+ PR fortran/14066
+ * match.c (gfc_match_do): Allow infinite loops with
+ label-do-stmt. Do not enforce space after comma.
+
+2004-05-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/15051
* parse.c (parse_interface): Allow empty INTERFACE, remove
seen_body.
-2004-05-08 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+2004-05-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* Make-lang.in, arith.c, arith.h, array.c, bbt.c, check.c,
decl.c, dependency.c, dependency.h, dump-parse-tree.c, error.c,
* data.c: Likewise, also removed two whitespace-only lines.
* gfortranspec.c, lang.opt: Update copyright years.
-2004-04-22 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+2004-05-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/14568
* trans-decl.c (generate_local_decl): Don't warn for unused
if (gfc_match (" do") != MATCH_YES)
return MATCH_NO;
+ m = gfc_match_st_label (&label, 0);
+ if (m == MATCH_ERROR)
+ goto cleanup;
+
/* Match an infinite DO, make it like a DO WHILE(.TRUE.) */
if (gfc_match_eos () == MATCH_YES)
goto done;
}
- m = gfc_match_st_label (&label, 0);
- if (m == MATCH_ERROR)
- goto cleanup;
-
- gfc_match_char (',');
-
- if (gfc_match ("% ") != MATCH_YES)
+ /* match an optional comma, if no comma is found a space is obligatory. */
+ if (gfc_match_char(',') != MATCH_YES
+ && gfc_match ("% ") != MATCH_YES)
return MATCH_NO;
/* See if we have a DO WHILE. */
2004-05-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+ PR fortran/14066
+ * gfortran.fortran-torture/compile/do_1.f90: New test.
+
+2004-05-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+
PR fortran/15051
* gfortran.fortran-torture/compile/empty_interface_1.f90: New
test.