Mercurial > hg > CbC > CbC_gcc

diff gcc/testsuite/gfortran.dg/pointer_array_1.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/pointer_array_1.f90	Thu Oct 25 08:08:40 2018 +0900
+++ b/gcc/testsuite/gfortran.dg/pointer_array_1.f90	Thu Oct 25 10:21:07 2018 +0900
@@ -22,7 +22,7 @@
       if (any (values .ne. [1,2])) print *, values(2)
     else
       values => d(:)%tag
-      if (any (values .ne. [101,102])) call abort
+      if (any (values .ne. [101,102])) STOP 1
     end if
   END SUBROUTINE
 
@@ -33,10 +33,10 @@
     allocate (d, source = [my_type(1,101), my_type(2,102)])
     if (switch .eq. 1) then
       values => d(:)%value
-      if (any (values .ne. [1,2])) call abort
+      if (any (values .ne. [1,2])) STOP 2
     else
       values => d(:)%tag
-      if (any (values([2,1]) .ne. [102,101])) call abort
+      if (any (values([2,1]) .ne. [102,101])) STOP 3
     end if
   END function
 END MODULE
@@ -49,12 +49,12 @@
   type(your_type) :: y
 
   call get_values (x, 1)
-  if (any (x .ne. [1,2])) call abort
+  if (any (x .ne. [1,2])) STOP 4
   call get_values (y%x, 2)
-  if (any (y%x .ne. [101,102])) call abort
+  if (any (y%x .ne. [101,102])) STOP 5
 
   x => return_values (2)
-  if (any (x .ne. [101,102])) call abort
+  if (any (x .ne. [101,102])) STOP 6
   y%x => return_values (1)
-  if (any (y%x .ne. [1,2])) call abort
+  if (any (y%x .ne. [1,2])) STOP 7
 end