--- a/gcc/testsuite/gfortran.dg/array_constructor_8.f90	Fri Oct 27 22:46:09 2017 +0900
+++ b/gcc/testsuite/gfortran.dg/array_constructor_8.f90	Thu Oct 25 07:37:49 2018 +0900
@@ -35,12 +35,12 @@
     integer, dimension (:) :: values
     integer :: order, repeat, trail, i
 
-    if (size (values, dim = 1) .ne. order * repeat + trail) call abort
+    if (size (values, dim = 1) .ne. order * repeat + trail) STOP 1
     do i = 1, order * repeat
-      if (values (i) .ne. mod (i - 1, repeat) + 1) call abort
+      if (values (i) .ne. mod (i - 1, repeat) + 1) STOP 2
     end do
     do i = 1, trail
-      if (values (i + order * repeat) .ne. i * 100) call abort
+      if (values (i + order * repeat) .ne. i * 100) STOP 3
     end do
   end subroutine test
 end program main