aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/issue320
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2017-03-16 06:59:05 +0100
committerTristan Gingold <tgingold@free.fr>2017-03-16 06:59:05 +0100
commit18149662b330de3d6085bddf168f4f513fd4f8fa (patch)
tree09fc2a1b49f3e19e2d40e498298cd6061f114bad /testsuite/gna/issue320
parent278802df9706d2b8ffa6731da110cdfb9be1ce7a (diff)
downloadghdl-18149662b330de3d6085bddf168f4f513fd4f8fa.tar.gz
ghdl-18149662b330de3d6085bddf168f4f513fd4f8fa.tar.bz2
ghdl-18149662b330de3d6085bddf168f4f513fd4f8fa.zip
Add testcase for #320
Diffstat (limited to 'testsuite/gna/issue320')
-rw-r--r--testsuite/gna/issue320/fuu.vhdl15
-rwxr-xr-xtestsuite/gna/issue320/testsuite.sh10
2 files changed, 25 insertions, 0 deletions
diff --git a/testsuite/gna/issue320/fuu.vhdl b/testsuite/gna/issue320/fuu.vhdl
new file mode 100644
index 000000000..d6a076424
--- /dev/null
+++ b/testsuite/gna/issue320/fuu.vhdl
@@ -0,0 +1,15 @@
+entity fuu is
+end entity;
+
+architecture fum of fuu is
+ function fie return string is
+ begin
+ return "11010011";
+ end function;
+begin
+ process
+ begin
+ report "expression'right = " & integer'image(fie'RIGHT);
+ wait;
+ end process;
+end architecture;
diff --git a/testsuite/gna/issue320/testsuite.sh b/testsuite/gna/issue320/testsuite.sh
new file mode 100755
index 000000000..3dd348552
--- /dev/null
+++ b/testsuite/gna/issue320/testsuite.sh
@@ -0,0 +1,10 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+analyze fuu.vhdl
+elab_simulate fuu
+
+clean
+
+echo "Test successful"