TestICE.C

Go to the documentation of this file.

#include "Testing.H"
#include "CSTestKernels.H"

void TestICE(ix::test::results &serialUnitResults)
{
#pragma @ICE block=simpleReplaceC
  bool testPass = false;
#pragma @ICE endblock
  serialUnitResults.UpdateResult("ICE:SimpleReplaceC++",testPass);

  int kernelResult;
  FC_GLOBAL(testkernel,TESTKERNEL)(&kernelResult);
  // ICE replaces code to make this return 1, otherwise it will be 0
  if(kernelResult == 0)
    testPass= false;
  else 
    testPass = true;
  serialUnitResults.UpdateResult("ICE:SimpleReplaceFortran",testPass);

  // test for loop unrolling
  testPass=false; 
  kernelResult=-1;
  FC_GLOBAL(iceunrollfortrantestkernel,ICEUNROLLFORTRANTESTKERNEL)(&kernelResult);
  if(kernelResult == 1386)
    testPass= true;
  serialUnitResults.UpdateResult("ICE:UnrollResultFortran",testPass);

  testPass=false; 
  kernelResult=-1;
  ICEUnrollCxxTestKernel(kernelResult);
  if(kernelResult == 895)
    testPass= true;
  serialUnitResults.UpdateResult("ICE:UnrollResultC",testPass);

  // test for loop interchange
  testPass=false; 
  kernelResult=-1;
  FC_GLOBAL(iceinterchangefortrantestkernel,ICEINTERCHANGEFORTRANTESTKERNEL)(&kernelResult);
  if(kernelResult == 1386)
    testPass= true;
  serialUnitResults.UpdateResult("ICE:InterchangeResultFortran",testPass);

  testPass=false; 
  kernelResult=-1;
  ICEInterchangeCxxTestKernel(kernelResult);
  if(kernelResult == 895)
    testPass= true;
  serialUnitResults.UpdateResult("ICE:InterchangeResultC",testPass);

  // test for loop tiling
  testPass=false; 
  kernelResult=-1;
  FC_GLOBAL(icetilefortrantestkernel,ICETILEFORTRANTESTKERNEL)(&kernelResult);
  if(kernelResult == 1386)
    testPass= true;
  serialUnitResults.UpdateResult("ICE:TileResultFortran",testPass);

  testPass=false; 
  kernelResult=-1;
  ICETileCxxTestKernel(kernelResult);
  if(kernelResult == 895)
    testPass= true;
  serialUnitResults.UpdateResult("ICE:TileResultC",testPass);

  // test for loop strip mine
  testPass=false; 
  kernelResult=-1;
  FC_GLOBAL(icestripminefortrantestkernel,ICESTRIPMINEFORTRANTESTKERNEL)(&kernelResult);
  if(kernelResult == 1386)
    testPass= true;
  serialUnitResults.UpdateResult("ICE:StripMineResultFortran",testPass);

  testPass=false; 
  kernelResult=-1;
  ICEStripMineCxxTestKernel(kernelResult);
  if(kernelResult == 895)
    testPass= true;
  serialUnitResults.UpdateResult("ICE:StripMineResultC",testPass);
}