diff libgomp/testsuite/libgomp.fortran/crayptr1.f90 @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
line wrap: on
line diff
--- a/libgomp/testsuite/libgomp.fortran/crayptr1.f90	Thu Oct 25 07:37:49 2018 +0900
+++ b/libgomp/testsuite/libgomp.fortran/crayptr1.f90	Thu Feb 13 11:34:05 2020 +0900
@@ -26,7 +26,7 @@
   l = l .or. p .ne. 3
 !$omp end parallel
 
-  if (l) STOP 1
+  if (l) stop 1
 
   l = .false.
 !$omp parallel num_threads (2) reduction (.or.:l) default (private)
@@ -41,6 +41,6 @@
   l = l .or. p .ne. 3 * omp_get_thread_num () + 5
 !$omp end parallel
 
-  if (l) STOP 2
+  if (l) stop 2
 
 end