OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Backported from mainline
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gcc.dg
/
gomp
/
pr48591.c
1
/* PR middle-end/48591 */
2
/* { dg-do compile { target i?86-*-* x86_64-*-* ia64-*-* } } */
3
/* { dg-options "-fopenmp" } */
4
5
extern void abort (void);
6
7
int
8
main ()
9
{
10
__float128 f = 0.0;
11
int i;
12
#pragma omp parallel for reduction(+:f)
13
for (i = 0; i < 128; i++)
14
f += 0.5Q;
15
if (f != 64.0Q)
16
abort ();
17
#pragma omp atomic
18
f += 8.5Q;
19
if (f != 72.5Q)
20
abort ();
21
return 0;
22
}