Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
pr92977.f90
blob: 0c31f470a94e6e61ab798566590df1df7060fb15 [
file
] [
log
] [
blame
]
!
PR fortran
/
92977
!
{
dg
-
do
compile
}
!
{
dg
-
additional
-
options
"-O2"
}
program pr92977
integer
::
n
=
1
integer
::
a
!
$omp atomic write
a
=
f
(
n
)
-
f
(
n
)
contains
integer
function
f
(
x
)
integer
,
intent
(
in
)
::
x
f
=
x
end
end