378   locus old_loc;  in match_data_constant()  local
394   old_loc = gfc_current_locus;  in match_data_constant()
432   gfc_current_locus = old_loc;  in match_data_constant()
459       gfc_current_locus = old_loc;  in match_data_constant()
2369       locus old_loc;  in gfc_match_null()  local
2375       old_loc = gfc_current_locus;  in gfc_match_null()
2383 	  gfc_current_locus = old_loc;  in gfc_match_null()
3594     locus old_loc;  in match_record_decl()  local
3595     old_loc = gfc_current_locus;  in match_record_decl()
3603                 gfc_current_locus = old_loc;  in match_record_decl()
3613   gfc_current_locus = old_loc;  in match_record_decl()
6906   locus old_loc, entry_loc;  in match_procedure_interface()  local
6910   old_loc = entry_loc = gfc_current_locus;  in match_procedure_interface()
6920   old_loc = gfc_current_locus;  in match_procedure_interface()
6930   gfc_current_locus = old_loc;  in match_procedure_interface()
7364   locus old_loc;  in gfc_match_function_decl()  local
7376   old_loc = gfc_current_locus;  in gfc_match_function_decl()
7381       gfc_current_locus = old_loc;  in gfc_match_function_decl()
7387       gfc_current_locus = old_loc;  in gfc_match_function_decl()
7493       sym->declared_at = old_loc;  in gfc_match_function_decl()
7521   gfc_current_locus = old_loc;  in gfc_match_function_decl()
7599   locus old_loc;  in gfc_match_entry()  local
7720   old_loc = gfc_current_locus;  in gfc_match_entry()
7751 				&old_loc))  in gfc_match_entry()
7772 	  gfc_current_locus = old_loc;  in gfc_match_entry()
7820 				&old_loc))  in gfc_match_entry()
8250   locus old_loc;  in gfc_match_end()  local
8260   old_loc = gfc_current_locus;  in gfc_match_end()
8434   old_loc = gfc_current_locus;  in gfc_match_end()
8442 			       : gfc_ascii_statement(*st), &old_loc))  in gfc_match_end()
8449 		     gfc_ascii_statement (*st), &old_loc);  in gfc_match_end()
8460 		 ? "END PROCEDURE" : gfc_ascii_statement(*st), &old_loc);  in gfc_match_end()
8466   old_loc = gfc_current_locus;  in gfc_match_end()
8480 		 block_name, gfc_ascii_statement (*st), &old_loc);  in gfc_match_end()
8531   gfc_current_locus = old_loc;  in gfc_match_end()
10195   locus old_loc;  in gfc_match_map()  local
10197   old_loc = gfc_current_locus;  in gfc_match_map()
10202 	gfc_current_locus = old_loc;  in gfc_match_map()
10210   if (!get_struct_decl (name, FL_STRUCT, &old_loc, &sym))  in gfc_match_map()
10228   locus old_loc;  in gfc_match_union()  local
10230   old_loc = gfc_current_locus;  in gfc_match_union()
10235 	gfc_current_locus = old_loc;  in gfc_match_union()
10243   if (!get_struct_decl (name, FL_UNION, &old_loc, &sym))  in gfc_match_union()
10334   locus old_loc;  in gfc_match_type()  local
10348   old_loc = gfc_current_locus;  in gfc_match_type()
10363       gfc_current_locus = old_loc;  in gfc_match_type()
10379       gfc_current_locus = old_loc;  in gfc_match_type()
10403   gfc_current_locus = old_loc;  in gfc_match_type()
10408   gfc_current_locus = old_loc;  in gfc_match_type()
10413   gfc_current_locus = old_loc;  in gfc_match_type()