5 ! matmul checking was checking the wrong specific function
6 ! ("one" instead of "two")
11 module procedure one, two
21 two = reshape ( (/ x /), (/ 1, 1 /) )
27 res = matmul (one(2.0), (/ 2.0/))
28 if (abs (res(1)-4.0) > epsilon (res)) call abort ()