diff libgomp/testsuite/libgomp.fortran/vla8.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents f6334be47118
children 1830386684a0
line wrap: on
line diff
--- a/libgomp/testsuite/libgomp.fortran/vla8.f90	Fri Oct 27 22:46:09 2017 +0900
+++ b/libgomp/testsuite/libgomp.fortran/vla8.f90	Thu Oct 25 07:37:49 2018 +0900
@@ -1,4 +1,5 @@
 ! { dg-do run }
+! { dg-options "-std=legacy" }
 ! { dg-timeout-factor 2.0 }
 
   call test
@@ -236,7 +237,7 @@
 	l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q
 125 continue
 !$omp end parallel
-    if (l) call abort
+    if (l) STOP 1
   end subroutine foo
 
   subroutine test