------- Comment #2 from jv244 at cam dot ac dot uk 2008-12-08 18:39 ------- (In reply to comment #1) > - 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));
That produces too few error messages. I.e. IMPLICIT NONE INTEGER :: a,b,c,d,e,f,g,h,a a=0 ; b=0 ; c=0 ; d=0 ; e=0 ; f=0 ; g=0 ; h=0; i=0 END should produce (like NAG f95, ifort) two errors only. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38444
