This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[patch fortran] PR 13919 - Runtime "internal error" in IO


the segfault was caused by a 


 
Index: gcc/libgfortran/io/transfer.c
===================================================================
RCS file: /cvs/gcc/gcc/libgfortran/io/Attic/transfer.c,v
retrieving revision 1.1.2.7
diff -c -3 -p -r1.1.2.7 transfer.c
*** gcc/libgfortran/io/transfer.c	7 Feb 2004 15:33:29 -0000	1.1.2.7
--- gcc/libgfortran/io/transfer.c	11 Feb 2004 02:01:46 -0000
*************** finalize_transfer (void)
*** 1306,1312 ****
    if (current_unit == NULL)
      return;
  
!   if (ioparm.list_format && g.mode == READING)
      finish_list_read ();
    else
      {
--- 1306,1312 ----
    if (current_unit == NULL)
      return;
  
!   if (ioparm.list_format && g.mode == READING && current_unit->endfile
== NO_ENDFILE)
      finish_list_read ();
    else
      {



Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]