repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.dg
/
gomp
/
pr48591.c
blob
e6cb106d8453228e110ce9045ef7c11cd47a4cac
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.5
Q
;
15
if
(
f
!=
64.0
Q
)
16
abort
();
17
#pragma omp atomic
18
f
+=
8.5
Q
;
19
if
(
f
!=
72.5
Q
)
20
abort
();
21
return
0
;
22
}