https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66162
Eric Botcazou <ebotcazou at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|SUSPENDED |NEW
Summary|Bug box compiling |segfault on code using
|Ada.Finalization with |controlled types in -gnatc
|-gnatc |mode
--- Comment #5 from Eric Botcazou <ebotcazou at gcc dot gnu.org> ---
> That said, I get a very similar error compiling something that _uses_ the
> runtime:
>
> -- Copyright (C) Simon Wright <si...@pushface.org>
>
> -- This unit is free software; you can redistribute it and/or modify it
> -- as you wish. This unit is distributed in the hope that it will be
> -- useful, but WITHOUT ANY WARRANTY; without even the implied warranty
> -- of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
>
> with Ada.Finalization;
> package Finalizing is
>
> type F is new Ada.Finalization.Controlled with record
> V : Integer;
> end record;
>
> overriding
> procedure Adjust (Obj : in out F);
>
> overriding
> procedure Finalize (Obj : in out F);
>
> end Finalizing;
OK, this one ought to compile with -gnatc.
