Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
vect
/
vect-1.f90
blob: 90b37e4688f1a5d12e9382844239bd3723b6b3ce [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
require
-
effective
-
target vect_float
}
DIMENSION A
(
1000000
),
B
(
1000000
),
C
(
1000000
)
READ
*,
X
,
Y
A
=
LOG
(
X
);
B
=
LOG
(
Y
);
C
=
A
+
B
PRINT
*,
C
(
500000
)
END
!
{
dg
-
final
{
scan
-
tree
-
dump
-
times
"vectorized 3 loops"
1
"vect"
}
}