Sign in
gnu
/
gcc
/
f00b5710a30f22efc3171c393e56aeb335c3cd39
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
matmul_17.f90
blob: dc4c4184b35f1cda14acfef7d02e0320190459a4 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR
Fortran
/
83900
!
Contributed
by
Gerhard
Steinmetz
<
gscfq t t
-
online dot de
>
program p
integer
,
parameter
::
a
(
3
,
2
)
=
1
real
,
parameter
::
b
(
2
,
3
)
=
2
real
,
parameter
::
c
(
3
,
3
)
=
matmul
(
a
,
b
)
if
(
any
(
c
/=
4.
))
STOP
1
end