aggregate: set location on '('

1 files changed, 4 insertions, 5 deletions

diff --git a/parse.adb b/parse.adb
index b1ddc74..109c0bf 100644
--- a/parse.adb
+++ b/parse.adb
@@ -3487,7 +3487,10 @@ package body Parse is
       Loc : Location_Type;
    begin
       Loc := Get_Token_Location;
+
+      --  Skip '('
       Scan;
+
       if Current_Token /= Tok_Others then
          Expr := Parse_Expression;
          case Current_Token is
@@ -3516,11 +3519,7 @@ package body Parse is
          Expr := Null_Iir;
       end if;
       Res := Create_Iir (Iir_Kind_Aggregate);
-      if Expr /= Null_Iir then
-         Location_Copy (Res, Expr);
-      else
-         Set_Location (Res);
-      end if;
+      Set_Location (Res, Loc);
       Build_Init (Last);
       loop
          if Current_Token = Tok_Others then