------- Comment #1 from fxcoudert at gcc dot gnu dot org  2007-04-17 22:37 
-------
Index: libgfortran/intrinsics/unpack_generic.c
===================================================================
--- libgfortran/intrinsics/unpack_generic.c     (revision 123388)
+++ libgfortran/intrinsics/unpack_generic.c     (working copy)
@@ -209,6 +209,7 @@
 {
   gfc_array_char tmp;

+  memset (&tmp, 0, sizeof (tmp));
   tmp.dtype = 0;
   tmp.data = field;
   unpack_internal (ret, vector, mask, &tmp, GFC_DESCRIPTOR_SIZE (vector), 0);
@@ -228,6 +229,7 @@
 {
   gfc_array_char tmp;

+  memset (&tmp, 0, sizeof (tmp));
   tmp.dtype = 0;
   tmp.data = field;
   unpack_internal (ret, vector, mask, &tmp, vector_length, 0);


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |fxcoudert at gcc dot gnu dot
                   |dot org                     |org
             Status|NEW                         |ASSIGNED
           Keywords|                            |patch
   Last reconfirmed|2007-03-23 21:21:00         |2007-04-17 22:37:33
               date|                            |
            Summary|Uninitialized variable in   |Uninitialized variable in
                   |libgfortran's               |_gfortran_unpack0_char
                   |_gfortran_unpack0_char      |
   Target Milestone|---                         |4.3.0


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

Reply via email to