diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/inline_matmul_7.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inline_matmul_7.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_7.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_7.f90 index fa2021dd856..34716bc5daa 100644 --- a/gcc/testsuite/gfortran.dg/inline_matmul_7.f90 +++ b/gcc/testsuite/gfortran.dg/inline_matmul_7.f90 @@ -23,10 +23,10 @@ program main DO i=1,N v1 = MATMUL(a,b(:,i)) - if (any(abs(v1-v1res(:,i)) > 1e-10)) call abort + if (any(abs(v1-v1res(:,i)) > 1e-10)) STOP 1 v2 = MATMUL(a,b(i,:)) - if (any(abs(v2-v2res(:,i)) > 1e-10)) call abort + if (any(abs(v2-v2res(:,i)) > 1e-10)) STOP 2 ENDDO |