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