[patch, libgfortran] PR24224 Generalized internal array IO not implemented.

[Jerry DeLisle]

Ooops!

Attached is a revised patch that fixes a regression I found in NIST FM908.f  In 
finalize transfer I was freeing memory not allocated because I was not testing 
for is_array_io() and in the case of scaler character string internal IO the 
free_men was getting called when it should not and all heck occurs.

Fixed:

   if (is_internal_unit ())
     {
       if (is_array_io() && current_unit->ls != NULL)   /* < fixed this line */
         free_mem (current_unit->ls);
       sclose (current_unit->s);
     }

The attached patch is updated.

My apologies,

Jerry
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr24224a.diff
Type: text/x-patch
Size: 13737 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20051016/2c72b369/attachment.bin>