Sign in
gnu
/
gcc
/
f00b5710a30f22efc3171c393e56aeb335c3cd39
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
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