Message ID | 201111041126.35217.ebotcazou@adacore.com |
---|---|
State | New |
Headers | show |
Index: gcc-interface/decl.c =================================================================== --- gcc-interface/decl.c (revision 180818) +++ gcc-interface/decl.c (working copy) @@ -4185,7 +4185,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entit /* The failure of this assertion will very likely come from an order of elaboration issue for the type of the parameter. */ gcc_assert (kind == E_Subprogram_Type - || !TYPE_IS_DUMMY_P (gnu_param_type)); + || !TYPE_IS_DUMMY_P (gnu_param_type) + || type_annotate_only); if (gnu_param) {