summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/assign_func_dtcomp_1.f90
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/testsuite/gfortran.dg/assign_func_dtcomp_1.f90')
-rw-r--r--gcc/testsuite/gfortran.dg/assign_func_dtcomp_1.f904
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/assign_func_dtcomp_1.f90 b/gcc/testsuite/gfortran.dg/assign_func_dtcomp_1.f90
index 385eb2715f6..ee9fd79e61e 100644
--- a/gcc/testsuite/gfortran.dg/assign_func_dtcomp_1.f90
+++ b/gcc/testsuite/gfortran.dg/assign_func_dtcomp_1.f90
@@ -26,13 +26,13 @@ program assign_func_dtcomp
z(:)%y = foo (b)
- if (any(z%x.ne.a).or.any(z%y.ne.b)) call abort ()
+ if (any(z%x.ne.a).or.any(z%y.ne.b)) STOP 1
! Make sure we did not break anything on the way.
w%x(:) = foo (b)
a = foo (b)
- if (any(w%x.ne.b).or.any(a.ne.b)) call abort ()
+ if (any(w%x.ne.b).or.any(a.ne.b)) STOP 2
contains