diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/inline_transpose_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/inline_transpose_1.f90 | 82 |
1 files changed, 41 insertions, 41 deletions
diff --git a/gcc/testsuite/gfortran.dg/inline_transpose_1.f90 b/gcc/testsuite/gfortran.dg/inline_transpose_1.f90 index 4195562c560..1204c972a21 100644 --- a/gcc/testsuite/gfortran.dg/inline_transpose_1.f90 +++ b/gcc/testsuite/gfortran.dg/inline_transpose_1.f90 @@ -27,160 +27,160 @@ a = p c = transpose(a) - if (any(c /= q)) call abort + if (any(c /= q)) STOP 1 write(u,*) transpose(a) write(v,*) q - if (u /= v) call abort + if (u /= v) STOP 2 e = r f = s g = transpose(e+f) - if (any(g /= r + s)) call abort + if (any(g /= r + s)) STOP 3 write(u,*) transpose(e+f) write(v,*) r + s - if (u /= v) call abort + if (u /= v) STOP 4 e = transpose(e) ! { dg-warning "Creating array temporary" } - if (any(e /= s)) call abort + if (any(e /= s)) STOP 5 write(u,*) transpose(transpose(e)) write(v,*) s - if (u /= v) call abort + if (u /= v) STOP 6 e = transpose(e+f) ! { dg-warning "Creating array temporary" } - if (any(e /= 2*r)) call abort + if (any(e /= 2*r)) STOP 7 write(u,*) transpose(transpose(e+f))-f write(v,*) 2*r - if (u /= v) call abort + if (u /= v) STOP 8 a = foo(transpose(c)) - if (any(a /= p+1)) call abort + if (any(a /= p+1)) STOP 9 write(u,*) foo(transpose(c)) ! { dg-warning "Creating array temporary" } write(v,*) p+1 - if (u /= v) call abort + if (u /= v) STOP 10 c = transpose(foo(a)) ! Unnecessary { dg-warning "Creating array temporary" } - if (any(c /= q+2)) call abort + if (any(c /= q+2)) STOP 11 write(u,*) transpose(foo(a)) ! { dg-warning "Creating array temporary" } write(v,*) q+2 - if (u /= v) call abort + if (u /= v) STOP 12 e = foo(transpose(e)) ! { dg-warning "Creating array temporary" } - if (any(e /= 2*s+1)) call abort + if (any(e /= 2*s+1)) STOP 13 write(u,*) transpose(foo(transpose(e))-1) ! { dg-warning "Creating array temporary" } write(v,*) 2*s+1 - if (u /= v) call abort + if (u /= v) STOP 14 e = transpose(foo(e)) ! { dg-warning "Creating array temporary" } - if (any(e /= 2*r+2)) call abort + if (any(e /= 2*r+2)) STOP 15 write(u,*) transpose(foo(transpose(e)-1)) ! 2 temps { dg-warning "Creating array temporary" } write(v,*) 2*r+2 - if (u /= v) call abort + if (u /= v) STOP 16 a = bar(transpose(c)) - if (any(a /= p+4)) call abort + if (any(a /= p+4)) STOP 17 write(u,*) bar(transpose(c)) write(v,*) p+4 - if (u /= v) call abort + if (u /= v) STOP 18 c = transpose(bar(a)) - if (any(c /= q+6)) call abort + if (any(c /= q+6)) STOP 19 write(u,*) transpose(bar(a)) write(v,*) q+6 - if (u /= v) call abort + if (u /= v) STOP 20 e = bar(transpose(e)) ! { dg-warning "Creating array temporary" } - if (any(e /= 2*s+4)) call abort + if (any(e /= 2*s+4)) STOP 21 write(u,*) transpose(bar(transpose(e)))-2 write(v,*) 2*s+4 - if (u /= v) call abort + if (u /= v) STOP 22 e = transpose(bar(e)) ! { dg-warning "Creating array temporary" } - if (any(e /= 2*r+6)) call abort + if (any(e /= 2*r+6)) STOP 23 write(u,*) transpose(transpose(bar(e))-2) write(v,*) 2*r+6 - if (u /= v) call abort + if (u /= v) STOP 24 - if (any(a /= transpose(transpose(a)))) call abort ! optimized away + if (any(a /= transpose(transpose(a)))) STOP 25! optimized away write(u,*) a write(v,*) transpose(transpose(a)) - if (u /= v) call abort + if (u /= v) STOP 26 b = a * a - if (any(transpose(a+b) /= transpose(a)+transpose(b))) call abort ! optimized away + if (any(transpose(a+b) /= transpose(a)+transpose(b))) STOP 27! optimized away write(u,*) transpose(a+b) write(v,*) transpose(a) + transpose(b) - if (u /= v) call abort + if (u /= v) STOP 28 - if (any(transpose(matmul(a,c)) /= matmul(transpose(c), transpose(a)))) call abort ! 2 temps { dg-warning "Creating array temporary" } + if (any(transpose(matmul(a,c)) /= matmul(transpose(c), transpose(a)))) STOP 29! 2 temps { dg-warning "Creating array temporary" } write(u,*) transpose(matmul(a,c)) ! { dg-warning "Creating array temporary" } write(v,*) matmul(transpose(c), transpose(a)) ! { dg-warning "Creating array temporary" } - if (u /= v) call abort + if (u /= v) STOP 30 - if (any(transpose(matmul(e,a)) /= matmul(transpose(a), transpose(e)))) call abort ! 2 temps { dg-warning "Creating array temporary" } + if (any(transpose(matmul(e,a)) /= matmul(transpose(a), transpose(e)))) STOP 31! 2 temps { dg-warning "Creating array temporary" } write(u,*) transpose(matmul(e,a)) ! { dg-warning "Creating array temporary" } write(v,*) matmul(transpose(a), transpose(e)) ! { dg-warning "Creating array temporary" } - if (u /= v) call abort + if (u /= v) STOP 32 call baz (transpose(a)) call toto1 (a, transpose (c)) - if (any (a /= 2 * p + 12)) call abort + if (any (a /= 2 * p + 12)) STOP 33 call toto1 (e, transpose (e)) ! { dg-warning "Creating array temporary" } - if (any (e /= 4 * s + 12)) call abort + if (any (e /= 4 * s + 12)) STOP 34 call toto2 (c, transpose (a)) - if (any (c /= 2 * q + 13)) call abort + if (any (c /= 2 * q + 13)) STOP 35 call toto2 (e, transpose(e)) ! { dg-warning "Creating array temporary" } - if (any (e /= 4 * r + 13)) call abort + if (any (e /= 4 * r + 13)) STOP 36 call toto2 (e, transpose(transpose(e))) ! { dg-warning "Creating array temporary" } - if (any (e /= 4 * r + 14)) call abort + if (any (e /= 4 * r + 14)) STOP 37 call toto3 (e, transpose(e)) - if (any (e /= 4 * r + 14)) call abort + if (any (e /= 4 * r + 14)) STOP 38 call titi (nx, e, transpose(e)) ! { dg-warning "Creating array temporary" } - if (any (e /= 4 * s + 17)) call abort + if (any (e /= 4 * s + 17)) STOP 39 contains @@ -230,7 +230,7 @@ end subroutine titi ! { dg-final { scan-tree-dump-times "struct\[^\\n\]*atmp" 24 "original" } } ! ! 2 tests optimized out -! { dg-final { scan-tree-dump-times "_gfortran_abort" 39 "original" } } -! { # Commented out as failing at -O0: dg-final { scan-tree-dump-times "_gfortran_abort" 37 "optimized" } } +! { dg-final { scan-tree-dump-times "_gfortran_stop" 39 "original" } } +! { # Commented out as failing at -O0: dg-final { scan-tree-dump-times "_gfortran_stop" 37 "optimized" } } ! ! cleanup |