Skip to content

R
riscv-gcc-1
Commit c6e75626 by François-Xavier Coudert
Options

re PR libfortran/31286 (cshift uses uninitialized variables) 

	PR libfortran/31286
	PR libfortran/31296

	* intrinsics/cshift0.c (cshift0): Initialize sstride[0] and rstride[0].
	* intrinsics/unpack_generic.c (unpack0, unpack0_char): Zero the
	array structures we pass to unpack_internal.

From-SVN: r123944
parent 8cf81ddf
Showing with 107 additions and 95 deletions
libgfortran/ChangeLog
2007-04-18 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/31286
PR libfortran/31296
* intrinsics/cshift0.c (cshift0): Initialize sstride[0] and rstride[0].
* intrinsics/unpack_generic.c (unpack0, unpack0_char): Zero the
array structures we pass to unpack_internal.
2007-04-14 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-04-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* io/open.c (test_endfile): Revert changes for 31052, restoring this * io/open.c (test_endfile): Revert changes for 31052, restoring this
...@@ -10,7 +18,7 @@ ...@@ -10,7 +18,7 @@
2007-04-11 Kai Tietz <kai.tietz@onevision.com> 2007-04-11 Kai Tietz <kai.tietz@onevision.com>
* configure: Regenerate. * configure: Regenerate.
2007-04-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> 2007-04-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
...@@ -201,7 +209,7 @@ ...@@ -201,7 +209,7 @@
2007-04-06 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-04-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31395 PR libfortran/31395
* io/format.c (parse_format_list): Fix parsing. * io/format.c (parse_format_list): Fix parsing.
2007-04-03 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> 2007-04-03 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
...@@ -211,7 +219,7 @@ ...@@ -211,7 +219,7 @@
2007-04-01 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-04-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31052 PR libfortran/31052
* io/open.c (test_endfile): Delete this function. * io/open.c (test_endfile): Delete this function.
(edit_modes): Delete call to test_endfile. (edit_modes): Delete call to test_endfile.
(new_unit): Likewise. (new_unit): Likewise.
...@@ -221,13 +229,13 @@ ...@@ -221,13 +229,13 @@
2007-04-01 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-04-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31366 PR libfortran/31366
* io/transfer.c (read_block_direct): Do not generate error when reading * io/transfer.c (read_block_direct): Do not generate error when reading
past EOF on a short record that is less than the RECL= specified. past EOF on a short record that is less than the RECL= specified.
2007-04-01 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-04-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31207 PR libfortran/31207
* io/unit.c (close_unit_1): If there are bytes previously written from * io/unit.c (close_unit_1): If there are bytes previously written from
ADVANCE="no", move to the end before closing. ADVANCE="no", move to the end before closing.
...@@ -243,13 +251,13 @@ ...@@ -243,13 +251,13 @@
2007-03-27 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-03-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31052 PR libfortran/31052
* io/transfer.c (next_record_r): Do not call test_endfile if in namelist * io/transfer.c (next_record_r): Do not call test_endfile if in namelist
mode. mode.
2007-03-25 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-03-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31199 PR libfortran/31199
* io/io.h: Add saved_pos to gfc_unit structure. * io/io.h: Add saved_pos to gfc_unit structure.
* io/open.c (new_unit): Initialize saved_pos. * io/open.c (new_unit): Initialize saved_pos.
* io/transfer.c (data_transfer_init): Set max_pos to value in saved_pos. * io/transfer.c (data_transfer_init): Set max_pos to value in saved_pos.
...@@ -265,7 +273,7 @@ ...@@ -265,7 +273,7 @@
2007-03-22 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-03-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31052 PR libfortran/31052
* file_pos.c: Update Copyright year. * file_pos.c: Update Copyright year.
* io/open.c (test_endfile): Restore test_endfile to fix SPEC regression. * io/open.c (test_endfile): Restore test_endfile to fix SPEC regression.
Update Copyright year. Update Copyright year.
...@@ -283,7 +291,7 @@ ...@@ -283,7 +291,7 @@
2007-03-18 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-03-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31052 PR libfortran/31052
* io/file_position (st_rewind): Fix comments. Remove use of * io/file_position (st_rewind): Fix comments. Remove use of
test_endfile. Don't seek if already at 0 position. Use new is_special test_endfile. Don't seek if already at 0 position. Use new is_special
function to set endfile state. function to set endfile state.
...@@ -299,7 +307,7 @@ ...@@ -299,7 +307,7 @@
2007-03-15 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-03-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31099 PR libfortran/31099
* io/file_pos.c (st_rewind): Don't set bytes_left to zero. * io/file_pos.c (st_rewind): Don't set bytes_left to zero.
2007-03-15 Francois-Xavier Coudert <coudert@clipper.ens.fr> 2007-03-15 Francois-Xavier Coudert <coudert@clipper.ens.fr>
...@@ -323,7 +331,7 @@ ...@@ -323,7 +331,7 @@
2007-03-14 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-03-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31051 PR libfortran/31051
* io/transfer.c (formatted_transfer_scalar): Adjust position for pending * io/transfer.c (formatted_transfer_scalar): Adjust position for pending
spaces when in writing mode. Clean up some formatting. spaces when in writing mode. Clean up some formatting.
...@@ -359,7 +367,7 @@ ...@@ -359,7 +367,7 @@
2007-03-09 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-03-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31099 PR libfortran/31099
* io/open.c (new_unit): Initialize bytes_left and recl_subrecord. * io/open.c (new_unit): Initialize bytes_left and recl_subrecord.
* io/transfer.c (next_record_w): Set bytes left to record length for * io/transfer.c (next_record_w): Set bytes left to record length for
sequential unformatted I/O. sequential unformatted I/O.
...@@ -423,12 +431,12 @@ ...@@ -423,12 +431,12 @@
2007-02-24 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-02-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/30918 PR libfortran/30918
* io/listread.c (namelist_read): Eat comment line. * io/listread.c (namelist_read): Eat comment line.
2007-02-22 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-02-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/30910 PR libfortran/30910
* io/write.c (output_float): Add condition of format F only for * io/write.c (output_float): Add condition of format F only for
special case rounding with zero precision. special case rounding with zero precision.
...@@ -753,7 +761,7 @@ ...@@ -753,7 +761,7 @@
2007-01-17 Tom Tromey <tromey@redhat.com> 2007-01-17 Tom Tromey <tromey@redhat.com>
PR libgfortran/27107: PR libfortran/27107:
* aclocal.m4, configure, Makefile.in: Rebuilt. * aclocal.m4, configure, Makefile.in: Rebuilt.
* configure.ac: Enable automake dependency tracking. Update * configure.ac: Enable automake dependency tracking. Update
minimum automake version. minimum automake version.
...@@ -789,14 +797,14 @@ ...@@ -789,14 +797,14 @@
2007-01-12 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-01-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/30435 PR libfortran/30435
* io/list_read.c (finish_separator): Don't call next_record. * io/list_read.c (finish_separator): Don't call next_record.
(list_formatted_read_scalar): Clean up some comments and whitespace. (list_formatted_read_scalar): Clean up some comments and whitespace.
(nml_read_obj): Whitespace fix. (nml_read_obj): Whitespace fix.
2007-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/30162 PR libfortran/30162
* io/unix.c (fd_flush): Don't seek if file is not seekable, defined as * io/unix.c (fd_flush): Don't seek if file is not seekable, defined as
s->file_length == -1. s->file_length == -1.
(fd_alloc_w_at): Do not adjust file_length if file is not seekable. (fd_alloc_w_at): Do not adjust file_length if file is not seekable.
......
libgfortran/ChangeLog-2004
...@@ -590,7 +590,7 @@ ...@@ -590,7 +590,7 @@
2004-08-05 Victor Leikehman <lei@il.ibm.com> 2004-08-05 Victor Leikehman <lei@il.ibm.com>
PR libgfortran/16704 PR libfortran/16704
* io/read.c (read_radix): Understand letters f and F as hex digits. * io/read.c (read_radix): Understand letters f and F as hex digits.
2004-08-04 Victor Leikehman <lei@il.ibm.com> 2004-08-04 Victor Leikehman <lei@il.ibm.com>
...@@ -605,7 +605,7 @@ ...@@ -605,7 +605,7 @@
2004-08-03 Roger Sayle <roger@eyesopen.com> 2004-08-03 Roger Sayle <roger@eyesopen.com>
PR libgfortran/16137 PR libfortran/16137
* configure.ac: Add tests for acosf, asinf, atan2f, atanf, ceilf, * configure.ac: Add tests for acosf, asinf, atan2f, atanf, ceilf,
copysignf, cosf, coshf, expf, floorf, frexpf, hypotf, logf, log10f, copysignf, cosf, coshf, expf, floorf, frexpf, hypotf, logf, log10f,
scalbnf, sinf, sinhf, sqrtf, tanf and tanhf in libm. scalbnf, sinf, sinhf, sqrtf, tanf and tanhf in libm.
......
libgfortran/ChangeLog-2005
2005-12-31 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2005-12-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25594 PR libfortran/25594
PR libgfortran/25419 PR libfortran/25419
* io/list_read.c (list_formatted_read_scalar): Test for comma to return * io/list_read.c (list_formatted_read_scalar): Test for comma to return
a null value (default). Revert patch of 25419 on 2005-12-28. a null value (default). Revert patch of 25419 on 2005-12-28.
2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25139 PR libfortran/25139
* io/unix.c (fd_truncate): Set s->active to zero. * io/unix.c (fd_truncate): Set s->active to zero.
PR libgfortran/25510 PR libfortran/25510
* libgfortran.h: Add ERROR_INTERNAL and ERROR_INTERNAL_UNIT. * libgfortran.h: Add ERROR_INTERNAL and ERROR_INTERNAL_UNIT.
* runtime/error.c (translate_error): Add messages for new errors. * runtime/error.c (translate_error): Add messages for new errors.
* io/list_read.c (next_char): Use new errors. * io/list_read.c (next_char): Use new errors.
...@@ -17,32 +17,32 @@ ...@@ -17,32 +17,32 @@
2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25550 PR libfortran/25550
* io/file_pos.c (st_rewind): Reset bytes left so no error occurs in * io/file_pos.c (st_rewind): Reset bytes left so no error occurs in
next_record_r. next_record_r.
2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25419 PR libfortran/25419
* io/list_read.c (list_formatted_read_scalar): Allow comma to return a * io/list_read.c (list_formatted_read_scalar): Allow comma to return a
null value (default). null value (default).
2005-12-21 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2005-12-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25307 PR libfortran/25307
* io/list_read.c (next_char): Handle end-of-file conditions for * io/list_read.c (next_char): Handle end-of-file conditions for
internal units and add support for internal character array units. internal units and add support for internal character array units.
2005-12-18 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2005-12-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25463 PR libfortran/25463
* io/transfer.c (finalize_transfer): Fix execution order so that * io/transfer.c (finalize_transfer): Fix execution order so that
next_record is set to zero in all cases. next_record is set to zero in all cases.
2005-12-16 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2005-12-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25264 PR libfortran/25264
PR libgfortran/25349 PR libfortran/25349
* io/unit.c (get_unit): Delete code that cleared the string when the * io/unit.c (get_unit): Delete code that cleared the string when the
unit was opened, which is too soon. unit was opened, which is too soon.
* io/transfer.c (next_record_w): Pass done flag in. Change logic for * io/transfer.c (next_record_w): Pass done flag in. Change logic for
...@@ -104,7 +104,7 @@ ...@@ -104,7 +104,7 @@
2005-12-08 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2005-12-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25039 PR libfortran/25039
* io/io.h: Create a new flag sf_read_comma to control comma * io/io.h: Create a new flag sf_read_comma to control comma
separators in numeric reads. separators in numeric reads.
* io/transfer.c (formatted_transfer_scalar): Initialize the flag. * io/transfer.c (formatted_transfer_scalar): Initialize the flag.
...@@ -131,7 +131,7 @@ ...@@ -131,7 +131,7 @@
2005-11-28 Steven G. Kargl <kargls@comcast.net> 2005-11-28 Steven G. Kargl <kargls@comcast.net>
PR libgfortran/25149 PR libfortran/25149
* intrinsics/abort.c: Add external abort_ to allow linking when * intrinsics/abort.c: Add external abort_ to allow linking when
invoking -std=f95 in testsuite. invoking -std=f95 in testsuite.
...@@ -154,7 +154,7 @@ ...@@ -154,7 +154,7 @@
2005-11-27 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2005-11-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25109 PR libfortran/25109
* io/unit.c (init_units): Set default flag to BLANK_NULL per * io/unit.c (init_units): Set default flag to BLANK_NULL per
requirement of F95 standard. Set PAD_YES for stdin. requirement of F95 standard. Set PAD_YES for stdin.
...@@ -214,7 +214,7 @@ ...@@ -214,7 +214,7 @@
2005-11-26 Janne Blomqvist <jb@gcc.gnu.org> 2005-11-26 Janne Blomqvist <jb@gcc.gnu.org>
PR libgfortran/24945 PR libfortran/24945
* io/open.c (edit_modes): Check for STATUS_UNKNOWN flag. * io/open.c (edit_modes): Check for STATUS_UNKNOWN flag.
2005-11-25 Richard Henderson <rth@redhat.com> 2005-11-25 Richard Henderson <rth@redhat.com>
...@@ -234,7 +234,7 @@ ...@@ -234,7 +234,7 @@
2005-11-22 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2005-11-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/24794 PR libfortran/24794
* io/list_read.c (read_character): Add auto completion on short * io/list_read.c (read_character): Add auto completion on short
namelist reads. namelist reads.
...@@ -522,7 +522,7 @@ ...@@ -522,7 +522,7 @@
2005-11-12 Steven G. Kargl <kargls@comcast.net> 2005-11-12 Steven G. Kargl <kargls@comcast.net>
PR libgfortran/24787 PR libfortran/24787
* intrinsics/string_intrinsics.c (string_scan): Off by one; Fix typos * intrinsics/string_intrinsics.c (string_scan): Off by one; Fix typos
in nearby comment. in nearby comment.
...@@ -611,7 +611,7 @@ ...@@ -611,7 +611,7 @@
2005-10-31 Jerry DeLisle <jvdelisle@verizon.net> 2005-10-31 Jerry DeLisle <jvdelisle@verizon.net>
PR libgfortran/24584 PR libfortran/24584
* io/list_read.c (free_saved): Set saved_used to zero. * io/list_read.c (free_saved): Set saved_used to zero.
2005-10-30 Francois-Xavier Coudert <coudert@clipper.ens.fr> 2005-10-30 Francois-Xavier Coudert <coudert@clipper.ens.fr>
...@@ -663,7 +663,7 @@ ...@@ -663,7 +663,7 @@
2005-10-24 Jerry DeLisle <jvdelisle@verizon.net> 2005-10-24 Jerry DeLisle <jvdelisle@verizon.net>
PR libgfortran/24224 PR libfortran/24224
* libgfortran.h: Remove array stride error code. * libgfortran.h: Remove array stride error code.
* runtime/error.c: Remove array stride error. * runtime/error.c: Remove array stride error.
* io/io.h: Change name of 'nml_loop_spec' to 'array_loop_spec' to be * io/io.h: Change name of 'nml_loop_spec' to 'array_loop_spec' to be
...@@ -688,7 +688,7 @@ ...@@ -688,7 +688,7 @@
2005-10-23 Jerry DeLisle <jvdelisle@verizon.net> 2005-10-23 Jerry DeLisle <jvdelisle@verizon.net>
PR libgfortran/24489 PR libfortran/24489
* io/transfer.c (read_block): Change the order of execution to not read * io/transfer.c (read_block): Change the order of execution to not read
past end-of-record. past end-of-record.
(read_block_direct): Same change. (read_block_direct): Same change.
...@@ -787,7 +787,7 @@ ...@@ -787,7 +787,7 @@
2005-10-11 Steven G. Kargl <kargls@comcast.net> 2005-10-11 Steven G. Kargl <kargls@comcast.net>
PR libgfortran/24313 PR libfortran/24313
* c99_functions.c (csqrtf, csqrt): Fix choice of branch cut. Note * c99_functions.c (csqrtf, csqrt): Fix choice of branch cut. Note
csqrt{f} were imported from glibc, and this bug is still present csqrt{f} were imported from glibc, and this bug is still present
there. glibc PR is 1146. there. glibc PR is 1146.
...@@ -1375,7 +1375,7 @@ ...@@ -1375,7 +1375,7 @@
2005-07-11 David Edelsohn <edelsohn@gnu.org> 2005-07-11 David Edelsohn <edelsohn@gnu.org>
PR libgfortran/22412 PR libfortran/22412
* io/write.c (otoa): Bias p by SCRATCH_SIZE, not * io/write.c (otoa): Bias p by SCRATCH_SIZE, not
sizeof (SCRATCH_SIZE). sizeof (SCRATCH_SIZE).
(btoa): Same. (btoa): Same.
...@@ -2114,13 +2114,13 @@ ...@@ -2114,13 +2114,13 @@
2005-04-17 Paul Thomas <pault@gcc.gnu.org> 2005-04-17 Paul Thomas <pault@gcc.gnu.org>
PR libgfortran/12884 PR libfortran/12884
PR libgfortran/17285 PR libfortran/17285
PR libgfortran/18122 PR libfortran/18122
PR libgfortran/18210 PR libfortran/18210
PR libgfortran/18392 PR libfortran/18392
PR libgfortran/18591 PR libfortran/18591
PR libgfortran/18879 PR libfortran/18879
* io/io.h (nml_ls): Declare. * io/io.h (nml_ls): Declare.
(namelist_info): Modify for arrays. (namelist_info): Modify for arrays.
* io/list_read.c (namelist_read): Reduced to call to new functions. * io/list_read.c (namelist_read): Reduced to call to new functions.
...@@ -2495,7 +2495,7 @@ ...@@ -2495,7 +2495,7 @@
2005-02-25 Peter O'Gorman <peter@pogma.com> 2005-02-25 Peter O'Gorman <peter@pogma.com>
Toon Moene <toon@moene.indiv.nluug.nl> Toon Moene <toon@moene.indiv.nluug.nl>
PR libgfortran/17748 PR libfortran/17748
* runtime/environ.c: Remove references to environ. * runtime/environ.c: Remove references to environ.
(show_variables): remove GFORTRAN_UNBUFFERED_* and (show_variables): remove GFORTRAN_UNBUFFERED_* and
GFORTRAN_NAME_* because they require environ. GFORTRAN_NAME_* because they require environ.
...@@ -2534,8 +2534,8 @@ ...@@ -2534,8 +2534,8 @@
2005-02-01 Paul Thomas <paulthomas2@wanadoo.fr> 2005-02-01 Paul Thomas <paulthomas2@wanadoo.fr>
PR libgfortran/19363 PR libfortran/19363
PR libgfortran/19691 PR libfortran/19691
* libgfortran.h (isfinite): Work around broken isfinite(x) in Cygwin. * libgfortran.h (isfinite): Work around broken isfinite(x) in Cygwin.
2005-01-30 Bud Davis <bdavis@gfortran.org> 2005-01-30 Bud Davis <bdavis@gfortran.org>
...@@ -2572,7 +2572,7 @@ ...@@ -2572,7 +2572,7 @@
2005-01-22 David Edelsohn <edelsohn@gnu.org> 2005-01-22 David Edelsohn <edelsohn@gnu.org>
PR libgfortran/19052 PR libfortran/19052
* libgfortran.h (options_t): Add stderr_unit. * libgfortran.h (options_t): Add stderr_unit.
* io/io.h (error_stream): Declare. * io/io.h (error_stream): Declare.
* io/open.c (new_unit): Do not terminate abnormally if opening * io/open.c (new_unit): Do not terminate abnormally if opening
......
libgfortran/intrinsics/cshift0.c
...@@ -103,6 +103,8 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array, ...@@ -103,6 +103,8 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array,
runtime_error ("Argument 'DIM' is out of range in call to 'CSHIFT'"); runtime_error ("Argument 'DIM' is out of range in call to 'CSHIFT'");
which = which - 1; which = which - 1;
sstride[0] = 0;
rstride[0] = 0;
extent[0] = 1; extent[0] = 1;
count[0] = 0; count[0] = 0;
......
libgfortran/intrinsics/unpack_generic.c
...@@ -209,6 +209,7 @@ unpack0 (gfc_array_char *ret, const gfc_array_char *vector, ...@@ -209,6 +209,7 @@ unpack0 (gfc_array_char *ret, const gfc_array_char *vector,
{ {
gfc_array_char tmp; gfc_array_char tmp;
memset (&tmp, 0, sizeof (tmp));
tmp.dtype = 0; tmp.dtype = 0;
tmp.data = field; tmp.data = field;
unpack_internal (ret, vector, mask, &tmp, GFC_DESCRIPTOR_SIZE (vector), 0); unpack_internal (ret, vector, mask, &tmp, GFC_DESCRIPTOR_SIZE (vector), 0);
...@@ -228,6 +229,7 @@ unpack0_char (gfc_array_char *ret, ...@@ -228,6 +229,7 @@ unpack0_char (gfc_array_char *ret,
{ {
gfc_array_char tmp; gfc_array_char tmp;
memset (&tmp, 0, sizeof (tmp));
tmp.dtype = 0; tmp.dtype = 0;
tmp.data = field; tmp.data = field;
unpack_internal (ret, vector, mask, &tmp, vector_length, 0); unpack_internal (ret, vector, mask, &tmp, vector_length, 0);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment