[Bug libfortran/24584] Segfault when reading empty string in namelist file

[jvdelisle at gcc dot gnu dot org]

------- Comment #2 from jvdelisle at gcc dot gnu dot org  2005-10-30 04:51 
-------
OK Now,  Regrssion tested OK  Will submit to list for approval

Index: io/list_read.c
===================================================================
--- io/list_read.c      (revision 105987)
+++ io/list_read.c      (working copy)
@@ -1998,12 +1998,18 @@
          break;

        case BT_CHARACTER:
-         m = (dlen < saved_used) ? dlen : saved_used;
-         pdata = (void*)( pdata + clow - 1 );
-         memcpy (pdata, saved_string, m);
+         if (saved_string)
+           {
+             m = (dlen < saved_used) ? dlen : saved_used;
+             pdata = (void*)( pdata + clow - 1 );
+             memcpy (pdata, saved_string, m);
+           }
+         else
+           m = 0;
+
          if (m < dlen)
            memset ((void*)( pdata + m ), ' ', dlen - m);
-       break;
+         break;

        default:
          break;


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2005-10-30 04:51:40
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24584