1 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/subtypes/modified-character-subtype.vhdl b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/subtypes/modified-character-subtype.vhdl
new file mode 100644
index 000000000..c64b80b12
--- /dev/null
+++ b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/subtypes/modified-character-subtype.vhdl
@@ -0,0 +1,15 @@
+entity test is
+end test;
+
+architecture only of test is
+begin  -- only
+  doit: process
+    subtype sub_character is character range 'A' to 'Z';
+    constant x : sub_character;
+  begin
+    assert x = sub_character'left report "TEST FAILED" severity FAILURE;
+    report "TEST PASSED";
+    wait;
+  end process;   
+  
+end only;