On 05/15/2017 03:51 PM, Steve Kargl wrote:
> On Mon, May 15, 2017 at 01:10:43PM -0700, Jerry DeLisle wrote:
>>
>> 2017-05-15 Jerry DeLisle <jvdeli...@gcc.gnu.org>
>>
>> PR libgfortran/80727
>> * transfer.c (read_sf_internal): Remove bogus code to detect EOR.
>> (read_block_form): For internal units, generate EOR if no more
>> bytes left in unit and we are trying to read with ADVANCE='NO'.
>
> OK with change below.
>
>>
>> ! { dg-do run }
>> ! PR80727 Crash of runtime gfortran library during integer transformation
>> ! Note: before the patch this was giving an incorrect EOR error on READ.
>> program gfortran_710_io_bug
>> character str*4
>> integer*4 i4
>
> integer(4)
>
>> str =''
>> i = 256
>> write(str,fmt='(a)') i
>> i = 0
>> read ( unit=str(1:4), fmt='(a)' ) i4
>> if (i4.ne.256) call abort
>> end program gfortran_710_io_bug
>
Oh, thanks Steve. I forgot to run the new test with the machinery.
Will fix, check it one more time, then commit.
Jerry
