blob: b21f02be392c9629b8b43956b18fee2504e1a8e4 (
plain)
1
2
3
4
5
6
7
8
9
|
! { 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.)) call abort
end
|