[Patch, libgfortran] FIX PR26509 Catch EOR on DIRECT access write

[Jerry DeLisle]

François-Xavier Coudert wrote:
>>       write(unit=10,rec=1) 1d0  ! { dg-error "*Write exceeds length of DIRECT
>>access record*" }
> 
> 
> Hum... I don't think we can test for runtime errors. Maybe with
> dg-output, but how do you mark that the test is expected to fail (and
> not XFAIL it)?
> 
> On the other hand, you could simply use an error label or an iostat,
> and check that it's non-zero after the write.
> 
> FX
> 
I am using the error label on the first write.  I think I will just call it good 
enough and take the second write out completely.

Thanks

Jerry