Libgomp: testsuite/libgomp.c/pr48591.c Source File

00001 /* PR middle-end/48591 */
00002 /* { dg-do run { target i?86-*-linux* x86_64-*-linux* ia64-*-linux* } } */
00003 /* { dg-options "-fopenmp" } */
00004 
00005 extern void abort (void);
00006 
00007 int
00008 main ()
00009 {
00010   __float128 f = 0.0;
00011   int i;
00012   #pragma omp parallel for reduction(+:f)
00013     for (i = 0; i < 128; i++)
00014       f += 0.5Q;
00015   if (f != 64.0Q)
00016     abort ();
00017   #pragma omp atomic
00018     f += 8.5Q;
00019   if (f != 72.5Q)
00020     abort ();
00021   return 0;
00022 }