Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/matmul_bounds_1.f90 @ 158:494b0b89df80 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do compile }
program matmul_bounds_1
  implicit none
  real, dimension(3,2) :: a
  real, dimension(2,3) :: b
  real, dimension(3,2) :: rab
  real, dimension(2,2) :: rok
  real, dimension(2) :: rv
  real, dimension(3) :: rw
  real, dimension(3) :: x
  real, dimension(2) :: y
  a = 1
  b = 2
  x = 3
  y = 4
  ! These tests should throw an error
  rab = matmul(a,b) ! { dg-error "Different shape" }
  rv = matmul(a,y) ! { dg-error "Different shape" }
  rv = matmul(x,b) ! { dg-error "Different shape" }
  ! These are ok.
  rw = matmul(a,y)
  rv = matmul(x,a)
  rok = matmul(b,a)
end program matmul_bounds_1