comparison libgomp/testsuite/libgomp.c/lib-1.c @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents a06113de4d67
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
83 abort (); 83 abort ();
84 #pragma omp parallel reduction (|:l) 84 #pragma omp parallel reduction (|:l)
85 l = ! omp_in_parallel (); 85 l = ! omp_in_parallel ();
86 #pragma omp parallel reduction (|:l) if (1) 86 #pragma omp parallel reduction (|:l) if (1)
87 l = ! omp_in_parallel (); 87 l = ! omp_in_parallel ();
88 if (l)
89 abort ();
88 90
89 e = omp_get_wtime (); 91 e = omp_get_wtime ();
90 if (d > e) 92 if (d > e)
91 abort (); 93 abort ();
92 d = omp_get_wtick (); 94 d = omp_get_wtick ();