Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
inline_matmul_5.f90
blob: 3f5a9d391abb98171276299b4fd5a7578861f2f2 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-ffrontend-optimize"
}
program main
real
,
dimension
(
2
,
2
)
::
a
,
b
,
c
data a
/
2.
,
4.
,
8.
,
16.
/
data b
/
3.
,
9.
,
27.
,
81.
/
c
=
matmul
(
a
,
b
)
a
=
matmul
(
a
,
b
)
if
(
any
(
a
/=
c
))
STOP
1
end
program main
