forked from OSchip/llvm-project
52 lines
2.0 KiB
C
52 lines
2.0 KiB
C
|
int main()
|
||
|
|
{
|
||
|
|
int i; /* Loop index */
|
||
|
|
int result; /* return value of the program */
|
||
|
|
int failed=0; /* Number of failed tests */
|
||
|
|
int success=0; /* number of succeeded tests */
|
||
|
|
static FILE * logFile; /* pointer onto the logfile */
|
||
|
|
static const char * logFileName = "bin/c/<testfunctionname></testfunctionname>.log"; /* name of the logfile */
|
||
|
|
|
||
|
|
|
||
|
|
/* Open a new Logfile or overwrite the existing one. */
|
||
|
|
logFile = fopen(logFileName,"w+");
|
||
|
|
|
||
|
|
printf("######## OpenMP Validation Suite V %s ######\n", OMPTS_VERSION );
|
||
|
|
printf("## Repetitions: %3d ####\n",REPETITIONS);
|
||
|
|
printf("## Loop Count : %6d ####\n",LOOPCOUNT);
|
||
|
|
printf("##############################################\n");
|
||
|
|
printf("Testing <directive></directive>\n\n");
|
||
|
|
|
||
|
|
fprintf(logFile,"######## OpenMP Validation Suite V %s ######\n", OMPTS_VERSION );
|
||
|
|
fprintf(logFile,"## Repetitions: %3d ####\n",REPETITIONS);
|
||
|
|
fprintf(logFile,"## Loop Count : %6d ####\n",LOOPCOUNT);
|
||
|
|
fprintf(logFile,"##############################################\n");
|
||
|
|
fprintf(logFile,"Testing <directive></directive>\n\n");
|
||
|
|
|
||
|
|
for ( i = 0; i < REPETITIONS; i++ ) {
|
||
|
|
fprintf (logFile, "\n\n%d. run of <testfunctionname></testfunctionname> out of %d\n\n",i+1,REPETITIONS);
|
||
|
|
if(<testfunctionname></testfunctionname>(logFile)){
|
||
|
|
fprintf(logFile,"Test successful.\n");
|
||
|
|
success++;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
fprintf(logFile,"Error: Test failed.\n");
|
||
|
|
printf("Error: Test failed.\n");
|
||
|
|
failed++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if(failed==0){
|
||
|
|
fprintf(logFile,"\nDirective worked without errors.\n");
|
||
|
|
printf("Directive worked without errors.\n");
|
||
|
|
result=0;
|
||
|
|
}
|
||
|
|
else{
|
||
|
|
fprintf(logFile,"\nDirective failed the test %i times out of %i. %i were successful\n",failed,REPETITIONS,success);
|
||
|
|
printf("Directive failed the test %i times out of %i.\n%i test(s) were successful\n",failed,REPETITIONS,success);
|
||
|
|
result = (int) (((double) failed / (double) REPETITIONS ) * 100 );
|
||
|
|
}
|
||
|
|
printf ("Result: %i\n", result);
|
||
|
|
return result;
|
||
|
|
}
|