Complete previous check-in.

From-SVN: r84154

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 1f23ef3063fe2fc91ba2cbdfd1ab2eca3517aaf6..11da616f8ef046ce5beb42195a23603237d34a20 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