http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48844
--- Comment #4 from Eric Botcazou <ebotcazou at gcc dot gnu.org> 2011-05-05 16:22:21 UTC --- Author: ebotcazou Date: Thu May 5 16:22:16 2011 New Revision: 173442 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=173442 Log: PR ada/48844 * gcc-interface/gigi.h (get_variant_part): Declare. * gcc-interface/decl.c (get_variant_part): Make global. * gcc-interface/utils2.c (find_common_type): Do not return T1 if the types have the same constant size, are record types and T1 has a variant part while T2 doesn't. Added: trunk/gcc/testsuite/gnat.dg/discr29.adb trunk/gcc/testsuite/gnat.dg/discr29.ads trunk/gcc/testsuite/gnat.dg/discr30.adb Modified: trunk/gcc/ada/ChangeLog trunk/gcc/ada/gcc-interface/decl.c trunk/gcc/ada/gcc-interface/gigi.h trunk/gcc/ada/gcc-interface/utils2.c trunk/gcc/testsuite/ChangeLog