matmul_18.f90 « gfortran.dg « testsuite « gcc - ampere-computing/gcc.git - GCC including Ampere Computing toolchain specific patches

summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/matmul_18.f90

blob: acfd3c304cac7c4be52549415670b47c07b25f71 (plain)

! { 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))) call abort
end