------- Comment #1 from kargl at gcc dot gnu dot org 2008-12-08 18:24 ------- Yeah, this has always bothered me. I typically use -fmax-errors=1 when developing new code because of the run-on errors for simple mistakes. This fixes the excessive errors in this case.
Index: symbol.c =================================================================== --- symbol.c (revision 142481) +++ symbol.c (working copy) @@ -1559,7 +1559,8 @@ gfc_add_type (gfc_symbol *sym, gfc_types || gfc_notification_std (GFC_STD_GNU) == ERROR || pedantic) { - gfc_error (msg, sym->name, where, gfc_basic_typename (sym->ts.type)); + gfc_fatal_error (msg, sym->name, where, + gfc_basic_typename (sym->ts.type)); return FAILURE; } if (gfc_notify_std (GFC_STD_GNU, msg, sym->name, where, -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38444