Sign in
llvm
/
llvm-test-suite
/
refs/tags/llvmorg-19.1.2
/
.
/
Fortran
/
gfortran
/
regression
/
matmul_18.f90
blob: 2ff7c081151e95e5aa150b0eb25a9c21faab332d [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program p
integer
,
parameter
::
a
(
3
,
2
)
=
1
real
,
parameter
::
b
(
2
,
3
)
=
2
real d
(
3
,
3
)
d
=
4
if
(
any
(
d
/=
matmul
(
a
,
b
)))
STOP
1
end
