Mercurial > hg > CbC > CbC_gcc

diff gcc/testsuite/gfortran.dg/complex_read.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 (2018-10-24)
parents 04ced10e8804
children
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/complex_read.f90	Fri Oct 27 22:46:09 2017 +0900
+++ b/gcc/testsuite/gfortran.dg/complex_read.f90	Thu Oct 25 07:37:49 2018 +0900
@@ -11,7 +11,7 @@
   write (10, *) " ( 0.99  ,  9.9  )"
   rewind (10)
   read (10,*) a
-  if (a.ne.(0.99, 9.90)) call abort ()
+  if (a.ne.(0.99, 9.90)) STOP 1
 
 ! Test a new record after the.comma (the original bug).
 
@@ -20,7 +20,7 @@
   write (10, *) "   999.0  )"
   rewind (10)
   read (10,*) a
-  if (a.ne.(99.0, 999.0)) call abort ()
+  if (a.ne.(99.0, 999.0)) STOP 2
 
 ! Test a new record before the.comma 
 
@@ -29,7 +29,7 @@
   write (10, *) " , 9.9  )"
   rewind (10)
   read (10,*) a
-  if (a.ne.(0.99, 9.90)) call abort ()
+  if (a.ne.(0.99, 9.90)) STOP 3
 
 ! Test a new records before and after the.comma 
 
@@ -39,7 +39,7 @@
   write (10, *) "  999.0  )"
   rewind (10)
   read (10,*) a
-  if (a.ne.(99.0, 999.0)) call abort ()
+  if (a.ne.(99.0, 999.0)) STOP 4
 
 ! Test a new records and blank records before and after the.comma 
 
@@ -51,7 +51,7 @@
   write (10, *) "  9.9    )"
   rewind (10)
   read (10,*) a
-  if (a.ne.(0.99, 9.9)) call abort ()
+  if (a.ne.(0.99, 9.9)) STOP 5
 
   close (10)
 end program complex_read