+2017-12-13 Eric Botcazou <ebotcazou@adacore.com>
+
+ * gcc-interface/trans.c (Subprogram_Body_to_gnu): Initialize locus.
+
2017-12-13 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/trans.c (process_freeze_entity): Be prepared for a
}
/* Set the line number in the decl to correspond to that of the body. */
- Sloc_to_locus (Sloc (gnat_node), &locus);
+ if (!Sloc_to_locus (Sloc (gnat_node), &locus))
+ locus = input_location;
DECL_SOURCE_LOCATION (gnu_subprog_decl) = locus;
/* If the body comes from an expression function, arrange it to be inlined