Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
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