Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
pr85938.f90
blob: 99b5e68fdd673c7b0b17d4199d0d635bb4077471 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR fortran
/
85938
program foo
real a
(
9
),
b
(
3
)
integer
::
n
=
3
a
=
1.0
b
=
1.0
if
(
any
(
matmul
(
reshape
(
A
,
(
/ n, n /
)),
b
)
/=
3.
))
stop
1
end
program