From 6db77714c4d66adfb58872d05c8e3aaef55c7e00 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 5 Jan 2014 17:09:57 +0100
Subject: Fix bug17759: individual associated to an element of array of array.

---
 sem_assocs.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'sem_assocs.adb')

diff --git a/sem_assocs.adb b/sem_assocs.adb
index 87081f4cf..c4a9bce74 100644
--- a/sem_assocs.adb
+++ b/sem_assocs.adb
@@ -489,6 +489,7 @@ package body Sem_Assocs is
                Sub := Create_Iir (Iir_Kind_Association_Element_By_Individual);
                Location_Copy (Sub, Formal);
                Set_Formal (Sub, Iassoc);
+               Set_Associated (Iassoc, Sub);
                Iassoc := Sub;
             else
                case Get_Kind (Sub) is
-- 
cgit v1.2.3