/* Test for rfft: rand */#define NX 8#define FNAME "t1"#define MAXERROR 10#pragma DATA_SECTION (x,".input")DATA x[NX] ={
3687,	/* 0 */ 
-2203,	/* 1 */ 
875,	/* 2 */ 
-115,	/* 3 */ 
3205,	/* 4 */ 
2146,	/* 5 */ 
-357,	/* 6 */ 
-3945,	/* 7 */ 
};

#pragma DATA_SECTION (rtest,".test")/* format: y(0)Re,y(N/2)Re,y(1)Re,y(1)Im,y(2)Re,y(2)Im,..y(N/2-1)Re,y(N/2-1)Im */
DATA rtest[NX] ={
412,	1440,	 /* 0Re, (N/2)Re {Nyquitst} */ 
-663,	108,	 /* 1 */ 
796,	500,	 /* 2 */ 
783,	-200,	 /* 3 */ 
};

DATA error;