Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
vect
/
mask-store-1.f90
blob: 83cd8ddfea8cbe5e288c414c48956c1d76cd5ae4 [
file
] [
log
] [
blame
]
subroutine foo
(
a
,
b
,
x
,
n
)
real
(
kind
=
8
)
::
a
(
n
),
b
(
n
),
tmp
logical
(
kind
=
1
)
::
x
integer
(
kind
=
4
)
::
i
,
n
do
i
=
1
,
n
if
(
x
)
then
a
(
i
)
=
b
(
i
)
end
if
b
(
i
)
=
b
(
i
)
+
10
end
do
end
subroutine