From f902e467b75671d06d1e9ad3663b8aa9366bc14b Mon Sep 17 00:00:00 2001 From: Jonathan Peyton Date: Mon, 13 Nov 2017 17:44:48 +0000 Subject: [OpenMP] Remove the unused testsuite/ directory The testsuite directory is not used or updated and confuses new users to the OpenMP project. These tests were rewritten using the lit format and put under the runtime/test directory. This patch removes the entire testsuite/ directory. Differential Revision: https://reviews.llvm.org/D39767 llvm-svn: 318056 --- .../testsuite/c/omp_parallel_sections_reduction.c | 568 --------------------- 1 file changed, 568 deletions(-) delete mode 100644 openmp/testsuite/c/omp_parallel_sections_reduction.c (limited to 'openmp/testsuite/c/omp_parallel_sections_reduction.c') diff --git a/openmp/testsuite/c/omp_parallel_sections_reduction.c b/openmp/testsuite/c/omp_parallel_sections_reduction.c deleted file mode 100644 index cadea6a2468..00000000000 --- a/openmp/testsuite/c/omp_parallel_sections_reduction.c +++ /dev/null @@ -1,568 +0,0 @@ - -Test which checks the omp parallel sections reduction directive with all its option. -2.0 -omp parallel sections reduction - -#include -#include -#include "omp_testsuite.h" - - -int omp_parallel_sections_reduction(FILE * logFile){ - - int sum; - int known_sum; - double dpt; - double dsum; - double dknown_sum; - double dt=0.5; /* base of geometric row for + and - test*/ - double rounding_error= 1.E-5; - int diff; - double ddiff; - int product; - int known_product; - int logic_and; - int bit_and; - int logic_or; - int bit_or; - int exclusiv_bit_or; - int logics[1000]; - int i; - int result; - - - sum = 7; - dsum=0; - product =1; - dpt = 1; - logic_and=1; - bit_and=1; - logic_or=0; - bit_or=0; - exclusiv_bit_or=0; - result =0; - /* int my_islarger;*/ - /*int is_larger=1;*/ - known_sum = (999*1000)/2+7; - - -#pragma omp parallel sections private(i) reduction(+:sum) - { -#pragma omp section - { - for (i=1;i<300;i++) - { - sum=sum+i; - } - } -#pragma omp section - { - for (i=300;i<700;i++) - { - sum=sum+i; - } - } -#pragma omp section - { - for (i=700;i<1000;i++) - { - sum=sum+i; - } - } - } - - if(known_sum!=sum) - { - result++; - fprintf(logFile,"Error in sum with integers: Result was %d instead of %d.\n",sum, known_sum); - } - - diff = (999*1000)/2; -#pragma omp parallel sections private(i) reduction(-:diff) - { -#pragma omp section - { - for (i=1;i<300;i++) - { - diff=diff-i; - } - } -#pragma omp section - { - for (i=300;i<700;i++) - { - diff=diff-i; - } - } -#pragma omp section - { - for (i=700;i<1000;i++) - { - diff=diff-i; - } - } - } - - - if(diff != 0) - { - result++; - fprintf(logFile,"Error in Difference with integers: Result was %d instead of 0.\n",diff); - } - for (i=0;i<20;++i) - { - dpt*=dt; - } - dknown_sum = (1-dpt)/(1-dt); -#pragma omp parallel sections private(i) reduction(+:dsum) - { -#pragma omp section - { - for (i=0;i<6;++i) - { - dsum += pow(dt,i); - } - } -#pragma omp section - { - for (i=6;i<12;++i) - { - dsum += pow(dt,i); - } - } -#pragma omp section - { - for (i=12;i<20;++i) - { - dsum += pow(dt,i); - } - } - } - - - if( fabs(dsum-dknown_sum) > rounding_error ) - { - result++; - fprintf(logFile,"Error in sum with doubles: Result was %f instead of %f (Difference: %E)\n",dsum,dknown_sum, dsum-dknown_sum); - } - - dpt=1; - - for (i=0;i<20;++i) - { - dpt*=dt; - } - fprintf(logFile,"\n"); - ddiff = (1-dpt)/(1-dt); -#pragma omp parallel sections private(i) reduction(-:ddiff) - { -#pragma omp section - { - for (i=0;i<6;++i) - { - ddiff -= pow(dt,i); - } - } -#pragma omp section - { - for (i=6;i<12;++i) - { - ddiff -= pow(dt,i); - } - } -#pragma omp section - { - for (i=12;i<20;++i) - { - ddiff -= pow(dt,i); - } - } - } - - if( fabs(ddiff) > rounding_error) - { - result++; - fprintf(logFile,"Error in Difference with doubles: Result was %E instead of 0.0\n",ddiff); - } - - known_product = 3628800; -#pragma omp parallel sections private(i) reduction(*:product) - { -#pragma omp section - { - for(i=1;i<3;i++) - { - product *= i; - } - } -#pragma omp section - { - for(i=3;i<7;i++) - { - product *= i; - } - } -#pragma omp section - { - for(i=7;i<11;i++) - { - product *= i; - } - } - } - - - if(known_product != product) - { - result++; - fprintf(logFile,"Error in Product with integers: Result was %d instead of %d\n",product,known_product); - } - - for(i=0;i<1000;i++) - { - logics[i]=1; - } - -#pragma omp parallel sections private(i) reduction(&&:logic_and) - { -#pragma omp section - { - for (i=1;i<300;i++) - { - logic_and = (logic_and && logics[i]); - } - } -#pragma omp section - { - for (i=300;i<700;i++) - { - logic_and = (logic_and && logics[i]); - } - } -#pragma omp section - { - for (i=700;i<1000;i++) - { - logic_and = (logic_and && logics[i]); - } - } - } - - if(!logic_and) - { - result++; - fprintf(logFile,"Error in logic AND part 1\n"); - } - - logic_and = 1; - logics[501] = 0; - -#pragma omp parallel sections private(i) reduction(&&:logic_and) - { -#pragma omp section - { - for (i=1;i<300;i++) - { - logic_and = (logic_and && logics[i]); - } - } -#pragma omp section - { - for (i=300;i<700;i++) - { - logic_and = (logic_and && logics[i]); - } - } -#pragma omp section - { - for (i=700;i<1000;i++) - { - logic_and = (logic_and && logics[i]); - } - } - } - - if(logic_and) - { - result++; - fprintf(logFile,"Error in logic AND part 2"); - } - - for(i=0;i<1000;i++) - { - logics[i]=0; - } - -#pragma omp parallel sections private(i) reduction(||:logic_or) - { -#pragma omp section - { - for (i=1;i<300;i++) - { - logic_or = (logic_or || logics[i]); - } - } -#pragma omp section - { - for (i=300;i<700;i++) - { - logic_or = (logic_or || logics[i]); - } - } -#pragma omp section - { - for (i=700;i<1000;i++) - { - logic_or = (logic_or || logics[i]); - } - } - } - - if(logic_or) - { - result++; - fprintf(logFile,"Error in logic OR part 1\n"); - } - - logic_or = 0; - logics[501]=1; - -#pragma omp parallel sections private(i) reduction(||:logic_or) - { -#pragma omp section - { - for (i=1;i<300;i++) - { - logic_or = (logic_or || logics[i]); - } - } -#pragma omp section - { - for (i=300;i<700;i++) - { - logic_or = (logic_or || logics[i]); - } - } -#pragma omp section - { - for (i=700;i<1000;i++) - { - logic_or = (logic_or || logics[i]); - } - } - } - - if(!logic_or) - { - result++; - fprintf(logFile,"Error in logic OR part 2\n"); - } - - for(i=0;i<1000;++i) - { - logics[i]=1; - } - -#pragma omp parallel sections private(i) reduction(&:bit_and) - { -#pragma omp section - { - for(i=0;i<300;++i) - { - bit_and = (bit_and & logics[i]); - } - } -#pragma omp section - { - for(i=300;i<700;++i) - { - bit_and = (bit_and & logics[i]); - } - } -#pragma omp section - { - for(i=700;i<1000;++i) - { - bit_and = (bit_and & logics[i]); - } - } - } - if(!bit_and) - { - result++; - fprintf(logFile,"Error in BIT AND part 1\n"); - } - - bit_and = 1; - logics[501]=0; - -#pragma omp parallel sections private(i) reduction(&:bit_and) - { -#pragma omp section - { - for(i=0;i<300;++i) - { - bit_and = bit_and & logics[i]; - } - } -#pragma omp section - { - for(i=300;i<700;++i) - { - bit_and = bit_and & logics[i]; - } - } -#pragma omp section - { - for(i=700;i<1000;++i) - { - bit_and = bit_and & logics[i]; - } - } - } - if(bit_and) - { - result++; - fprintf(logFile,"Error in BIT AND part 2"); - } - - for(i=0;i<1000;i++) - { - logics[i]=0; - } - -#pragma omp parallel sections private(i) reduction(|:bit_or) - { -#pragma omp section - { - for(i=0;i<300;++i) - { - bit_or = bit_or | logics[i]; - } - } -#pragma omp section - { - for(i=300;i<700;++i) - { - bit_or = bit_or | logics[i]; - } - } -#pragma omp section - { - for(i=700;i<1000;++i) - { - bit_or = bit_or | logics[i]; - } - } - } - if(bit_or) - { - result++; - fprintf(logFile,"Error in BIT OR part 1\n"); - } - bit_or = 0; - logics[501]=1; - -#pragma omp parallel sections private(i) reduction(|:bit_or) - { -#pragma omp section - { - for(i=0;i<300;++i) - { - bit_or = bit_or | logics[i]; - } - } -#pragma omp section - { - for(i=300;i<700;++i) - { - bit_or = bit_or | logics[i]; - } - } -#pragma omp section - { - for(i=700;i<1000;++i) - { - bit_or = bit_or | logics[i]; - } - } - } - if(!bit_or) - { - result++; - fprintf(logFile,"Error in BIT OR part 2\n"); - } - - for(i=0;i<1000;i++) - { - logics[i]=0; - } - -#pragma omp parallel sections private(i) reduction(^:exclusiv_bit_or) - { -#pragma omp section - { - for(i=0;i<300;++i) - { - exclusiv_bit_or = exclusiv_bit_or ^ logics[i]; - } - } -#pragma omp section - { - for(i=300;i<700;++i) - { - exclusiv_bit_or = exclusiv_bit_or ^ logics[i]; - } - } -#pragma omp section - { - for(i=700;i<1000;++i) - { - exclusiv_bit_or = exclusiv_bit_or ^ logics[i]; - } - } - } - if(exclusiv_bit_or) - { - result++; - fprintf(logFile,"Error in EXCLUSIV BIT OR part 1\n"); - } - - exclusiv_bit_or = 0; - logics[501]=1; - -#pragma omp parallel sections private(i) reduction(^:exclusiv_bit_or) - { -#pragma omp section - { - for(i=0;i<300;++i) - { - exclusiv_bit_or = exclusiv_bit_or ^ logics[i]; - } - } -#pragma omp section - { - for(i=300;i<700;++i) - { - exclusiv_bit_or = exclusiv_bit_or ^ logics[i]; - } - } -#pragma omp section - { - for(i=700;i<1000;++i) - { - exclusiv_bit_or = exclusiv_bit_or ^ logics[i]; - } - } - } - if(!exclusiv_bit_or) - { - result++; - fprintf(logFile,"Error in EXCLUSIV BIT OR part 2\n"); - } - - /*printf("\nResult:%d\n",result);*/ - return (result==0); -} - - -- cgit v1.2.3