42 PROTO(PRIVATE void error_message,( const char *filename, LINENO_t lineno,
44 PROTO(PRIVATE void lintstyle_error_message,( const char *filename, LINENO_t lineno,
46 PROTO(PRIVATE void oldstyle_error_message,( const char *filename, LINENO_t lineno,
92 syntax_error(LINENO_t lineno, COLNO_t colno, const char *s)		/* Syntax error message */  in syntax_error()  argument
94 syntax_error(lineno,colno,s)		/* Syntax error message */  in syntax_error()
95 	LINENO_t lineno;  in syntax_error()
101 	error_message(current_filename,lineno,colno,s,"Error");
106 warning(LINENO_t lineno, COLNO_t colno, const char *s)  /* Print warning message */  in warning()  argument
108 warning(lineno,colno,s)  in warning()
109 	LINENO_t lineno;  in warning()
116 	error_message(current_filename,lineno,colno,s,"Warning");
121 ugly_code(LINENO_t lineno, COLNO_t colno, const char *s) /* -pretty message */  in ugly_code()  argument
123 ugly_code(lineno,colno,s)  in ugly_code()
124 	LINENO_t lineno;  in ugly_code()
131 	error_message(current_filename,lineno,colno,s,"Possibly misleading appearance");
136 nonstandard(LINENO_t lineno, COLNO_t colno, int f90, int f95)  in nonstandard()  argument
138 nonstandard(lineno,colno, f90, f95)  in nonstandard()
139      LINENO_t lineno;  in nonstandard()
146 	  error_message(current_filename,lineno,colno,"Syntax deleted in Fortran 95","Warning");
149 	  error_message(current_filename,lineno,colno,"Nonstandard syntax","Warning");
157 nonportable(LINENO_t lineno, COLNO_t colno, const char *s) /* Print warning about nonportable const…  in nonportable()  argument
159 nonportable(lineno,colno,s) /* Print warning about nonportable construction */  in nonportable()
160 	LINENO_t lineno;  in nonportable()
166 	error_message(current_filename,lineno,colno,s,"Nonportable usage");
174 local_message(const char *filename, LINENO_t lineno, const char *s, const char *tag)  in local_message()  argument
176 local_message(filename, lineno, s, tag)  in local_message()
178 	LINENO_t lineno;
183 	error_message(filename,lineno,GLOBAL_NO_COL_NUM,s,tag);
192 global_warning(const char *filename, LINENO_t lineno, const char *s)  in global_warning()  argument
194 global_warning(filename,lineno,s)  in global_warning()
196 	LINENO_t lineno;
201 	error_message(filename,lineno,GLOBAL_NO_COL_NUM,s,"Warning");
206 global_message(const char *filename, LINENO_t lineno, const char *s)  in global_message()  argument
208 global_message(filename,lineno,s)  in global_message()
210 	LINENO_t lineno;
215 	error_message(filename,lineno,GLOBAL_NO_COL_NUM,s,NULL);
239 error_message(const char *filename,LINENO_t lineno, COLNO_t colno, const char *s, const char *tag)  in error_message()  argument
241 error_message(filename,lineno,colno,s,tag)  in error_message()
243 	LINENO_t lineno;
249     oldstyle_error_message(filename,lineno,colno,s,tag);
251     lintstyle_error_message(filename,lineno,colno,s,tag);
256 lintstyle_error_message(const char *filename,LINENO_t lineno, COLNO_t colno, const char *s, const c…  in lintstyle_error_message()  argument
258 lintstyle_error_message(filename,lineno,colno,s,tag)  in lintstyle_error_message()
260 	LINENO_t lineno;
278 	if(lineno != NO_LINE_NUM && colno != GLOBAL_NO_COL_NUM) {
281 		(void)flush_line_out(lineno);/* print line if not printed yet */
285 		if( flush_line_out(lineno) ) {
305 	if(lineno != NO_LINE_NUM) { /* nonlocal error-- don't flush */
308 		   ", near line %u",lineno);
309 		errmsg_col += 12+NUM_DIGITS(lineno);
313 		   ", line %u",lineno);
314 		errmsg_col += 7+NUM_DIGITS(lineno);
318 		   ", line %u col %u",lineno,colno);
319 		errmsg_col += 12+NUM_DIGITS(lineno);
324 		errmsg_col += 12+NUM_DIGITS(lineno);
341 oldstyle_error_message(const char *filename,LINENO_t lineno, COLNO_t colno, const char *s, const ch…  in oldstyle_error_message()  argument
343 oldstyle_error_message(filename,lineno,colno,s,tag)  in oldstyle_error_message()
345 	LINENO_t lineno;
367 	  if(lineno == NO_LINE_NUM) { /* nonlocal error-- don't flush */
374 		(void)flush_line_out(lineno);/* print line if not printed yet */
376 		(void)fprintf(list_fd,"\n%s near line %u",tag,lineno);
377 		errmsg_col += 11+NUM_DIGITS(lineno)+(unsigned)strlen(tag);
384 			      "\n%s at line %u",tag,lineno);
385 		errmsg_col += 9+NUM_DIGITS(lineno)+(unsigned)strlen(tag);
389 		if( flush_line_out(lineno) ) {
398 			      "\n%s near line %u col %u",tag,lineno,colno);
399 		errmsg_col += 16+NUM_DIGITS(lineno)+NUM_DIGITS(colno)
407 		errmsg_col += 11+NUM_DIGITS(lineno)+(unsigned)strlen(tag);
418 	    if(lineno == NO_LINE_NUM) { /* if no line no, preposition needed */
502 oops_message(int severity, LINENO_t lineno, COLNO_t colno, const char *s)  in oops_message()  argument
504 oops_message(severity,lineno,colno,s)  in oops_message()
506 	LINENO_t lineno;
513 	if(lineno != NO_LINE_NUM) {
514 	  (void)fprintf(stderr," at line %u",lineno);