------- Comment #6 from steven at gcc dot gnu dot org 2006-01-08 21:32 -------
(From update of attachment 10595)
Index: resolve.c
===================================================================
--- resolve.c (revision 109449)
+++ resolve.c (working copy)
@@ -3579,9 +3579,12 @@ resolve_branch (gfc_st_label * label, gf
if (found == NULL)
{
- /* still nothing, so illegal. */
- gfc_error_now ("Label at %L is not in the same block as the "
- "GOTO statement at %L", &lp->where, &code->loc);
+ /* Still nothing, so strictly illegal. However, this kind of
+ what is now considered gross coding style was common in the
+ past. So allow it for legacy code. */
+ gfc_notify_std (GFC_STD_LEGACY,
+ "Label at %L is not in the same block as the "
+ "GOTO statement at %L", &lp->where, &code->loc);
return;
}
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18540
