summaryrefslogtreecommitdiff
path: root/testsuite/gna/ticket73/bug.vhdl
diff options
context:
space:
mode:
authorTristan Gingold2015-05-19 20:36:47 +0200
committerTristan Gingold2015-05-19 20:36:47 +0200
commitf4ec019f5f2e826f715a3bdf2285216008e833e7 (patch)
treedbdc73447ad1517929dd37ffbc0a5ad1bd9e5834 /testsuite/gna/ticket73/bug.vhdl
parent90133dc36dfe0eeff360ca3ba20275ebe1381ffb (diff)
downloadghdl-f4ec019f5f2e826f715a3bdf2285216008e833e7.tar.gz
ghdl-f4ec019f5f2e826f715a3bdf2285216008e833e7.tar.bz2
ghdl-f4ec019f5f2e826f715a3bdf2285216008e833e7.zip
Testcase for ticket 73.
Diffstat (limited to 'testsuite/gna/ticket73/bug.vhdl')
-rw-r--r--testsuite/gna/ticket73/bug.vhdl17
1 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/gna/ticket73/bug.vhdl b/testsuite/gna/ticket73/bug.vhdl
new file mode 100644
index 0000000..89f53db
--- /dev/null
+++ b/testsuite/gna/ticket73/bug.vhdl
@@ -0,0 +1,17 @@
+entity ent is
+end entity;
+
+architecture a of ent is
+ procedure proc(s : string) is
+ begin
+ report integer'image(s'left);
+ report integer'image(s'right);
+ report s;
+ end procedure;
+begin
+ main : process
+ begin
+ proc(s(4 to 15) => "Hello world!");
+ wait;
+ end process;
+end architecture;