fprintf(diagfile
, "Warning on line %d of %s: %s\n", lineno
, infname
, s
);
fprintf(diagfile
, "Error on line %d of %s: %s\n", lineno
, infname
, s
);
sprintf(buff
, "Declaration error for %s: %s", varstr(VL
, v
->varname
), s
);
errstr("Declaration error %s", s
);
char buf1
[100], buf2
[100];
sprintf(buf1
, "Execution error %s", s
);
fprintf(diagfile
, "Compiler error line %d of %s: %s\n", lineno
, infname
, t
);
sprintf(buff
, "Too many %s. Try the -N%c option", s
, c
);
errstr("Fortran 77 feature used: %s", s
);
errstr("F77 compiler extension used: %s", s
);