--- a/libgomp/testsuite/libgomp.fortran/omp_parse3.f90	Fri Oct 27 22:46:09 2017 +0900
+++ b/libgomp/testsuite/libgomp.fortran/omp_parse3.f90	Thu Oct 25 07:37:49 2018 +0900
@@ -1,4 +1,5 @@
 ! { dg-do run }
+! { dg-options "-std=legacy" }
 ! { dg-require-effective-target tls_runtime }
 use omp_lib
   common /tlsblock/ x, y
@@ -44,10 +45,10 @@
     j = 1
     do 100 i = 1, 100
       if (i .eq. j) then
-	if (d(i) .ne. i) call abort
+	if (d(i) .ne. i) STOP 1
 	j = i + 5
       else
-	if (d(i) .ne. -1) call abort
+	if (d(i) .ne. -1) STOP 2
       end if
 100   d(i) = -1
   end subroutine test_ordered
@@ -68,17 +69,17 @@
 !$omp parallel copyin (/tlsblock/, z) reduction (.or.:m) &
 !$omp& num_threads (4)
     if (omp_get_thread_num () .eq. 0) i = omp_get_num_threads ()
-    if (x .ne. 6 .or. y .ne. 7 .or. z .ne. 8) call abort
+    if (x .ne. 6 .or. y .ne. 7 .or. z .ne. 8) STOP 3
     x = omp_get_thread_num ()
     y = omp_get_thread_num () + 1024
     z = omp_get_thread_num () + 4096
 !$omp end parallel
-    if (x .ne. 0 .or. y .ne. 1024 .or. z .ne. 4096) call abort
+    if (x .ne. 0 .or. y .ne. 1024 .or. z .ne. 4096) STOP 4
 !$omp parallel num_threads (4), private (j) reduction (.or.:n)
     if (omp_get_num_threads () .eq. i) then
       j = omp_get_thread_num ()
       if (x .ne. j .or. y .ne. j + 1024 .or. z .ne. j + 4096) &
-&       call abort
+&       STOP 5
     end if
 !$omp end parallel
     m = m .or. n
@@ -88,9 +89,9 @@
     if (z .ne. 4096) n = .true.
     if (omp_get_num_threads () .eq. i) then
       j = omp_get_thread_num ()
-      if (x .ne. j .or. y .ne. j + 1024) call abort
+      if (x .ne. j .or. y .ne. j + 1024) STOP 6
     end if
 !$omp end parallel
-    if (m .or. n) call abort
+    if (m .or. n) STOP 7
   end subroutine test_threadprivate
 end