vhdl-parse.adb: parse pathname expression

1 files changed, 10 insertions, 0 deletions

diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb
index 177d46f88..310922f19 100644
--- a/src/vhdl/vhdl-parse.adb
+++ b/src/vhdl/vhdl-parse.adb
@@ -1391,6 +1391,16 @@ package body Vhdl.Parse is
          --  Skip identifier.
          Scan;
 
+         if Current_Token = Tok_Left_Paren then
+            --  Skip '('.
+            Scan;
+
+            Set_Pathname_Expression (El, Parse_Expression);
+
+            --  Skip ')'.
+            Expect_Scan (Tok_Right_Paren);
+         end if;
+
          exit when Current_Token /= Tok_Dot;
 
          --  Skip '.'.