matmul_18.f90\gfortran.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

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

blob: 2ff7c081151e95e5aa150b0eb25a9c21faab332d (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))) STOP 1
end