aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/issue1453/bug.vhdl
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/gna/issue1453/bug.vhdl')
-rw-r--r--testsuite/gna/issue1453/bug.vhdl13
1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/gna/issue1453/bug.vhdl b/testsuite/gna/issue1453/bug.vhdl
new file mode 100644
index 000000000..3be7969eb
--- /dev/null
+++ b/testsuite/gna/issue1453/bug.vhdl
@@ -0,0 +1,13 @@
+library ieee;
+use ieee.numeric_std.all;
+package bug is
+ subtype byte is unsigned (7 downto 0);
+ subtype word is unsigned (15 downto 0);
+ function high_byte(w: word) return byte;
+end bug;
+package body bug is
+ function high_byte(w: word) return byte is
+ begin
+ return (7 downto 0 => w(15 downto 8));
+ end;
+end bug;