Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/matmul_bounds_6.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } program main real, dimension(3,2) :: a real, dimension(6) :: b real, dimension(3) :: res1 real, dimension(:), allocatable :: c1, c2,c3 real, dimension(2) :: res2 data a /-2., 3., -5., 7., -11., 13./ data b /17., -23., 29., -31., 37., -41./ data res1 /201., -320., 336./ data res2 /158., -353./ c1 = matmul(a,[29.,37.]) if (size(c1,1) /= 3) call abort if (any(c1/=res1)) call abort c2 = matmul(a,pack(b,[b>20.])) if (size(c1,1) /= 3) call abort if (any(c1/=res1)) call abort c3 = matmul(pack(b,[b<0.]),a) if (size(c3,1) /= 2) call abort if (any(c3 /= res2)) call abort end program main