Complete previous check-in.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84154 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 1f23ef3..11da616 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -5768,6 +5768,10 @@ package body Sem_Util is
       --  has discriminant defaults if it is a discriminated record).
 
       elsif Is_Record_Type (Typ) then
+         if Has_Discriminants (Typ) then
+            return True;
+         end if;
+
          declare
             Comp : Entity_Id;
          begin