OSDN Git Service

2008-09-22 Jerry DeLisle <jvdelisle@gcc.gnu.org
[pf3gnuchains/gcc-fork.git] / libgfortran / ChangeLog
index 0eb171c..fff673d 100644 (file)
@@ -1,3 +1,355 @@
+2008-09-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org
+
+       PR libfortran/37498
+       * file_pos (st_endfile): Clear memory only for libfortran 4.3 private
+       area.
+       * list_read.c (eat_separator): Only access F2003 I/O parameters if
+       IOPARM_DT_HAS_F2003 bit is set. (parse_real): Ditto.
+       (read_real): Ditto.
+       * read.c (read_a): Likewise. (read_a_char4): Likewise though not
+       strictly necessary. (read_f): Likewise.
+       * io.h (unit_sign_s): New enumerator to allow duplication of
+       st_parameter structures. (IOPARM_DT_HAS_F2003): New mask bit.
+       (st_parameter_43): New structure copied from 4.3 version of 
+       st_paramater_dt private section. (st_parameter_44): New structure with
+       F2003 items added. (st_parameter_dt): Modified to create union of new
+       and old structures to allow correct memory setting for 4.3 ABI
+       compatibility. Bumped the pad size.
+       * transfer.c (read_sf): Do not use F2003 I/O memory areas unless
+       IOPARM_DT_HAS_F2003 bit has been set. (read_block_form): Ditto.
+       (formatted_transfer_scalar): Ditto. (data_transfer_init): Ditto and
+       add comment, fix formatting.
+       * write.c (write_default_char4): Likewise though not strictly necessary.
+       (write_utf8_char4): Ditto. (write_character): Ditto.
+       (write_real_g0): Ditto. (list_formatted_write_scalar): Ditto.
+       (nml_write_obj): Ditto. (namelist_write): Ditto.
+       * write_float.def (calculate_sign): Eliminate warning by including all
+       cases in switch. (output_float): Output only decimal point of F2003 flag
+       is not set.
+
+2008-09-10  Tobias Burnus  <burnus@net-b.de>
+           H. J. Lu  <hongjiu.lu@intel.com>
+
+       * mk-sik-inc.sh: Make -Wunused-variable proof.
+       * mk-srk-inc.sh: Make -Wunused-variable proof.
+
+2008-09-10  Tobias Burnus  <burnus@net-b.de>
+
+       * mk-kinds-h.sh: Make -Wunused-variable proof.
+
+2008-09-07  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR fortran/37203
+       * intrinsics/reshape_generic.c:  Add checking on
+       out-of-bounds and duplicate values of order argument.
+       * m4/reshape.m4:  Likewise.
+       * generated/reshape_c10.c: Regenerated.
+       * generated/reshape_c16.c: Regenerated.
+       * generated/reshape_c4.c: Regenerated.
+       * generated/reshape_c8.c: Regenerated.
+       * generated/reshape_i16.c: Regenerated.
+       * generated/reshape_i4.c: Regenerated.
+       * generated/reshape_i8.c: Regenerated.
+       * generated/reshape_r10.c: Regenerated.
+       * generated/reshape_r16.c: Regenerated.
+       * generated/reshape_r4.c: Regenerated.
+       * generated/reshape_r8.c: Regenerated.
+
+2008-09-06  Tobias Burnus  <burnus@net-b.de>
+
+       * libgfortran.h (likely,unlikely): New makros.
+       (runtime_warning_at,__mingw_snprintf): Add __attribute__(format()).
+       * m4/spread.m4 (spread_'rtype_code`): Use unlikely for bounds_check.
+       * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Ditto.
+       * m4/matmull.m4 (matmul_'rtype_code`): Ditto.
+       * m4/ifunction_logical.m4 (name`'rtype_qual`_'atype_code): Ditto.
+       * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Ditto.
+       * m4/matmul.m4 (matmul_'rtype_code`): Ditto.
+
+       * generated/minval_r8.c: Regenerated.
+       * generated/spread_r10.c: Regenerated.
+       * generated/minloc1_16_r16.c: Regenerated.
+       * generated/maxloc1_4_r8.c: Regenerated.
+       * generated/sum_i8.c: Regenerated.
+       * generated/any_l16.c: Regenerated.
+       * generated/spread_i8.c: Regenerated.
+       * generated/maxval_i2.c: Regenerated.
+       * generated/any_l2.c: Regenerated.
+       * generated/product_r4.c: Regenerated.
+       * generated/maxloc1_8_i4.c: Regenerated.
+       * generated/maxloc0_4_r4.c: Regenerated.
+       * generated/all_l1.c: Regenerated.
+       * generated/matmul_r8.c: Regenerated.
+       * generated/product_i2.c: Regenerated.
+       * generated/minloc0_4_r16.c: Regenerated.
+       * generated/minloc0_4_i1.c: Regenerated.
+       * generated/maxloc0_4_r16.c: Regenerated.
+       * generated/maxloc0_4_i2.c: Regenerated.
+       * generated/minloc1_8_r16.c: Regenerated.
+       * generated/maxloc1_8_r16.c: Regenerated.
+       * generated/maxloc0_8_i8.c: Regenerated.
+       * generated/sum_r16.c: Regenerated.
+       * generated/sum_i1.c: Regenerated.
+       * generated/minloc1_4_r8.c: Regenerated.
+       * generated/maxloc1_16_r16.c: Regenerated.
+       * generated/minloc1_16_i4.c: Regenerated.
+       * generated/maxloc1_16_i4.c: Regenerated.
+       * generated/minloc0_16_i8.c: Regenerated.
+       * generated/spread_i1.c: Regenerated.
+       * generated/maxloc0_16_i8.c: Regenerated.
+       * generated/maxval_r16.c: Regenerated.
+       * generated/product_c10.c: Regenerated.
+       * generated/minloc1_8_i4.c: Regenerated.
+       * generated/minloc0_16_i16.c: Regenerated.
+       * generated/matmul_r16.c: Regenerated.
+       * generated/minloc0_4_r4.c: Regenerated.
+       * generated/all_l2.c: Regenerated.
+       * generated/product_c4.c: Regenerated.
+       * generated/sum_r4.c: Regenerated.
+       * generated/minloc0_4_i2.c: Regenerated.
+       * generated/spread_c10.c: Regenerated.
+       * generated/maxloc0_8_i1.c: Regenerated.
+       * generated/spread_r4.c: Regenerated.
+       * generated/minloc0_8_i8.c: Regenerated.
+       * generated/matmul_c8.c: Regenerated.
+       * generated/all_l16.c: Regenerated.
+       * generated/minloc1_16_r10.c: Regenerated.
+       * generated/sum_i2.c: Regenerated.
+       * generated/minloc0_16_i1.c: Regenerated.
+       * generated/maxloc0_16_i1.c: Regenerated.
+       * generated/maxloc1_8_r8.c: Regenerated.
+       * generated/minval_i16.c: Regenerated.
+       * generated/spread_i2.c: Regenerated.
+       * generated/maxval_i4.c: Regenerated.
+       * generated/minval_i8.c: Regenerated.
+       * generated/any_l4.c: Regenerated.
+       * generated/maxloc1_4_i8.c: Regenerated.
+       * generated/maxloc0_16_i16.c: Regenerated.
+       * generated/maxloc0_8_r4.c: Regenerated.
+       * generated/minloc1_4_i16.c: Regenerated.
+       * generated/maxloc1_4_i16.c: Regenerated.
+       * generated/minloc0_4_r10.c: Regenerated.
+       * generated/minloc0_8_i16.c: Regenerated.
+       * generated/maxloc0_4_r10.c: Regenerated.
+       * generated/maxloc0_8_i16.c: Regenerated.
+       * generated/minloc1_8_r10.c: Regenerated.
+       * generated/product_i4.c: Regenerated.
+       * generated/minloc0_16_r4.c: Regenerated.
+       * generated/sum_c16.c: Regenerated.
+       * generated/maxloc1_8_r10.c: Regenerated.
+       * generated/maxloc0_16_r4.c: Regenerated.
+       * generated/minloc1_16_r8.c: Regenerated.
+       * generated/minloc0_8_i1.c: Regenerated.
+       * generated/maxloc0_4_i4.c: Regenerated.
+       * generated/maxloc1_16_r8.c: Regenerated.
+       * generated/maxloc0_8_i2.c: Regenerated.
+       * generated/sum_r10.c: Regenerated.
+       * generated/count_4_l.c: Regenerated.
+       * generated/sum_c4.c: Regenerated.
+       * generated/count_8_l.c: Regenerated.
+       * generated/maxloc1_16_r10.c: Regenerated.
+       * generated/matmul_i8.c: Regenerated.
+       * generated/minloc0_16_i2.c: Regenerated.
+       * generated/minloc1_8_r8.c: Regenerated.
+       * generated/maxloc0_16_i2.c: Regenerated.
+       * generated/spread_c4.c: Regenerated.
+       * generated/matmul_c16.c: Regenerated.
+       * generated/maxval_r10.c: Regenerated.
+       * generated/minval_i1.c: Regenerated.
+       * generated/maxloc1_4_i1.c: Regenerated.
+       * generated/matmul_r10.c: Regenerated.
+       * generated/minloc1_4_i8.c: Regenerated.
+       * generated/minloc0_8_r4.c: Regenerated.
+       * generated/matmul_l4.c: Regenerated.
+       * generated/product_i16.c: Regenerated.
+       * generated/minloc0_16_r16.c: Regenerated.
+       * generated/all_l4.c: Regenerated.
+       * generated/minloc0_4_i4.c: Regenerated.
+       * generated/minloc0_8_i2.c: Regenerated.
+       * generated/matmul_i1.c: Regenerated.
+       * generated/minval_r4.c: Regenerated.
+       * generated/maxloc1_4_r4.c: Regenerated.
+       * generated/spread_i16.c: Regenerated.
+       * generated/sum_i4.c: Regenerated.
+       * generated/maxval_r8.c: Regenerated.
+       * generated/spread_i4.c: Regenerated.
+       * generated/minloc1_4_i1.c: Regenerated.
+       * generated/minval_r16.c: Regenerated.
+       * generated/minval_i2.c: Regenerated.
+       * generated/maxloc1_4_i2.c: Regenerated.
+       * generated/product_r8.c: Regenerated.
+       * generated/maxloc1_8_i8.c: Regenerated.
+       * generated/maxloc0_4_r8.c: Regenerated.
+       * generated/maxloc0_16_r16.c: Regenerated.
+       * generated/matmul_r4.c: Regenerated.
+       * generated/sum_c10.c: Regenerated.
+       * generated/minloc1_4_r16.c: Regenerated.
+       * generated/maxloc1_4_r16.c: Regenerated.
+       * generated/minloc0_8_r16.c: Regenerated.
+       * generated/maxloc0_8_r16.c: Regenerated.
+       * generated/count_1_l.c: Regenerated.
+       * generated/maxloc0_8_i4.c: Regenerated.
+       * generated/matmul_i2.c: Regenerated.
+       * generated/minloc1_4_r4.c: Regenerated.
+       * generated/matmul_c10.c: Regenerated.
+       * generated/minloc0_16_i4.c: Regenerated.
+       * generated/maxloc0_16_i4.c: Regenerated.
+       * generated/minloc1_16_i8.c: Regenerated.
+       * generated/maxloc1_16_i8.c: Regenerated.
+       * generated/minloc1_4_i2.c: Regenerated.
+       * generated/matmul_l16.c: Regenerated.
+       * generated/maxloc1_8_i1.c: Regenerated.
+       * generated/minloc0_16_r10.c: Regenerated.
+       * generated/minloc1_8_i8.c: Regenerated.
+       * generated/minloc0_4_r8.c: Regenerated.
+       * generated/product_r16.c: Regenerated.
+       * generated/product_c8.c: Regenerated.
+       * generated/sum_r8.c: Regenerated.
+       * generated/minloc0_8_i4.c: Regenerated.
+       * generated/matmul_c4.c: Regenerated.
+       * generated/minloc1_16_i16.c: Regenerated.
+       * generated/spread_r8.c: Regenerated.
+       * generated/maxloc1_8_r4.c: Regenerated.
+       * generated/minloc1_16_i1.c: Regenerated.
+       * generated/maxloc1_16_i1.c: Regenerated.
+       * generated/spread_r16.c: Regenerated.
+       * generated/minval_r10.c: Regenerated.
+       * generated/count_16_l.c: Regenerated.
+       * generated/minval_i4.c: Regenerated.
+       * generated/minloc1_8_i1.c: Regenerated.
+       * generated/maxloc1_4_i4.c: Regenerated.
+       * generated/maxloc1_8_i2.c: Regenerated.
+       * generated/maxval_i8.c: Regenerated.
+       * generated/any_l8.c: Regenerated.
+       * generated/maxloc0_16_r10.c: Regenerated.
+       * generated/minloc0_4_i16.c: Regenerated.
+       * generated/maxloc0_8_r8.c: Regenerated.
+       * generated/maxloc0_4_i16.c: Regenerated.
+       * generated/minloc1_4_r10.c: Regenerated.
+       * generated/minloc1_8_i16.c: Regenerated.
+       * generated/maxloc1_4_r10.c: Regenerated.
+       * generated/maxloc1_8_i16.c: Regenerated.
+       * generated/minloc0_8_r10.c: Regenerated.
+       * generated/maxloc0_8_r10.c: Regenerated.
+       * generated/minloc1_16_r4.c: Regenerated.
+       * generated/maxloc1_16_r4.c: Regenerated.
+       * generated/minloc0_16_r8.c: Regenerated.
+       * generated/product_i8.c: Regenerated.
+       * generated/maxloc0_16_r8.c: Regenerated.
+       * generated/sum_i16.c: Regenerated.
+       * generated/count_2_l.c: Regenerated.
+       * generated/maxloc0_4_i8.c: Regenerated.
+       * generated/maxloc1_16_i16.c: Regenerated.
+       * generated/matmul_i4.c: Regenerated.
+       * generated/minloc1_8_r4.c: Regenerated.
+       * generated/sum_c8.c: Regenerated.
+       * generated/minloc1_16_i2.c: Regenerated.
+       * generated/maxloc1_16_i2.c: Regenerated.
+       * generated/maxval_i16.c: Regenerated.
+       * generated/spread_c8.c: Regenerated.
+       * generated/matmul_i16.c: Regenerated.
+       * generated/minloc1_4_i4.c: Regenerated.
+       * generated/maxval_i1.c: Regenerated.
+       * generated/minloc1_8_i2.c: Regenerated.
+       * generated/any_l1.c: Regenerated.
+       * generated/product_c16.c: Regenerated.
+       * generated/minloc0_8_r8.c: Regenerated.
+       * generated/matmul_l8.c: Regenerated.
+       * generated/product_r10.c: Regenerated.
+       * generated/product_i1.c: Regenerated.
+       * generated/all_l8.c: Regenerated.
+       * generated/maxloc0_4_i1.c: Regenerated.
+       * generated/minloc0_4_i8.c: Regenerated.
+       * generated/spread_c16.c: Regenerated.
+       * generated/maxval_r4.c: Regenerated.
+
+2008-09-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libfortran/37301
+       PR libfortran/37228
+       * io/io.h (write_real_g0): Declare new function to handle g0.d format.
+       * io/transfer.c (formatted_transfer_scalar): Use new function.
+       * io/format.c (parse_format_list): Enable g0.d.
+       * io/write.c (write_a_char4): Delete unused var.
+       (set_fnode_default): New function to set the default fnode w, d, and e
+       factored from write_real. (write_real): Use new factored function.
+       (write_real_g0): New function that sets d to that passed by g0.d format
+       specifier and set format to ES.  Default values for w and e are used
+       from the new function, set_fnode_default.
+
+2008-09-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       * runtime/error.c: Fix cast for printf.
+
+2008-08-30  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libfortran/36895
+       * io/write.c (namelist_write_newline): New function to correctly mark
+       next records in both external and internal units.
+       (nml_write_obj): Use new function.
+       (namelist_write: Use new function.
+
+2008-08-19  Tobias Burnus  <burnus@net-b.de>
+
+       PR libfortran/35863
+       * io/write.c (write_a_char4): Add missing variable declaration
+       in HAVE_CRLF block.
+
+2008-08-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libfortran/35863
+       * intrinsics/selected_char_kind.c: Enable iso_10646.
+       * io/read.c (typedef uchar): New type.
+       (read_utf8): New function to read a single UTF-8 encoded character.
+       (read_utf8_char1): New function to read UTF-8 into a KIND=1 string.
+       (read_default_char1): New functio to read default into KIND=1 string.
+       (read_utf8_char4): New function to read UTF-8 into a KIND=4 string.
+       (read_default_char4): New function to read UTF-8 into a KIND=4 string.
+       (read_a): Modify to use the new functions.
+       (read_a_char4): Modify to use the new functions.
+       * io/write.c (error.h): Add include. (typedef uchar): New type.
+       (write_default_char4): New function to default write KIND=4 string.
+       (write_utf8_char4): New function to UTF-8 write KIND=4 string.
+       (write_a_char4): Modify to use new functions.
+       (write_character): Modify to use new functions.
+
+2008-08-14  H.J. Lu  <hongjiu.lu@intel.com>
+
+       PR libfortran/37123
+       * intrinsics/cshift0.c (cshift0): Fix 2 typos.
+
+2008-08-14  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR libfortran/36886
+       * Makefile.am:  Added $(i_cshift0_c).
+       Added $(i_cshift0_c) to gfor_built_specific_src.
+       Add rule to build from cshift0.m4.
+       * Makefile.in:  Regenerated.
+       * libgfortran.h:  Addedd prototypes for cshift0_i1,
+       cshift0_i2, cshift0_i4, cshift0_i8, cshift0_i16,
+       cshift0_r4, cshift0_r8, cshift0_r10, cshift0_r16,
+       cshift0_c4, cshift0_c8, cshift0_c10, cshift0_c16.
+       Define Macros GFC_UNALIGNED_C4 and GFC_UNALIGNED_C8.
+       * intrinsics/cshift0.c:  Remove helper functions for
+       the innter shift loop.
+       (cshift0):  Call specific functions depending on type
+       of array argument.  Only call specific functions for
+       correct alignment for other types.
+       * m4/cshift0.m4:  New file.
+       * generated/cshift0_i1.c:  New file.
+       * generated/cshift0_i2.c:  New file.
+       * generated/cshift0_i4.c:  New file.
+       * generated/cshift0_i8:.c  New file.
+       * generated/cshift0_i16.c:  New file.
+       * generated/cshift0_r4.c:  New file.
+       * generated/cshift0_r8.c:  New file.
+       * generated/cshift0_r10.c:  New file.
+       * generated/cshift0_r16.c:  New file.
+       * generated/cshift0_c4.c:  New file.
+       * generated/cshift0_c8.c:  New file.
+       * generated/cshift0_c10.c:  New file.
+       * generated/cshift0_c16.c:  New file.
+
 2008-07-27  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/36132
@@ -9,7 +361,7 @@
 
 2008-07-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
-       PR fortran/36852
+       PR fortran/36582
        * io/list_read.c: If variable rank is zero, do not adjust the found
        namelist object pointer.