gcc/fortran/

2013-04-25  Tobias Burnus  <burnus@net-b.de>

        * libgfortran.h (GFC_ATTRIBUTE_*): New defines.
        * trans-array.c (gfc_conv_descriptor_elem_len,
        gfc_conv_descriptor_elem_len_get,
        gfc_conv_descriptor_elem_len_set, gfc_conv_descriptor_rank_set,
        gfc_conv_descriptor_version_set, gfc_conv_descriptor_attr_set):
        New functions.
        (gfc_build_null_descriptor, gfc_trans_static_array_pointer,
        gfc_trans_create_temp_array, gfc_conv_array_initializer,
        gfc_conv_expr_descriptor, structure_alloc_comps): Fill new
        fields at decl time/DT-alloc time.
        (gfc_conv_descriptor_size_1, get_full_array_size,
        gfc_alloc_allocatable_for_assignment): Use extent directly.
        * trans-array.h (gfc_conv_descriptor_elem_len_get,
        gfc_conv_descriptor_elem_len_set, gfc_conv_descriptor_rank_set,
        gfc_conv_descriptor_version_set, gfc_conv_descriptor_attr_set):
        New prototype.
        * trans-common.c (create_common): Update calls.
        * trans-decl.c (gfc_get_symbol_decl, get_proc_pointer_decl,
        gfc_trans_deferred_vars, gfc_emit_parameter_debug_info): Ditto.
        * trans-expr.c (gfc_conv_scalar_to_descriptor,
        class_array_data_assign, gfc_conv_derived_to_class,
        gfc_conv_class_to_class, gfc_conv_initializer,
        gfc_trans_pointer_assignment, fcncall_realloc_result): Set new fields.
        (gfc_conv_structure): Update calls.
        (gfc_set_interface_mapping_bounds,
        gfc_conv_subref_array_arg): Use extent directly.
        * trans-intrinsic.c (size_of_string_in_bytes): Remove static.
        * trans-io.c (transfer_namelist_element): Pass elem_size.
        * trans-types.c (gfc_get_array_descriptor_base): Add "attribute"
        * field.
        * trans.h (size_of_string_in_bytes): New prototype.
        (gfc_get_module_backend_decl): Update prototype.

gcc/testsuite/
2013-04-25  Tobias Burnus  <burnus@net-b.de>

        * gfortran.dg/assign_10.f90: Update scan dump times.
        * gfortran.dg/associate_11.f90: Ditto.
        * gfortran.dg/assumed_rank_10.f90: Ditto.
        * gfortran.dg/assumed_rank_12.f90: Ditto.
        * gfortran.dg/assumed_type_2.f90: Ditto.
        * gfortran.dg/class_allocate_14.f90: Ditto.
        * gfortran.dg/intrinsic_size_3.f90: Ditto.
        * gfortran.dg/no_arg_check_2.f90: Ditto.
        * gfortran.dg/transpose_optimization_2.f90: Ditto.
        * gfortran.dg/iso-ts-29113_1.f90: New.
        * gfortran.dg/iso-ts-29113_1_c.c: New.

libgfortran/
2013-04-25  Tobias Burnus  <burnus@net-b.de>

        * ISO_Fortran_binding.h: Renamed to ...
        * ISO_Fortran_binding.h.tmpl: ... this.
        * Makefile.am: Install ISO_Fortran_binding.h,
        build iso_ts29113.
        * gfortran.map (GFORTRAN_1.6): Add TS29113 functions.
        * intrinsics/cshift0.c: Update for field+macro renames.
        * intrinsics/date_and_time.c: Ditto.
        * intrinsics/eoshift0.c: Ditto.
        * intrinsics/eoshift2.c: Ditto.
        * intrinsics/iso_c_binding.c: Ditto.
        * intrinsics/move_alloc.c: Ditto.
        * intrinsics/pack_generic.c: Ditto.
        * intrinsics/spread_generic.c: Ditto.
        * intrinsics/transpose_generic.c: Ditto.
        * io/transfer.c: Ditto.
        * libgfortran.h: Ditto.
        * m4/cshift1.m4: Ditto.
        * m4/eoshift1.m4: Ditto.
        * m4/eoshift3.m4: Ditto.
        * m4/iforeach.m4: Ditto.
        * m4/ifunction.m4: Ditto.
        * m4/ifunction_logical.m4: Ditto.
        * m4/matmull.m4: Ditto.
        * m4/pack.m4: Ditto.
        * m4/reshape.m4: Ditto.
        * m4/spread.m4: Ditto.
        * m4/transpose.m4: Ditto.
        * m4/unpack.m4: Ditto.
        * runtime/bounds.c: Ditto.
        * intrinsics/reshape_generic.c (reshape_internal): Ditto. Use sm
        instead of stride.
        * intrinsics/unpack_generic.c (unpack_internal): Ditto.
        * runtime/in_pack_generic.c: Ditto.
        * runtime/in_unpack_generic.c: Ditto.
        * runtime/iso_ts29113.c: New.
        * mk-kinds-ts29113.sh: New.
        * Makefile.in: Regenerated.
        * aclocal.m4: Regenerated.
        * configure: Regenerated.
        * generated/all_l1.c: Regenerated.
        * generated/all_l16.c: Regenerated.
        * generated/all_l2.c: Regenerated.
        * generated/all_l4.c: Regenerated.
        * generated/all_l8.c: Regenerated.
        * generated/any_l1.c: Regenerated.
        * generated/any_l16.c: Regenerated.
        * generated/any_l2.c: Regenerated.
        * generated/any_l4.c: Regenerated.
        * generated/any_l8.c: Regenerated.
        * generated/count_16_l.c: Regenerated.
        * generated/count_1_l.c: Regenerated.
        * generated/count_2_l.c: Regenerated.
        * generated/count_4_l.c: Regenerated.
        * generated/count_8_l.c: Regenerated.
        * generated/cshift1_16.c: Regenerated.
        * generated/cshift1_4.c: Regenerated.
        * generated/cshift1_8.c: Regenerated.
        * generated/eoshift1_16.c: Regenerated.
        * generated/eoshift1_4.c: Regenerated.
        * generated/eoshift1_8.c: Regenerated.
        * generated/eoshift3_16.c: Regenerated.
        * generated/eoshift3_4.c: Regenerated.
        * generated/eoshift3_8.c: Regenerated.
        * generated/iall_i1.c: Regenerated.
        * generated/iall_i16.c: Regenerated.
        * generated/iall_i2.c: Regenerated.
        * generated/iall_i4.c: Regenerated.
        * generated/iall_i8.c: Regenerated.
        * generated/iany_i1.c: Regenerated.
        * generated/iany_i16.c: Regenerated.
        * generated/iany_i2.c: Regenerated.
        * generated/iany_i4.c: Regenerated.
        * generated/iany_i8.c: Regenerated.
        * generated/iparity_i1.c: Regenerated.
        * generated/iparity_i16.c: Regenerated.
        * generated/iparity_i2.c: Regenerated.
        * generated/iparity_i4.c: Regenerated.
        * generated/iparity_i8.c: Regenerated.
        * generated/matmul_l16.c: Regenerated.
        * generated/matmul_l4.c: Regenerated.
        * generated/matmul_l8.c: Regenerated.
        * generated/maxloc0_16_i1.c: Regenerated.
        * generated/maxloc0_16_i16.c: Regenerated.
        * generated/maxloc0_16_i2.c: Regenerated.
        * generated/maxloc0_16_i4.c: Regenerated.
        * generated/maxloc0_16_i8.c: Regenerated.
        * generated/maxloc0_16_r10.c: Regenerated.
        * generated/maxloc0_16_r16.c: Regenerated.
        * generated/maxloc0_16_r4.c: Regenerated.
        * generated/maxloc0_16_r8.c: Regenerated.
        * generated/maxloc0_4_i1.c: Regenerated.
        * generated/maxloc0_4_i16.c: Regenerated.
        * generated/maxloc0_4_i2.c: Regenerated.
        * generated/maxloc0_4_i4.c: Regenerated.
        * generated/maxloc0_4_i8.c: Regenerated.
        * generated/maxloc0_4_r10.c: Regenerated.
        * generated/maxloc0_4_r16.c: Regenerated.
        * generated/maxloc0_4_r4.c: Regenerated.
        * generated/maxloc0_4_r8.c: Regenerated.
        * generated/maxloc0_8_i1.c: Regenerated.
        * generated/maxloc0_8_i16.c: Regenerated.
        * generated/maxloc0_8_i2.c: Regenerated.
        * generated/maxloc0_8_i4.c: Regenerated.
        * generated/maxloc0_8_i8.c: Regenerated.
        * generated/maxloc0_8_r10.c: Regenerated.
        * generated/maxloc0_8_r16.c: Regenerated.
        * generated/maxloc0_8_r4.c: Regenerated.
        * generated/maxloc0_8_r8.c: Regenerated.
        * generated/maxloc1_16_i1.c: Regenerated.
        * generated/maxloc1_16_i16.c: Regenerated.
        * generated/maxloc1_16_i2.c: Regenerated.
        * generated/maxloc1_16_i4.c: Regenerated.
        * generated/maxloc1_16_i8.c: Regenerated.
        * generated/maxloc1_16_r10.c: Regenerated.
        * generated/maxloc1_16_r16.c: Regenerated.
        * generated/maxloc1_16_r4.c: Regenerated.
        * generated/maxloc1_16_r8.c: Regenerated.
        * generated/maxloc1_4_i1.c: Regenerated.
        * generated/maxloc1_4_i16.c: Regenerated.
        * generated/maxloc1_4_i2.c: Regenerated.
        * generated/maxloc1_4_i4.c: Regenerated.
        * generated/maxloc1_4_i8.c: Regenerated.
        * generated/maxloc1_4_r10.c: Regenerated.
        * generated/maxloc1_4_r16.c: Regenerated.
        * generated/maxloc1_4_r4.c: Regenerated.
        * generated/maxloc1_4_r8.c: Regenerated.
        * generated/maxloc1_8_i1.c: Regenerated.
        * generated/maxloc1_8_i16.c: Regenerated.
        * generated/maxloc1_8_i2.c: Regenerated.
        * generated/maxloc1_8_i4.c: Regenerated.
        * generated/maxloc1_8_i8.c: Regenerated.
        * generated/maxloc1_8_r10.c: Regenerated.
        * generated/maxloc1_8_r16.c: Regenerated.
        * generated/maxloc1_8_r4.c: Regenerated.
        * generated/maxloc1_8_r8.c: Regenerated.
        * generated/maxval_i1.c: Regenerated.
        * generated/maxval_i16.c: Regenerated.
        * generated/maxval_i2.c: Regenerated.
        * generated/maxval_i4.c: Regenerated.
        * generated/maxval_i8.c: Regenerated.
        * generated/maxval_r10.c: Regenerated.
        * generated/maxval_r16.c: Regenerated.
        * generated/maxval_r4.c: Regenerated.
        * generated/maxval_r8.c: Regenerated.
        * generated/minloc0_16_i1.c: Regenerated.
        * generated/minloc0_16_i16.c: Regenerated.
        * generated/minloc0_16_i2.c: Regenerated.
        * generated/minloc0_16_i4.c: Regenerated.
        * generated/minloc0_16_i8.c: Regenerated.
        * generated/minloc0_16_r10.c: Regenerated.
        * generated/minloc0_16_r16.c: Regenerated.
        * generated/minloc0_16_r4.c: Regenerated.
        * generated/minloc0_16_r8.c: Regenerated.
        * generated/minloc0_4_i1.c: Regenerated.
        * generated/minloc0_4_i16.c: Regenerated.
        * generated/minloc0_4_i2.c: Regenerated.
        * generated/minloc0_4_i4.c: Regenerated.
        * generated/minloc0_4_i8.c: Regenerated.
        * generated/minloc0_4_r10.c: Regenerated.
        * generated/minloc0_4_r16.c: Regenerated.
        * generated/minloc0_4_r4.c: Regenerated.
        * generated/minloc0_4_r8.c: Regenerated.
        * generated/minloc0_8_i1.c: Regenerated.
        * generated/minloc0_8_i16.c: Regenerated.
        * generated/minloc0_8_i2.c: Regenerated.
        * generated/minloc0_8_i4.c: Regenerated.
        * generated/minloc0_8_i8.c: Regenerated.
        * generated/minloc0_8_r10.c: Regenerated.
        * generated/minloc0_8_r16.c: Regenerated.
        * generated/minloc0_8_r4.c: Regenerated.
        * generated/minloc0_8_r8.c: Regenerated.
        * generated/minloc1_16_i1.c: Regenerated.
        * generated/minloc1_16_i16.c: Regenerated.
        * generated/minloc1_16_i2.c: Regenerated.
        * generated/minloc1_16_i4.c: Regenerated.
        * generated/minloc1_16_i8.c: Regenerated.
        * generated/minloc1_16_r10.c: Regenerated.
        * generated/minloc1_16_r16.c: Regenerated.
        * generated/minloc1_16_r4.c: Regenerated.
        * generated/minloc1_16_r8.c: Regenerated.
        * generated/minloc1_4_i1.c: Regenerated.
        * generated/minloc1_4_i16.c: Regenerated.
        * generated/minloc1_4_i2.c: Regenerated.
        * generated/minloc1_4_i4.c: Regenerated.
        * generated/minloc1_4_i8.c: Regenerated.
        * generated/minloc1_4_r10.c: Regenerated.
        * generated/minloc1_4_r16.c: Regenerated.
        * generated/minloc1_4_r4.c: Regenerated.
        * generated/minloc1_4_r8.c: Regenerated.
        * generated/minloc1_8_i1.c: Regenerated.
        * generated/minloc1_8_i16.c: Regenerated.
        * generated/minloc1_8_i2.c: Regenerated.
        * generated/minloc1_8_i4.c: Regenerated.
        * generated/minloc1_8_i8.c: Regenerated.
        * generated/minloc1_8_r10.c: Regenerated.
        * generated/minloc1_8_r16.c: Regenerated.
        * generated/minloc1_8_r4.c: Regenerated.
        * generated/minloc1_8_r8.c: Regenerated.
        * generated/minval_i1.c: Regenerated.
        * generated/minval_i16.c: Regenerated.
        * generated/minval_i2.c: Regenerated.
        * generated/minval_i4.c: Regenerated.
        * generated/minval_i8.c: Regenerated.
        * generated/minval_r10.c: Regenerated.
        * generated/minval_r16.c: Regenerated.
        * generated/minval_r4.c: Regenerated.
        * generated/minval_r8.c: Regenerated.
        * generated/norm2_r10.c: Regenerated.
        * generated/norm2_r16.c: Regenerated.
        * generated/norm2_r4.c: Regenerated.
        * generated/norm2_r8.c: Regenerated.
        * generated/pack_c10.c: Regenerated.
        * generated/pack_c16.c: Regenerated.
        * generated/pack_c4.c: Regenerated.
        * generated/pack_c8.c: Regenerated.
        * generated/pack_i1.c: Regenerated.
        * generated/pack_i16.c: Regenerated.
        * generated/pack_i2.c: Regenerated.
        * generated/pack_i4.c: Regenerated.
        * generated/pack_i8.c: Regenerated.
        * generated/pack_r10.c: Regenerated.
        * generated/pack_r16.c: Regenerated.
        * generated/pack_r4.c: Regenerated.
        * generated/pack_r8.c: Regenerated.
        * generated/parity_l1.c: Regenerated.
        * generated/parity_l16.c: Regenerated.
        * generated/parity_l2.c: Regenerated.
        * generated/parity_l4.c: Regenerated.
        * generated/parity_l8.c: Regenerated.
        * generated/product_c10.c: Regenerated.
        * generated/product_c16.c: Regenerated.
        * generated/product_c4.c: Regenerated.
        * generated/product_c8.c: Regenerated.
        * generated/product_i1.c: Regenerated.
        * generated/product_i16.c: Regenerated.
        * generated/product_i2.c: Regenerated.
        * generated/product_i4.c: Regenerated.
        * generated/product_i8.c: Regenerated.
        * generated/product_r10.c: Regenerated.
        * generated/product_r16.c: Regenerated.
        * generated/product_r4.c: Regenerated.
        * generated/product_r8.c: Regenerated.
        * 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.
        * generated/spread_c10.c: Regenerated.
        * generated/spread_c16.c: Regenerated.
        * generated/spread_c4.c: Regenerated.
        * generated/spread_c8.c: Regenerated.
        * generated/spread_i1.c: Regenerated.
        * generated/spread_i16.c: Regenerated.
        * generated/spread_i2.c: Regenerated.
        * generated/spread_i4.c: Regenerated.
        * generated/spread_i8.c: Regenerated.
        * generated/spread_r10.c: Regenerated.
        * generated/spread_r16.c: Regenerated.
        * generated/spread_r4.c: Regenerated.
        * generated/spread_r8.c: Regenerated.
        * generated/sum_c10.c: Regenerated.
        * generated/sum_c16.c: Regenerated.
        * generated/sum_c4.c: Regenerated.
        * generated/sum_c8.c: Regenerated.
        * generated/sum_i1.c: Regenerated.
        * generated/sum_i16.c: Regenerated.
        * generated/sum_i2.c: Regenerated.
        * generated/sum_i4.c: Regenerated.
        * generated/sum_i8.c: Regenerated.
        * generated/sum_r10.c: Regenerated.
        * generated/sum_r16.c: Regenerated.
        * generated/sum_r4.c: Regenerated.
        * generated/sum_r8.c: Regenerated.
        * generated/transpose_c10.c: Regenerated.
        * generated/transpose_c16.c: Regenerated.
        * generated/transpose_c4.c: Regenerated.
        * generated/transpose_c8.c: Regenerated.
        * generated/transpose_i16.c: Regenerated.
        * generated/transpose_i4.c: Regenerated.
        * generated/transpose_i8.c: Regenerated.
        * generated/transpose_r10.c: Regenerated.
        * generated/transpose_r16.c: Regenerated.
        * generated/transpose_r4.c: Regenerated.
        * generated/transpose_r8.c: Regenerated.
        * generated/unpack_c10.c: Regenerated.
        * generated/unpack_c16.c: Regenerated.
        * generated/unpack_c4.c: Regenerated.
        * generated/unpack_c8.c: Regenerated.
        * generated/unpack_i1.c: Regenerated.
        * generated/unpack_i16.c: Regenerated.
        * generated/unpack_i2.c: Regenerated.
        * generated/unpack_i4.c: Regenerated.
        * generated/unpack_i8.c: Regenerated.
        * generated/unpack_r10.c: Regenerated.
        * generated/unpack_r16.c: Regenerated.
        * generated/unpack_r4.c: Regenerated.
        * generated/unpack_r8.c: Regenerated.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/fortran-dev@198277 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 1 insertions, 1 deletions

diff --git a/libgfortran/generated/pack_r16.c b/libgfortran/generated/pack_r16.c
index 9c768350797..dc7db6fda81 100644
--- a/libgfortran/generated/pack_r16.c
+++ b/libgfortran/generated/pack_r16.c
@@ -103,7 +103,7 @@ pack_r16 (gfc_array_r16 *ret, const gfc_array_r16 *array,
   /* Use the same loop for all logical types, by using GFC_LOGICAL_1
      and using shifting to address size and endian issues.  */
 
-  mask_kind = GFC_DESCRIPTOR_SIZE (mask);
+  mask_kind = GFC_DESCRIPTOR_ELEM_LEN (mask);
 
   if (mask_kind == 1 || mask_kind == 2 || mask_kind == 4 || mask_kind == 8
 #ifdef HAVE_GFC_LOGICAL_16