proc fft_cplx_128_TS101 { {target_name "TS101"} {test_name "test1"} } {
  cd "..\\"
	set benchmark_name "fft_flp32_TS101"
	set outdata_name "output"
  set indata_name "input"

	puts [format "Testing %s (%s) on target: %s" $benchmark_name $test_name $target_name]


  # build the program
	catch { dspprojectclose }
  dspprojectload [format "%s.dpj" $benchmark_name]
	dspprojectbuild Debug -all -wait

	# run the program
  #load the executable
  dspload [format "debug\\%s.dxe" $benchmark_name]  -wait
	dsprun -wait
  puts "program was executed"
#wait until the DSP has halted
  dsphalt -wait

	set buf_size 256
	set fid [open "outputs/output_cplx_128.dat" w]
  puts $fid
	set memory [lindex [lindex [dspgetmeminfo] 0] 0]
	set outdata [dspgetmemblock $memory [dsplookupsymbol $outdata_name] $buf_size -format "Floating Point 32 bit"]

    set index 0
    while {$index < $buf_size} {
           set cur00 [lindex $outdata $index]
            puts $fid [format "%g" $cur00]
            set index [expr $index+1]
          }

  close $fid

  cd "tcl_TS101"
  puts "Done\n"

#	dspprojectclose
}