https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99020
--- Comment #3 from CVS Commits <cvs-commit at gcc dot gnu.org> --- The master branch has been updated by Eric Botcazou <ebotca...@gcc.gnu.org>: https://gcc.gnu.org/g:3104dbdcf4a2b7766b5570a0fa2d30157082f04e commit r11-7444-g3104dbdcf4a2b7766b5570a0fa2d30157082f04e Author: Eric Botcazou <ebotca...@adacore.com> Date: Tue Mar 2 01:04:10 2021 +0100 Do not call Set_Cloned_Subtype on private type Build_Discriminated_Subtype may be invoked on a E_Record_Type_With_Private, in which case it builds a E_Record_Subtype_With_Private which does not have the Cloned_Subtype field. gcc/ada/ PR ada/99020 * sem_ch3.adb (Build_Discriminated_Subtype): Set the Cloned_Subtype only if the type is not private.
