On 2/25/24 12:34 PM, Harald Anlauf wrote:
Hi Jerry,
On 2/22/24 20:11, Jerry D wrote:
Hi all,
The attached fix adds a check for an error condition from a UDDTIO
procedure in the case where there is no actual underlying error, but the
user defines an error by setting the iostat variable manually before
returning to the parent READ.
the libgfortran fix LGTM.
Regarding the testcase code, the following looks like you left some
debugging code in it:
+ rewind (10)
+ read (10,*) x
+ print *, myerror, mymessage
+ write (*,'(10(A))') "Read: '",x%ch,"'"
--- snip ---
I cleaned up the test case. Thanks for review.
The master branch has been updated by Jerry DeLisle <jvdeli...@gcc.gnu.org>:
https://gcc.gnu.org/g:3f58f96a4e8255e222953f9856bcd6c25f7b33cd
Regards,
Jerry
