1 files changed, 3 insertions, 2 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb
index b36e35431..b8bd2cfad 100644
--- a/src/synth/synth-values.adb
+++ b/src/synth/synth-values.adb
@@ -89,9 +89,10 @@ package body Synth.Values is
             return False;
          when Value_Const =>
             return True;
+         when Value_Alias =>
+            return False;
          when Value_Instance
-           | Value_Subtype
-           | Value_Alias =>
+           | Value_Subtype =>
             --  Not really a value.
             raise Internal_Error;
       end case;