diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/inline_matmul_9.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inline_matmul_9.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_9.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_9.f90 index 901cd96e24f..074936ae2ce 100644 --- a/gcc/testsuite/gfortran.dg/inline_matmul_9.f90 +++ b/gcc/testsuite/gfortran.dg/inline_matmul_9.f90 @@ -15,10 +15,10 @@ program main data b1 / 2., -3., 5., -7., 11., -13./ c1 = matmul(a1(1,:)%c, b1) - if (any (c1-[248., -749.] /= 0.)) call abort + if (any (c1-[248., -749.] /= 0.)) STOP 1 c2 = matmul(a1%c, b1) - if (any (c2-reshape([248., -749.],shape(c2)) /= 0.)) call abort + if (any (c2-reshape([248., -749.],shape(c2)) /= 0.)) STOP 2 end program main ! { dg-final { scan-tree-dump-times "_gfortran_matmul" 0 "optimized" } } |