Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/reduction-6.c @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* { dg-do run } */ extern void abort (void); int j; float f; int main () { j = -10000; f = 1024.0; int i; #pragma omp parallel for reduction (min:f) reduction (max:j) for (i = 0; i < 4; i++) switch (i) { case 0: if (j < -16) j = -16; break; case 1: if (f > -2.0) f = -2.0; break; case 2: if (j < 8) j = 8; if (f > 9.0) f = 9.0; break; case 3: break; } if (j != 8 || f != -2.0) abort (); return 0; }