Fix regression of vhpi9 test case

nickg · Aug 12, 2023 · 445454b · 445454b
1 parent d8bbc2a
commit 445454b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/lower.c b/src/lower.c
@@ -2691,7 +2691,8 @@ static vcode_reg_t lower_link_var(lower_unit_t *lu, tree_t decl)
                      istr(tree_ident(decl)));
       }
    }
-   else if (lu->mode == LOWER_THUNK && lu->parent == NULL) {
+   else if (lu->mode == LOWER_THUNK && lu->parent == NULL
+            && tree_has_value(decl)) {
       // Handle a special case of simplifying locally static expressions
       // that reference constant declarations
       assert(tree_kind(decl) == T_CONST_DECL);

diff --git a/test/regress/testlist.txt b/test/regress/testlist.txt
@@ -848,3 +848,4 @@ open1           normal,2019
 issue750        normal,2008
 order3          shell
 driver18        normal,2008
+vhpi9           normal,vhpi