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
