aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/bug029/fft2.vhdl
blob: d6c64b4623598d6d455f8dc79fddbaca261ec186 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
package fft_package is
  TYPE complex IS ARRAY(0 TO 1) OF INTEGER;
  function butterfly(X1, X2 , W : complex )return complex;
END fft_package;

package body fft_package is

    function butterfly ( X1, X2 , W : complex )return complex is

    BEGIN
         return X1;
         return X2;
    END butterfly;
end fft_package;