diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/dot_product_2.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/dot_product_2.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/dot_product_2.f90 b/gcc/testsuite/gfortran.dg/dot_product_2.f90 index d3a037db73a..f40122b8d13 100644 --- a/gcc/testsuite/gfortran.dg/dot_product_2.f90 +++ b/gcc/testsuite/gfortran.dg/dot_product_2.f90 @@ -13,24 +13,24 @@ !if (DOT_PRODUCT ((/ (1.0, 2.0), (2.0, 3.0) /), (/ (1.0, 1.0), (1.0, 4.0) /)) & ! /= SUM (CONJG ((/ (1.0, 2.0), (2.0, 3.0) /))*(/ (1.0, 1.0), (1.0, 4.0) /))) & -! call abort () +! STOP 1 ! !if (ANY (MATMUL ((/ (1.0, 2.0), (2.0, 3.0) /), & ! RESHAPE ((/ (1.0, 1.0), (1.0, 4.0) /),(/2, 1/))) /= & ! SUM ((/ (1.0, 2.0), (2.0, 3.0) /)*(/ (1.0, 1.0), (1.0, 4.0) /)))) & -! call abort () +! STOP 2 if (DOT_PRODUCT ((/ (1.0, 2.0), (2.0, 3.0) /), (/ (1.0, 1.0), (1.0, 4.0) /)) & /= CONJG (cmplx(1.0, 2.0)) * cmplx(1.0, 1.0) & + CONJG (cmplx(2.0, 3.0)) * cmplx(1.0, 4.0)) & - call abort () + STOP 3 if (ANY (MATMUL ((/ (1.0, 2.0), (2.0, 3.0) /), & RESHAPE ((/ (1.0, 1.0), (1.0, 4.0) /),(/2, 1/))) & /= cmplx(1.0, 2.0) * cmplx(1.0, 1.0) & + cmplx(2.0, 3.0) * cmplx(1.0, 4.0))) & - call abort () + STOP 4 end |