From 267a8fa96067eb399aa33af8ad4ec21fb40bf58e Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Tue, 6 Jul 2004 16:47:27 +0200
Subject: [PATCH] Complete previous check-in.

From-SVN: r84154
---
 gcc/ada/sem_util.adb | 4 ++++
 1 file changed, 4 insertions(+)

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
-- 
2.30.2