This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [patch, fortran] Asynchronous I/O, take 3
- From: Dominique d'Humières <dominiq at lps dot ens dot fr>
- To: Nicolas Koenig <nk at koenigni dot com>, Thomas Koenig <tkoenig at netcologne dot de>
- Cc: gfortran <fortran at gcc dot gnu dot org>, gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Thu, 5 Jul 2018 15:43:33 +0200
- Subject: Re: [patch, fortran] Asynchronous I/O, take 3
I have done a full regression testing with the patch at
https://gcc.gnu.org/ml/fortran/2018-07/msg00004.html + Rainer’s patch
at https://gcc.gnu.org/ml/fortran/2018-07/msg00007.html
I am currently testing the patch at
https://gcc.gnu.org/ml/fortran/2018-07/msg00008.html
so far, so good!
IMO the tests should go to gfortran.dg (they pass my tests).
I think there is a spurious STOP in libgomp.fortran/async_io_1.f90 and the last STOP 1 should be STOP 7, as in:
--- libgomp/testsuite/libgomp.fortran/async_io_1.f90 2018-07-03 12:26:41.000000000 +0200
+++ gcc/testsuite/gfortran.dg/asynchronous_6.f90 2018-07-05 12:57:35.000000000 +0200
@@ -21,7 +21,6 @@ program main
write (10,'(A)', asynchronous=yes) 'asdf'
write (10,*, asynchronous=yes) cc
close (10)
- stop
open (20, file='a.dat', asynchronous=yes)
read (20, *, asynchronous=yes) i, j
read (20, *, asynchronous=yes) k, l
@@ -42,6 +41,6 @@ program main
open(20, file='c.dat', asynchronous=yes)
read(20, *, asynchronous=yes) res
wait (20)
- if (any(res /= is)) stop 1
+ if (any(res /= is)) stop 7
close (20,status="delete")
end program
Thanks for the hard work!
Dominique