aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/bug029/fft1.vhdl
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/gna/bug029/fft1.vhdl')
-rw-r--r--testsuite/gna/bug029/fft1.vhdl15
1 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/gna/bug029/fft1.vhdl b/testsuite/gna/bug029/fft1.vhdl
new file mode 100644
index 000000000..5ea9cf327
--- /dev/null
+++ b/testsuite/gna/bug029/fft1.vhdl
@@ -0,0 +1,15 @@
+package fft_package is
+ TYPE complex IS ARRAY(0 TO 1) OF INTEGER;
+ function butterfly(X1: complex )return complex;
+END fft_package;
+
+package body fft_package is
+
+ function butterfly ( X1: complex )return complex is
+ VARIABLE Y1 : complex := X1;
+
+ BEGIN
+ return X1;
+ return Y1;
+ END butterfly;
+end fft_package;