Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/generic_20.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
23 end module m 23 end module m
24 24
25 use m 25 use m
26 real :: res(1) 26 real :: res(1)
27 res = matmul (one(2.0), (/ 2.0/)) 27 res = matmul (one(2.0), (/ 2.0/))
28 if (abs (res(1)-4.0) > epsilon (res)) call abort () 28 if (abs (res(1)-4.0) > epsilon (res)) STOP 1
29 end 29 end