Sign in
llvm
/
llvm-test-suite
/
refs/tags/llvmorg-19.1.2
/
.
/
Fortran
/
gfortran
/
regression
/
pr101026.f
blob: 9576d8802ca6561ffe1a94fc3f9d737da4a46296 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-Ofast -frounding-math"
}
SUBROUTINE PASSB4
(
CC
,
CH
)
DIMENSION CC
(
IDO
,
4
,
L1
),
CH
(
IDO
,
L1
,*)
DO
103
I
=
2
,
IDO
,
2
TI4
=
CC0
-
CC
(
I
,
4
,
K
)
CI4
=
TI1
-
TI4
CH
(
I
-
1
,
K
,
4
)
=
CI4
CH
(
I
,
K
,
4
)
=
CI4
103
CONTINUE
END
