Mercurial > hg > CbC > CbC_gcc

diff gcc/testsuite/gfortran.dg/coarray_lib_token_1.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/coarray_lib_token_1.f90	Fri Oct 27 22:46:09 2017 +0900
+++ b/gcc/testsuite/gfortran.dg/coarray_lib_token_1.f90	Thu Oct 25 07:37:49 2018 +0900
@@ -16,10 +16,10 @@
   caf_dt = t (1,2)
   call sub (caf, caf_dt%b)
   print *,caf, caf_dt%b
-  if (caf /= -99 .or. caf_dt%b /= -101) call abort ()
+  if (caf /= -99 .or. caf_dt%b /= -101) STOP 1
   call sub_opt ()
   call sub_opt (caf)
-  if (caf /= 124) call abort ()
+  if (caf /= 124) STOP 2
 contains
 
   subroutine sub (x1, x2)
@@ -32,7 +32,7 @@
     integer :: y1[*], y2[*]
 
     print *, y1, y2
-    if (y1 /= 42 .or. y2 /= 2) call abort ()
+    if (y1 /= 42 .or. y2 /= 2) STOP 3
     y1 = -99
     y2 = -101
   end subroutine sub2
@@ -40,7 +40,7 @@
   subroutine sub_opt (z)
     integer, optional :: z[*]
     if (present (z)) then
-      if (z /= -99) call abort ()
+      if (z /= -99) STOP 4
       z = 124
     end if
   end subroutine sub_opt