diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/transpose_conjg_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/transpose_conjg_1.f90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/testsuite/gfortran.dg/transpose_conjg_1.f90 b/gcc/testsuite/gfortran.dg/transpose_conjg_1.f90 index 3b28827b38a..8865262517c 100644 --- a/gcc/testsuite/gfortran.dg/transpose_conjg_1.f90 +++ b/gcc/testsuite/gfortran.dg/transpose_conjg_1.f90 @@ -20,18 +20,18 @@ program main b = conjg(transpose(b)) d = a d = transpose(conjg(d)) - if (any (b /= d)) call abort () + if (any (b /= d)) STOP 1 ! d = matmul (b, a ) - if (any (d /= matmul (transpose(conjg(a)), a))) call abort () - if (any (d /= matmul (conjg(transpose(a)), a))) call abort () + if (any (d /= matmul (transpose(conjg(a)), a))) STOP 2 + if (any (d /= matmul (conjg(transpose(a)), a))) STOP 3 ! c = (0.0,1.0) b = conjg(transpose(a + c)) d = transpose(conjg(a + c)) - if (any (b /= d)) call abort () + if (any (b /= d)) STOP 4 ! d = matmul (b, a + c) - if (any (d /= matmul (transpose(conjg(a + c)), a + c))) call abort () - if (any (d /= matmul (conjg(transpose(a + c)), a + c))) call abort () + if (any (d /= matmul (transpose(conjg(a + c)), a + c))) STOP 5 + if (any (d /= matmul (conjg(transpose(a + c)), a + c))) STOP 6 END program main |