3 real, dimension(3,2) :: a
4 real, dimension(3) :: bp
5 real, dimension(3) :: res1
6 real, dimension(:), allocatable
:: c3
7 real, dimension(2) :: res2
9 data a
/-2., 3., -5., 7., -11., 13./
10 data bp
/-23., -31., -41./
11 data res2
/158., -353./
14 if (size(c3
,1) /= 2) call abort
15 if (any(c3
/= res2
)) call abort