From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Tue, 6 Jul 2004 14:47:27 +0000 (+0200)
Subject: Complete previous check-in.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=267a8fa96067eb399aa33af8ad4ec21fb40bf58e;p=gcc.git

Complete previous check-in.

From-SVN: r84154
---

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