850 		gfc_error ("Extension: Zero width after L "  in check_format()
931 		  gfc_error ("Positive width required in format "  in check_format()
964 	      gfc_error ("Period required in format "  in check_format()
1309     gfc_error (error, error_element, &format_locus);  in check_format()
1311     gfc_error (error, &format_locus);  in check_format()
1371       gfc_error ("Format statement in module main block at %C");  in gfc_match_format()
1380       gfc_error ("FORMAT statement at %C cannot appear within an INTERFACE");  in gfc_match_format()
1386       gfc_error ("Missing format label at %C");  in gfc_match_format()
1441       gfc_error ("Invalid value for %s specification at %C", tag->name);  in match_etag()
1447       gfc_error ("Duplicate %s specification at %C", tag->name);  in match_etag()
1472       gfc_error ("Invalid value for %s specification at %C", tag->name);  in match_vtag()
1478       gfc_error ("Duplicate %s specification at %C", tag->name);  in match_vtag()
1489 	  gfc_error ("Variable %s cannot be INTENT(IN) at %C", tag->name);  in match_vtag()
1497 	  gfc_error ("Variable %s cannot be assigned in PURE procedure at %C",  in match_vtag()
1527 	  gfc_error ("Expecting a variable at %L", &(*result)->where);  in match_out_tag()
1552       gfc_error ("Invalid value for %s specification at %C", tag->name);  in match_ltag()
1558       gfc_error ("Duplicate %s label specification at %C", tag->name);  in match_ltag()
1578       gfc_error ("%s at %C is a DEC extension, enable with "  in match_dec_etag()
1595       gfc_error ("%s at %C is a DEC extension, enable with "  in match_dec_vtag()
1616       gfc_error ("%s at %C is a DEC extension, enable with "  in match_dec_ftag()
1634 	  gfc_error ("Duplicate %s specification at %C", tag->name);  in match_dec_ftag()
1647 	  gfc_error ("Duplicate %s specification at %C", tag->name);  in match_dec_ftag()
1669       gfc_error ("Constant expression in FORMAT tag at %L must be "  in resolve_tag_format()
1694 	     gfc_error ("FORMAT tag at %L cannot be a zero-sized array",  in resolve_tag_format()
1735 	  gfc_error ("FORMAT tag at %L must be of type default-kind CHARACTER "  in resolve_tag_format()
1746 	      gfc_error ("Variable %qs at %L has not been assigned a "  in resolve_tag_format()
1753 	  gfc_error ("Scalar %qs in FORMAT tag at %L is not an ASSIGNED "  in resolve_tag_format()
1768 	  gfc_error ("Non-character non-Hollerith in FORMAT tag at %L",  in resolve_tag_format()
1778 	  gfc_error ("Non-character assumed shape array element in FORMAT"  in resolve_tag_format()
1785 	  gfc_error ("Non-character assumed size array element in FORMAT"  in resolve_tag_format()
1792 	  gfc_error ("Non-character pointer array element in FORMAT tag at %L",  in resolve_tag_format()
1818       gfc_error ("%s tag at %L must be of type %s", tag->name,  in resolve_tag()
1825       gfc_error ("%s tag at %L must be a character string of default kind",  in resolve_tag()
1832       gfc_error ("%s tag at %L must be scalar", tag->name, &e->where);  in resolve_tag()
2162       gfc_error ("%s specifier in %s statement at %L has invalid value %qs",  in compare_to_allowed_values()
2184       gfc_error (__VA_ARGS__); \  in check_open_constraints()
2219 	  gfc_error ("ACTION type conflicts with READONLY specifier at %L",  in check_open_constraints()
2463 	  gfc_error ("UNIT specifier not allowed with NEWUNIT at %L",  in check_open_constraints()
2474 	     gfc_error ("NEWUNIT specifier must have FILE= "  in check_open_constraints()
2481       gfc_error ("OPEN statement at %L must have UNIT or NEWUNIT specified",  in check_open_constraints()
2590       gfc_error ("OPEN statement not allowed in PURE procedure at %C");  in gfc_match_open()
2698       gfc_error ("CLOSE statement not allowed in PURE procedure at %C");  in gfc_match_close()
2724       gfc_error ("CLOSE statement at %L requires a UNIT number", where);  in check_close_constraints()
2732       gfc_error ("UNIT number in CLOSE statement at %L must be non-negative",  in check_close_constraints()
2855       gfc_error ("%s statement not allowed in PURE procedure at %C",  in match_filepos()
2885       gfc_error ("UNIT number missing in statement at %L", where);  in gfc_resolve_filepos()
2896       gfc_error ("UNIT number in statement at %L must be non-negative",  in gfc_resolve_filepos()
2990   gfc_error ("Duplicate UNIT specification at %C");  in match_dt_unit()
3064   gfc_error ("Duplicate format specification at %C");  in match_dt_format()
3105 	gfc_error ("Symbol %qs in namelist %qs is INTENT(IN) at %C",  in check_namelist()
3141 	  gfc_error ("Duplicate NML specification at %C");  in match_dt_element()
3150 	  gfc_error ("Symbol %qs at %C must be a NAMELIST group name",  in match_dt_element()
3216 	 gfc_error ("END tag at %C not allowed in output statement");  in match_dt_element()
3312       gfc_error ("UNIT not specified at %L", loc);  in gfc_resolve_dt()
3319       gfc_error ("UNIT specification at %L must "  in gfc_resolve_dt()
3332 	  gfc_error ("UNIT specification at %L must be an INTEGER expression "  in gfc_resolve_dt()
3354 	      gfc_error ("Invalid form of WRITE statement at %L, UNIT required",  in gfc_resolve_dt()
3365 	  gfc_error ("Internal unit with vector subscript at %L", &e->where);  in gfc_resolve_dt()
3379       gfc_error ("External IO UNIT cannot be an array at %L", &e->where);  in gfc_resolve_dt()
3386       gfc_error ("UNIT number in statement at %L must be non-negative",  in gfc_resolve_dt()
3409 		  gfc_error ("NAMELIST %qs in READ statement at %L contains"  in gfc_resolve_dt()
3421 	      gfc_error ("NAMELIST object %qs in namelist %qs at %L is "  in gfc_resolve_dt()
3439 		  gfc_error ("NAMELIST object %qs in namelist %qs at %L has "  in gfc_resolve_dt()
3460 	  gfc_error ("ERR tag label %d at %L not defined",  in gfc_resolve_dt()
3472 	  gfc_error ("END tag label %d at %L not defined",  in gfc_resolve_dt()
3484 	  gfc_error ("EOR tag label %d at %L not defined",  in gfc_resolve_dt()
3494       gfc_error ("FORMAT label %d at %L not defined", dt->format_label->value,  in gfc_resolve_dt()
3614   gfc_error ("Syntax error in I/O iterator at %C");  in match_io_iterator()
3646 	  gfc_error ("Expecting variable in READ statement at %C");  in match_io_element()
3652 	  gfc_error ("Expecting variable or io-implied-do in READ statement "  in match_io_element()
3661 	  gfc_error ("Expecting variable or io-implied-do at %L",  in match_io_element()
3670 	gfc_error ("Expected expression in %s statement at %C",  in match_io_element()
3736   gfc_error ("Syntax error in %s statement at %C", io_kind_name (k));  in match_io_list()
3777       gfc_error ((msg), (arg));\  in check_io_constraints()
3779       gfc_error ((msg), spec_end);\  in check_io_constraints()
3838 	  gfc_error ("IO UNIT in %s statement at %L must be "  in check_io_constraints()
4216 		  gfc_error ("Comma after * at %C not allowed without I/O list");  in match_io()
4389 	  gfc_error ("Expected comma in I/O list at %C");  in match_io()
4422   gfc_error ("Syntax error in %s statement at %C", io_kind_name (k));  in match_io()
4456       gfc_error ("PRINT statement at %C not allowed within PURE procedure");  in gfc_match_print()
4618 	    gfc_error ("NULL() near %L cannot appear in INQUIRE statement",  in gfc_match_inquire()
4630 	  gfc_error ("INQUIRE statement not allowed in PURE procedure at %C");  in gfc_match_inquire()
4658 	  gfc_error ("IOLENGTH tag invalid in INQUIRE statement at %C");  in gfc_match_inquire()
4668       gfc_error ("INQUIRE statement at %L cannot contain both FILE and "  in gfc_match_inquire()
4675       gfc_error ("INQUIRE statement at %L requires either FILE or "  in gfc_match_inquire()
4685       gfc_error ("UNIT number in INQUIRE statement at %L cannot "  in gfc_match_inquire()
4692       gfc_error ("INQUIRE statement not allowed in PURE procedure at %C");  in gfc_match_inquire()
4700       gfc_error ("INQUIRE statement at %L requires a PENDING= specifier with "  in gfc_match_inquire()
4882       gfc_error ("WAIT statement not allowed in PURE procedure at %C");  in gfc_match_wait()