2009-08-14 21:30:13 +02:00
|
|
|
2009-08-15 Kai Tietz <kai.tietz@onevision.com>
|
|
|
|
|
|
|
|
* intrinsics/string_intrinsics_inc.c (string_len_trim): Use
|
|
|
|
__INTPTR_TYPE__ to cast from pointer to scalar integer, if
|
|
|
|
__INTPTR_TYPE is defined.
|
|
|
|
|
2009-08-14 19:54:27 +02:00
|
|
|
2009-08-14 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
* fmain.c: Add comment saying file is deprecated.
|
|
|
|
|
2009-08-14 19:44:50 +02:00
|
|
|
2009-08-14 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/40863
|
|
|
|
* gfortran.map: Move new symbols to GFORTRAN_C99_1.1 version node.
|
|
|
|
|
2009-08-09 13:02:08 +02:00
|
|
|
2009-08-09 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/40549
|
|
|
|
* Makefile.in (LTLDFLAGS): Add -no-undefined.
|
|
|
|
* Makefile.am: Regenerate.
|
|
|
|
* libgfortran.h: Remove unused block of code.
|
|
|
|
|
2009-08-02 20:31:07 +02:00
|
|
|
2009-08-02 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/40853
|
|
|
|
* io/list_read.c (nml_get_obj_data): Do not set nl
|
|
|
|
pointer to first_nl if nl->next is NULL.
|
|
|
|
|
2009-07-31 14:29:33 +02:00
|
|
|
2009-07-31 Kaz Kojima <kkojima@gcc.gnu.org>
|
|
|
|
|
|
|
|
* Makefile.am: Don't set SECTION_FLAGS with @SECTION_FLAGS@.
|
|
|
|
Don't set IEEE_FLAGS with @IEEE_FLAGS@.
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
2009-07-31 00:56:08 +02:00
|
|
|
2009-07-30 Kaz Kojima <kkojima@gcc.gnu.org>
|
|
|
|
|
|
|
|
* configure.host: Define ieee_flags and set it to -mieee for sh.
|
|
|
|
* configure.ac: Set IEEE_FLAGS with ieee_flags.
|
|
|
|
* Makefile.am: Add IEEE_FLAGS to AM_CFLAGS.
|
|
|
|
* configure: Regenerate.
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
2009-07-30 21:41:13 +02:00
|
|
|
2009-07-30 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
|
|
|
|
|
|
|
|
* configure.ac (_AC_ARG_VAR_PRECIOUS): Use m4_rename_force.
|
|
|
|
|
2009-07-27 11:24:41 +02:00
|
|
|
2009-07-27 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
PR fortran/40863
|
|
|
|
* c99_functions.c: Define complex I, if not defined.
|
|
|
|
Create prototypes for C99 functions to silence warnings.
|
|
|
|
* gfortran.map: Add missing functions to GFORTRAN_C99_1.0
|
|
|
|
and new GFORTRAN_C99_1.1.
|
|
|
|
|
re PR fortran/33197 (Fortran 2008: math functions)
2009-07-25 Tobias Burnus <burnus@net-b.de>
Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/33197
* intrinsic.c (add_functions): Support complex arguments for
acos,acosh,asin,asinh,atan,atanh.
* invoke.texi (ACOS,ACOSH,ASIN,ASINH,ATAN,ATANH): Support
complex arguments.
* simplify.c (gfc_simplify_acos,gfc_simplify_acosh,
gfc_simplify_asin,gfc_simplify_asinh,gfc_simplify_atan,
gfc_simplify_atanh,gfc_simplify_atan,gfc_simplify_asinh,
gfc_simplify_acosh,gfc_simplify_atanh): Support
complex arguments.
2009-07-25 Tobias Burnus <burnus@net-b.de>
PR fortran/33197
* intrinsics/c99_functions.c (cacosf,cacos,cacosl,casinf,
casin,casind,catanf,catan,catanl,cacoshf,cacosh,cacoshl,
casinhf,casinh,casinhf,catanhf,catanh,catanhl): New functions.
* c99_protos.h: Add prototypes for those.
2009-07-25 Tobias Burnus <burnus@net-b.de>
PR fortran/33197
* gfortran.dg/complex_intrinsic_5.f90: New test.
* gfortran.dg/complex_intrinsic_7.f90: New test.
Co-Authored-By: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
From-SVN: r150087
2009-07-25 21:39:07 +02:00
|
|
|
2009-07-25 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
PR fortran/33197
|
|
|
|
* intrinsics/c99_functions.c (cacosf,cacos,cacosl,casinf,
|
|
|
|
casin,casind,catanf,catan,catanl,cacoshf,cacosh,cacoshl,
|
|
|
|
casinhf,casinh,casinhf,catanhf,catanh,catanhl): New functions.
|
|
|
|
* c99_protos.h: Add prototypes for those.
|
|
|
|
|
re PR fortran/40643 (maxloc/minloc: Wrong result for NaN at position 1)
PR fortran/40643
PR fortran/31067
* trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc,
gfc_conv_intrinsic_minmaxval): Handle Infinities and NaNs properly,
optimize.
* trans-array.c (gfc_trans_scalarized_loop_end): No longer static.
* trans-array.h (gfc_trans_scalarized_loop_end): New prototype.
* libgfortran.h (GFC_REAL_4_INFINITY, GFC_REAL_8_INFINITY,
GFC_REAL_10_INFINITY, GFC_REAL_16_INFINITY, GFC_REAL_4_QUIET_NAN,
GFC_REAL_8_QUIET_NAN, GFC_REAL_10_QUIET_NAN, GFC_REAL_16_QUIET_NAN):
Define.
* m4/iparm.m4 (atype_inf, atype_nan): Define.
* m4/ifunction.m4: Formatting.
* m4/iforeach.m4: Likewise.
(START_FOREACH_FUNCTION): Initialize dest to all 1s, not all 0s.
(START_FOREACH_BLOCK, FINISH_FOREACH_FUNCTION,
FINISH_MASKED_FOREACH_FUNCTION): Run foreach block inside a loop
until count[0] == extent[0].
* m4/minval.m4: Formatting. Handle NaNs and infinities. Optimize.
* m4/maxval.m4: Likewise.
* m4/minloc0.m4: Likewise.
* m4/maxloc0.m4: Likewise.
* m4/minloc1.m4: Likewise.
* m4/maxloc1.m4: Likewise.
* generated/maxloc0_16_i16.c: Regenerated.
* generated/maxloc0_16_i1.c: Likewise.
* generated/maxloc0_16_i2.c: Likewise.
* generated/maxloc0_16_i4.c: Likewise.
* generated/maxloc0_16_i8.c: Likewise.
* generated/maxloc0_16_r10.c: Likewise.
* generated/maxloc0_16_r16.c: Likewise.
* generated/maxloc0_16_r4.c: Likewise.
* generated/maxloc0_16_r8.c: Likewise.
* generated/maxloc0_4_i16.c: Likewise.
* generated/maxloc0_4_i1.c: Likewise.
* generated/maxloc0_4_i2.c: Likewise.
* generated/maxloc0_4_i4.c: Likewise.
* generated/maxloc0_4_i8.c: Likewise.
* generated/maxloc0_4_r10.c: Likewise.
* generated/maxloc0_4_r16.c: Likewise.
* generated/maxloc0_4_r4.c: Likewise.
* generated/maxloc0_4_r8.c: Likewise.
* generated/maxloc0_8_i16.c: Likewise.
* generated/maxloc0_8_i1.c: Likewise.
* generated/maxloc0_8_i2.c: Likewise.
* generated/maxloc0_8_i4.c: Likewise.
* generated/maxloc0_8_i8.c: Likewise.
* generated/maxloc0_8_r10.c: Likewise.
* generated/maxloc0_8_r16.c: Likewise.
* generated/maxloc0_8_r4.c: Likewise.
* generated/maxloc0_8_r8.c: Likewise.
* generated/maxloc1_16_i16.c: Likewise.
* generated/maxloc1_16_i1.c: Likewise.
* generated/maxloc1_16_i2.c: Likewise.
* generated/maxloc1_16_i4.c: Likewise.
* generated/maxloc1_16_i8.c: Likewise.
* generated/maxloc1_16_r10.c: Likewise.
* generated/maxloc1_16_r16.c: Likewise.
* generated/maxloc1_16_r4.c: Likewise.
* generated/maxloc1_16_r8.c: Likewise.
* generated/maxloc1_4_i16.c: Likewise.
* generated/maxloc1_4_i1.c: Likewise.
* generated/maxloc1_4_i2.c: Likewise.
* generated/maxloc1_4_i4.c: Likewise.
* generated/maxloc1_4_i8.c: Likewise.
* generated/maxloc1_4_r10.c: Likewise.
* generated/maxloc1_4_r16.c: Likewise.
* generated/maxloc1_4_r4.c: Likewise.
* generated/maxloc1_4_r8.c: Likewise.
* generated/maxloc1_8_i16.c: Likewise.
* generated/maxloc1_8_i1.c: Likewise.
* generated/maxloc1_8_i2.c: Likewise.
* generated/maxloc1_8_i4.c: Likewise.
* generated/maxloc1_8_i8.c: Likewise.
* generated/maxloc1_8_r10.c: Likewise.
* generated/maxloc1_8_r16.c: Likewise.
* generated/maxloc1_8_r4.c: Likewise.
* generated/maxloc1_8_r8.c: Likewise.
* generated/maxval_i16.c: Likewise.
* generated/maxval_i1.c: Likewise.
* generated/maxval_i2.c: Likewise.
* generated/maxval_i4.c: Likewise.
* generated/maxval_i8.c: Likewise.
* generated/maxval_r10.c: Likewise.
* generated/maxval_r16.c: Likewise.
* generated/maxval_r4.c: Likewise.
* generated/maxval_r8.c: Likewise.
* generated/minloc0_16_i16.c: Likewise.
* generated/minloc0_16_i1.c: Likewise.
* generated/minloc0_16_i2.c: Likewise.
* generated/minloc0_16_i4.c: Likewise.
* generated/minloc0_16_i8.c: Likewise.
* generated/minloc0_16_r10.c: Likewise.
* generated/minloc0_16_r16.c: Likewise.
* generated/minloc0_16_r4.c: Likewise.
* generated/minloc0_16_r8.c: Likewise.
* generated/minloc0_4_i16.c: Likewise.
* generated/minloc0_4_i1.c: Likewise.
* generated/minloc0_4_i2.c: Likewise.
* generated/minloc0_4_i4.c: Likewise.
* generated/minloc0_4_i8.c: Likewise.
* generated/minloc0_4_r10.c: Likewise.
* generated/minloc0_4_r16.c: Likewise.
* generated/minloc0_4_r4.c: Likewise.
* generated/minloc0_4_r8.c: Likewise.
* generated/minloc0_8_i16.c: Likewise.
* generated/minloc0_8_i1.c: Likewise.
* generated/minloc0_8_i2.c: Likewise.
* generated/minloc0_8_i4.c: Likewise.
* generated/minloc0_8_i8.c: Likewise.
* generated/minloc0_8_r10.c: Likewise.
* generated/minloc0_8_r16.c: Likewise.
* generated/minloc0_8_r4.c: Likewise.
* generated/minloc0_8_r8.c: Likewise.
* generated/minloc1_16_i16.c: Likewise.
* generated/minloc1_16_i1.c: Likewise.
* generated/minloc1_16_i2.c: Likewise.
* generated/minloc1_16_i4.c: Likewise.
* generated/minloc1_16_i8.c: Likewise.
* generated/minloc1_16_r10.c: Likewise.
* generated/minloc1_16_r16.c: Likewise.
* generated/minloc1_16_r4.c: Likewise.
* generated/minloc1_16_r8.c: Likewise.
* generated/minloc1_4_i16.c: Likewise.
* generated/minloc1_4_i1.c: Likewise.
* generated/minloc1_4_i2.c: Likewise.
* generated/minloc1_4_i4.c: Likewise.
* generated/minloc1_4_i8.c: Likewise.
* generated/minloc1_4_r10.c: Likewise.
* generated/minloc1_4_r16.c: Likewise.
* generated/minloc1_4_r4.c: Likewise.
* generated/minloc1_4_r8.c: Likewise.
* generated/minloc1_8_i16.c: Likewise.
* generated/minloc1_8_i1.c: Likewise.
* generated/minloc1_8_i2.c: Likewise.
* generated/minloc1_8_i4.c: Likewise.
* generated/minloc1_8_i8.c: Likewise.
* generated/minloc1_8_r10.c: Likewise.
* generated/minloc1_8_r16.c: Likewise.
* generated/minloc1_8_r4.c: Likewise.
* generated/minloc1_8_r8.c: Likewise.
* generated/minval_i16.c: Likewise.
* generated/minval_i1.c: Likewise.
* generated/minval_i2.c: Likewise.
* generated/minval_i4.c: Likewise.
* generated/minval_i8.c: Likewise.
* generated/minval_r10.c: Likewise.
* generated/minval_r16.c: Likewise.
* generated/minval_r4.c: Likewise.
* generated/minval_r8.c: Likewise.
* generated/product_c10.c: Likewise.
* generated/product_c16.c: Likewise.
* generated/product_c4.c: Likewise.
* generated/product_c8.c: Likewise.
* generated/product_i16.c: Likewise.
* generated/product_i1.c: Likewise.
* generated/product_i2.c: Likewise.
* generated/product_i4.c: Likewise.
* generated/product_i8.c: Likewise.
* generated/product_r10.c: Likewise.
* generated/product_r16.c: Likewise.
* generated/product_r4.c: Likewise.
* generated/product_r8.c: Likewise.
* generated/sum_c10.c: Likewise.
* generated/sum_c16.c: Likewise.
* generated/sum_c4.c: Likewise.
* generated/sum_c8.c: Likewise.
* generated/sum_i16.c: Likewise.
* generated/sum_i1.c: Likewise.
* generated/sum_i2.c: Likewise.
* generated/sum_i4.c: Likewise.
* generated/sum_i8.c: Likewise.
* generated/sum_r10.c: Likewise.
* generated/sum_r16.c: Likewise.
* generated/sum_r4.c: Likewise.
* generated/sum_r8.c: Likewise.
* gfortran.dg/maxlocval_2.f90: New test.
* gfortran.dg/maxlocval_3.f90: New test.
* gfortran.dg/maxlocval_4.f90: New test.
* gfortran.dg/minlocval_1.f90: New test.
* gfortran.dg/minlocval_2.f90: New test.
* gfortran.dg/minlocval_3.f90: New test.
* gfortran.dg/minlocval_4.f90: New test.
From-SVN: r150041
2009-07-24 09:57:13 +02:00
|
|
|
2009-07-24 Jakub Jelinek <jakub@redhat.com>
|
|
|
|
|
|
|
|
PR fortran/40643
|
|
|
|
PR fortran/31067
|
|
|
|
* libgfortran.h (GFC_REAL_4_INFINITY, GFC_REAL_8_INFINITY,
|
|
|
|
GFC_REAL_10_INFINITY, GFC_REAL_16_INFINITY, GFC_REAL_4_QUIET_NAN,
|
|
|
|
GFC_REAL_8_QUIET_NAN, GFC_REAL_10_QUIET_NAN, GFC_REAL_16_QUIET_NAN):
|
|
|
|
Define.
|
|
|
|
* m4/iparm.m4 (atype_inf, atype_nan): Define.
|
|
|
|
* m4/ifunction.m4: Formatting.
|
|
|
|
* m4/iforeach.m4: Likewise.
|
|
|
|
(START_FOREACH_FUNCTION): Initialize dest to all 1s, not all 0s.
|
|
|
|
(START_FOREACH_BLOCK, FINISH_FOREACH_FUNCTION,
|
|
|
|
FINISH_MASKED_FOREACH_FUNCTION): Run foreach block inside a loop
|
|
|
|
until count[0] == extent[0].
|
|
|
|
* m4/minval.m4: Formatting. Handle NaNs and infinities. Optimize.
|
|
|
|
* m4/maxval.m4: Likewise.
|
|
|
|
* m4/minloc0.m4: Likewise.
|
|
|
|
* m4/maxloc0.m4: Likewise.
|
|
|
|
* m4/minloc1.m4: Likewise.
|
|
|
|
* m4/maxloc1.m4: Likewise.
|
|
|
|
* generated/maxloc0_16_i16.c: Regenerated.
|
|
|
|
* generated/maxloc0_16_i1.c: Likewise.
|
|
|
|
* generated/maxloc0_16_i2.c: Likewise.
|
|
|
|
* generated/maxloc0_16_i4.c: Likewise.
|
|
|
|
* generated/maxloc0_16_i8.c: Likewise.
|
|
|
|
* generated/maxloc0_16_r10.c: Likewise.
|
|
|
|
* generated/maxloc0_16_r16.c: Likewise.
|
|
|
|
* generated/maxloc0_16_r4.c: Likewise.
|
|
|
|
* generated/maxloc0_16_r8.c: Likewise.
|
|
|
|
* generated/maxloc0_4_i16.c: Likewise.
|
|
|
|
* generated/maxloc0_4_i1.c: Likewise.
|
|
|
|
* generated/maxloc0_4_i2.c: Likewise.
|
|
|
|
* generated/maxloc0_4_i4.c: Likewise.
|
|
|
|
* generated/maxloc0_4_i8.c: Likewise.
|
|
|
|
* generated/maxloc0_4_r10.c: Likewise.
|
|
|
|
* generated/maxloc0_4_r16.c: Likewise.
|
|
|
|
* generated/maxloc0_4_r4.c: Likewise.
|
|
|
|
* generated/maxloc0_4_r8.c: Likewise.
|
|
|
|
* generated/maxloc0_8_i16.c: Likewise.
|
|
|
|
* generated/maxloc0_8_i1.c: Likewise.
|
|
|
|
* generated/maxloc0_8_i2.c: Likewise.
|
|
|
|
* generated/maxloc0_8_i4.c: Likewise.
|
|
|
|
* generated/maxloc0_8_i8.c: Likewise.
|
|
|
|
* generated/maxloc0_8_r10.c: Likewise.
|
|
|
|
* generated/maxloc0_8_r16.c: Likewise.
|
|
|
|
* generated/maxloc0_8_r4.c: Likewise.
|
|
|
|
* generated/maxloc0_8_r8.c: Likewise.
|
|
|
|
* generated/maxloc1_16_i16.c: Likewise.
|
|
|
|
* generated/maxloc1_16_i1.c: Likewise.
|
|
|
|
* generated/maxloc1_16_i2.c: Likewise.
|
|
|
|
* generated/maxloc1_16_i4.c: Likewise.
|
|
|
|
* generated/maxloc1_16_i8.c: Likewise.
|
|
|
|
* generated/maxloc1_16_r10.c: Likewise.
|
|
|
|
* generated/maxloc1_16_r16.c: Likewise.
|
|
|
|
* generated/maxloc1_16_r4.c: Likewise.
|
|
|
|
* generated/maxloc1_16_r8.c: Likewise.
|
|
|
|
* generated/maxloc1_4_i16.c: Likewise.
|
|
|
|
* generated/maxloc1_4_i1.c: Likewise.
|
|
|
|
* generated/maxloc1_4_i2.c: Likewise.
|
|
|
|
* generated/maxloc1_4_i4.c: Likewise.
|
|
|
|
* generated/maxloc1_4_i8.c: Likewise.
|
|
|
|
* generated/maxloc1_4_r10.c: Likewise.
|
|
|
|
* generated/maxloc1_4_r16.c: Likewise.
|
|
|
|
* generated/maxloc1_4_r4.c: Likewise.
|
|
|
|
* generated/maxloc1_4_r8.c: Likewise.
|
|
|
|
* generated/maxloc1_8_i16.c: Likewise.
|
|
|
|
* generated/maxloc1_8_i1.c: Likewise.
|
|
|
|
* generated/maxloc1_8_i2.c: Likewise.
|
|
|
|
* generated/maxloc1_8_i4.c: Likewise.
|
|
|
|
* generated/maxloc1_8_i8.c: Likewise.
|
|
|
|
* generated/maxloc1_8_r10.c: Likewise.
|
|
|
|
* generated/maxloc1_8_r16.c: Likewise.
|
|
|
|
* generated/maxloc1_8_r4.c: Likewise.
|
|
|
|
* generated/maxloc1_8_r8.c: Likewise.
|
|
|
|
* generated/maxval_i16.c: Likewise.
|
|
|
|
* generated/maxval_i1.c: Likewise.
|
|
|
|
* generated/maxval_i2.c: Likewise.
|
|
|
|
* generated/maxval_i4.c: Likewise.
|
|
|
|
* generated/maxval_i8.c: Likewise.
|
|
|
|
* generated/maxval_r10.c: Likewise.
|
|
|
|
* generated/maxval_r16.c: Likewise.
|
|
|
|
* generated/maxval_r4.c: Likewise.
|
|
|
|
* generated/maxval_r8.c: Likewise.
|
|
|
|
* generated/minloc0_16_i16.c: Likewise.
|
|
|
|
* generated/minloc0_16_i1.c: Likewise.
|
|
|
|
* generated/minloc0_16_i2.c: Likewise.
|
|
|
|
* generated/minloc0_16_i4.c: Likewise.
|
|
|
|
* generated/minloc0_16_i8.c: Likewise.
|
|
|
|
* generated/minloc0_16_r10.c: Likewise.
|
|
|
|
* generated/minloc0_16_r16.c: Likewise.
|
|
|
|
* generated/minloc0_16_r4.c: Likewise.
|
|
|
|
* generated/minloc0_16_r8.c: Likewise.
|
|
|
|
* generated/minloc0_4_i16.c: Likewise.
|
|
|
|
* generated/minloc0_4_i1.c: Likewise.
|
|
|
|
* generated/minloc0_4_i2.c: Likewise.
|
|
|
|
* generated/minloc0_4_i4.c: Likewise.
|
|
|
|
* generated/minloc0_4_i8.c: Likewise.
|
|
|
|
* generated/minloc0_4_r10.c: Likewise.
|
|
|
|
* generated/minloc0_4_r16.c: Likewise.
|
|
|
|
* generated/minloc0_4_r4.c: Likewise.
|
|
|
|
* generated/minloc0_4_r8.c: Likewise.
|
|
|
|
* generated/minloc0_8_i16.c: Likewise.
|
|
|
|
* generated/minloc0_8_i1.c: Likewise.
|
|
|
|
* generated/minloc0_8_i2.c: Likewise.
|
|
|
|
* generated/minloc0_8_i4.c: Likewise.
|
|
|
|
* generated/minloc0_8_i8.c: Likewise.
|
|
|
|
* generated/minloc0_8_r10.c: Likewise.
|
|
|
|
* generated/minloc0_8_r16.c: Likewise.
|
|
|
|
* generated/minloc0_8_r4.c: Likewise.
|
|
|
|
* generated/minloc0_8_r8.c: Likewise.
|
|
|
|
* generated/minloc1_16_i16.c: Likewise.
|
|
|
|
* generated/minloc1_16_i1.c: Likewise.
|
|
|
|
* generated/minloc1_16_i2.c: Likewise.
|
|
|
|
* generated/minloc1_16_i4.c: Likewise.
|
|
|
|
* generated/minloc1_16_i8.c: Likewise.
|
|
|
|
* generated/minloc1_16_r10.c: Likewise.
|
|
|
|
* generated/minloc1_16_r16.c: Likewise.
|
|
|
|
* generated/minloc1_16_r4.c: Likewise.
|
|
|
|
* generated/minloc1_16_r8.c: Likewise.
|
|
|
|
* generated/minloc1_4_i16.c: Likewise.
|
|
|
|
* generated/minloc1_4_i1.c: Likewise.
|
|
|
|
* generated/minloc1_4_i2.c: Likewise.
|
|
|
|
* generated/minloc1_4_i4.c: Likewise.
|
|
|
|
* generated/minloc1_4_i8.c: Likewise.
|
|
|
|
* generated/minloc1_4_r10.c: Likewise.
|
|
|
|
* generated/minloc1_4_r16.c: Likewise.
|
|
|
|
* generated/minloc1_4_r4.c: Likewise.
|
|
|
|
* generated/minloc1_4_r8.c: Likewise.
|
|
|
|
* generated/minloc1_8_i16.c: Likewise.
|
|
|
|
* generated/minloc1_8_i1.c: Likewise.
|
|
|
|
* generated/minloc1_8_i2.c: Likewise.
|
|
|
|
* generated/minloc1_8_i4.c: Likewise.
|
|
|
|
* generated/minloc1_8_i8.c: Likewise.
|
|
|
|
* generated/minloc1_8_r10.c: Likewise.
|
|
|
|
* generated/minloc1_8_r16.c: Likewise.
|
|
|
|
* generated/minloc1_8_r4.c: Likewise.
|
|
|
|
* generated/minloc1_8_r8.c: Likewise.
|
|
|
|
* generated/minval_i16.c: Likewise.
|
|
|
|
* generated/minval_i1.c: Likewise.
|
|
|
|
* generated/minval_i2.c: Likewise.
|
|
|
|
* generated/minval_i4.c: Likewise.
|
|
|
|
* generated/minval_i8.c: Likewise.
|
|
|
|
* generated/minval_r10.c: Likewise.
|
|
|
|
* generated/minval_r16.c: Likewise.
|
|
|
|
* generated/minval_r4.c: Likewise.
|
|
|
|
* generated/minval_r8.c: Likewise.
|
|
|
|
* generated/product_c10.c: Likewise.
|
|
|
|
* generated/product_c16.c: Likewise.
|
|
|
|
* generated/product_c4.c: Likewise.
|
|
|
|
* generated/product_c8.c: Likewise.
|
|
|
|
* generated/product_i16.c: Likewise.
|
|
|
|
* generated/product_i1.c: Likewise.
|
|
|
|
* generated/product_i2.c: Likewise.
|
|
|
|
* generated/product_i4.c: Likewise.
|
|
|
|
* generated/product_i8.c: Likewise.
|
|
|
|
* generated/product_r10.c: Likewise.
|
|
|
|
* generated/product_r16.c: Likewise.
|
|
|
|
* generated/product_r4.c: Likewise.
|
|
|
|
* generated/product_r8.c: Likewise.
|
|
|
|
* generated/sum_c10.c: Likewise.
|
|
|
|
* generated/sum_c16.c: Likewise.
|
|
|
|
* generated/sum_c4.c: Likewise.
|
|
|
|
* generated/sum_c8.c: Likewise.
|
|
|
|
* generated/sum_i16.c: Likewise.
|
|
|
|
* generated/sum_i1.c: Likewise.
|
|
|
|
* generated/sum_i2.c: Likewise.
|
|
|
|
* generated/sum_i4.c: Likewise.
|
|
|
|
* generated/sum_i8.c: Likewise.
|
|
|
|
* generated/sum_r10.c: Likewise.
|
|
|
|
* generated/sum_r16.c: Likewise.
|
|
|
|
* generated/sum_r4.c: Likewise.
|
|
|
|
* generated/sum_r8.c: Likewise.
|
|
|
|
|
2009-07-23 02:58:46 +02:00
|
|
|
2009-07-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/32784
|
|
|
|
* unix.c (regular_file): Check for CONIN$ CONOUT$, and CONERR$ and open
|
|
|
|
the respective /dev/conin or /dev/conout devices. This is Cygwin
|
|
|
|
specific.
|
|
|
|
|
2009-07-19 17:07:21 +02:00
|
|
|
2009-07-19 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/34670
|
|
|
|
PR libfortran/36874
|
|
|
|
* Makefile.am: Add bounds.c
|
|
|
|
* libgfortran.h (bounds_equal_extents): Add prototype.
|
|
|
|
(bounds_iforeach_return): Likewise.
|
|
|
|
(bounds_ifunction_return): Likewise.
|
|
|
|
(bounds_reduced_extents): Likewise.
|
|
|
|
* runtime/bounds.c: New file.
|
|
|
|
(bounds_iforeach_return): New function; correct typo in
|
|
|
|
error message.
|
|
|
|
(bounds_ifunction_return): New function.
|
|
|
|
(bounds_equal_extents): New function.
|
|
|
|
(bounds_reduced_extents): Likewise.
|
|
|
|
* intrinsics/cshift0.c (cshift0): Use new functions
|
|
|
|
for bounds checking.
|
|
|
|
* intrinsics/eoshift0.c (eoshift0): Likewise.
|
|
|
|
* intrinsics/eoshift2.c (eoshift2): Likewise.
|
|
|
|
* m4/iforeach.m4: Likewise.
|
|
|
|
* m4/eoshift1.m4: Likewise.
|
|
|
|
* m4/eoshift3.m4: Likewise.
|
|
|
|
* m4/cshift1.m4: Likewise.
|
|
|
|
* m4/ifunction.m4: Likewise.
|
|
|
|
* Makefile.in: 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/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/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/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.
|
|
|
|
|
2009-07-17 21:40:23 +02:00
|
|
|
2009-07-17 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/40714
|
|
|
|
* io/transfer.c (finalize_transfer): Set current_record to 0
|
|
|
|
before returning in case of error.
|
|
|
|
|
2009-07-13 08:26:38 +02:00
|
|
|
2009-07-12 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
PR libfortran/22423
|
|
|
|
* io/io.h (namelist_type): Use the proper enum for GFC_DTYPE_*.
|
|
|
|
* intrinsics/iso_c_binding.c (c_f_pointer_u0): Make sure
|
|
|
|
variable is initialized to silence warning.
|
|
|
|
|
2009-07-10 17:25:31 +02:00
|
|
|
2009-07-10 Steven G. Kargl <kargl@gcc.gnu.org>
|
|
|
|
|
|
|
|
* c99_functions.c (ccoshf, ccosh, ccoshl, ctanhf, ctanh, ctanl):
|
|
|
|
Fix errant minus.
|
2009-07-13 08:26:38 +02:00
|
|
|
|
2009-07-09 03:20:23 +02:00
|
|
|
2009-07-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/40330
|
|
|
|
PR libfortran/40662
|
|
|
|
* io/io.h (st_parameter_dt): Define format_not_saved bit used to signal
|
|
|
|
whether the parsed format data was previously saved. Used to determine
|
|
|
|
if the current format data should be freed or not.
|
|
|
|
* io/transfer.c (st_read_done): Use the format_not_saved bit.
|
|
|
|
(st_write_done): Likewise.
|
|
|
|
* io/format.c (parse_format_list): Add boolean pointer to arg list. This
|
|
|
|
pointer is used to return status to the caller regarding whether it is
|
|
|
|
safe to cache the parsed format data. Currently, if a FMT_STRING token
|
|
|
|
is encounetered, it is not safe to cache. Also, added a local boolean
|
|
|
|
variable to hold this information as recursive calls to
|
|
|
|
parse_format_list are made. Remove previous save_format logic.
|
|
|
|
(parse_format): Do not use the format caching facility if the current
|
|
|
|
unit is an internal unit or if it is not safe to save parsed format
|
|
|
|
data.
|
|
|
|
|
2009-06-30 02:46:35 +02:00
|
|
|
2009-06-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/40576
|
|
|
|
* io/transfer.c (sset): Adjust exit condition for loop.
|
|
|
|
|
2009-06-23 02:17:06 +02:00
|
|
|
2009-06-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
2009-06-23 02:16:24 +02:00
|
|
|
|
|
|
|
PR libfortran/40508
|
|
|
|
* io/format.c: Don't save parsed format data for internal units.
|
|
|
|
|
re PR fortran/37577 ([meta-bug] change internal array descriptor format for better syntax, C interop TR, rank 15)
2009-06-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/37577
Port from fortran-dev
* runtime/in_pack_generic (internal_pack): Remove unnecessary
test for stride == 0.
* runtime/in_unpack_generic.c (internal_unpack): Likewise.
* intrinsics/iso_c_binding.c (c_f_pointer_u0): Take care
of stride in "shape" argument. Use array access macros for
accessing array descriptors.
* libgfortran.h (struct descriptor_dimension): Change stride
to _stride, lbound to _lbound and ubound to _ubound.
(GFC_DIMENSION_LBOUND): Use new name(s) in struct
descriptor_dimension.
(GFC_DIMENSION_UBOUND): Likewise.
(GFC_DIMENSION_STRIDE): Likewise.
(GFC_DIMENSION_EXTENT): Likewise.
(GFC_DIMENSION_SET): Likewise.
(GFC_DESCRIPTOR_LBOUND): Likewise.
(GFC_DESCRIPTOR_UBOUND): Likewise.
(GFC_DESCRIPTOR_EXTENT): Likewise.
(GFC_DESCRIPTOR_STRIDE): Likewise.
* io/transfer.c (transfer_array): Use array access macros.
Use byte-sized strides.
* intrinsics/eoshift0.c (eoshift0): Use array access
macros everywhere.
* m4/in_pack.m4 (internal_pack_'rtype_ccode`): Use
array access macros for accessing array descriptors.
* m4/in_unpack.m4 (internal_unpack_'rtype_ccode`):
Likewise.
* m4/matmull.m4 (matmul_'rtype_code`): Likewise.
* m4/matmul.m4 (matmul_'rtype_code`): Likewise.
* m4/unpack.m4 (unpack0_'rtype_code`): Likewise.
(unpack1_'rtype_code`): Likewise.
* m4/ifunction_logical.m4 (name`'rtype_qual`_'atype_code): Likewise.
* m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Use array access
macros everywhere.
* intrinsics/dtime.c (dtime_sub): Use array access macros
for accessing array descriptors.
* intrinsics/cshift0 (cshift0): Likewise.
* intrinsics/etime.c: Likewise. Remove redundant calculation
of rdim.
* m4/cshift0.m4 (cshift0_'rtype_code`): Use array access macros
for accessing array descriptors.
* m4/pack.m4 (pack_'rtype_code`): Likewise.
* m4/spread.m4 (spread_'rtype_code`): Likewise.
(spread_scalar_'rtype_code`): Likewise.
* m4/transpose.m4 (transpose_'rtype_code`): Likewise.
* m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Likewise.
* m4/eoshift1.m4 (eoshift1): Likewise. Remove size argument,
calculate within function.
(eoshift1_'atype_kind`): Remove size argument from call
to eoshift1.
(eoshift1_'atype_kind`_char): Likewise.
(eoshift1_'atype_kind`_char4): Likewise.
* m4/eoshift3.m4 (eoshift3): Remove size argument, calculate
within function. Use array access macros for accessing array
descriptors.
(eoshift3_'atype_kind`): Remove size argument from call
to eoshift1.
(eoshift3_'atype_kind`_char): Likewise.
(eoshift3_'atype_kind`_char4): Likewise.
* m4/shape.m4 (shape_'rtype_kind`): Use array access macros
for accessing array descriptors.
* m4/cshift1.m4 (cshift1): Remove size argument, calculate
within function. Use array access macros for accessing array
descriptors.
(cshift1_'atype_kind`): Remove size argument from call to
cshift1.
(cshift1_'atype_kind`_char): Remove size argument from call to
cshift1.
(cshift1_'atype_kind`_char4): Remove size argument from call to
cshift1.
* m4/reshape.m4 (reshape_'rtype_ccode`): Use array access macros
for accessing array descriptors.
* m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Likewise.
* intrinsics/pack_generic.c (pack_internal): Use array access
macros for accessing array descriptors.
(pack_s_internal): Likewise.
* intrinsics/transpose_generic.c (transpose_internal): Remove
size argument, calculate from array descriptor. Use array
access macros for accessing array descriptors.
(transpose): Remove size argument from call.
(transpoe_char): Likewise.
(transpose_char4): Likewise.
* intrinsics/move_alloc.c (move_alloc): Use array access macros
for accessing array descriptors.
* intrinsics/spread_generic.c (spread_internal): Remove size
argument, calculate from array descriptor. Use array access
macros for accessing array descriptors.
(spread_internal_scalar): Likewise.
(spread): Remove size argument from call to spread_internal.
(spread_char): Mark argument source_length as unused.
Remove size argument from call to spread_internal.
(spread_char4): Likewise.
(spread_char_scalar): Likewise.
(spread_char4_scalar): Likewise.
* intrinsics/unpack_generic.c (unpack_internal): Use array access
macros for accessing array descriptors.
* intrinsics/eoshift2.c (eoshift2): Remove size argument, calculate
from array descriptor instead. Use array access macros for
accessing array descriptors.
(eoshift2_##N): Remove size argument from call to eoshift2.
(eoshift2_##N_##char): Likewise.
(eoshift2_##N_##char4): Likewise.
* intrinsics/reshape_generic.c (reshape_internal): Use array
access macross for accessing array descriptors.
* libgfortran.h: Introduce new macros GFC_DIMENSION_LBOUND,
GFC_DIMENSION_UBOUND,GFC_DIMENSION_STRIDE, GFC_DIMENSION_EXTENT,
GFC_DIMENSION_SET, GFC_DESCRIPTOR_LBOUND, GFC_DESCRIPTOR_UBOUND,
GFC_DESCRIPTOR_EXTENT, GFC_DESCRIPTOR_EXTENT_BYTES,
GFC_DESCRIPTOR_STRIDE, GFC_DESCRIPTOR_STRIDE_BYTES
* runtime/in_pack_generic.c (internal_pack): Use new macros
for array descriptor access.
* runtime/in_unpack_generic.c (internal_unpack): Likewise.
* intrinsics/dtime.c (dtime_sub): Likewise.
* intrinsics/cshift0 (cshift0): Remove argument size,
calculate directly from the array descriptor. Use new macros
for array descriptor access.
* cshift0_##N: Remove shift argument in call to cshift0.
* cshift0_##N_char: Mark array_length as unused. Remove
array_length in call to cshift0.
* cshift0_##N_char4: Likewise.
* intrisics/etime.c: Use new macros for array descriptor access.
* intrinsics/stat.c (stat_i4_sub_0): Likewise.
(stat_i8_sub_0): Likewise.
(fstat_i4_sub): Likewise.
(fstat_i8_sub): Likewise.
* intrinsics/date_and_time.c (date_and_time): Likewise.
(secnds): Likewise.
(itime_i4): Likewise.
(itime_i8): Likewise.
(idate_i4): Likewise.
(idate_i8): Likewise.
(gmtime_i4): Likewise.
(gmtime_i8): Likewise.
(ltime_i4): Likewise.
(litme_i8): Likewise.
* intrinsics/associated.c (associated): Likewise.
* intrinsics/eoshift0.c (eoshift0): Likewise.
* intriniscs/size.c (size0): Likewise.
* intrinsics/random.c (arandom_r4): Likewise.
(arandom_r8): Likewise.
(arandom_r10): Likewise.
(arandom_r16): Likewise.
(random_seed_i4): Likewise.
(random_seed_i8): Likewise.
* io/list_read.c (nml_parse_qualifier): Likewise.
(nml_touch_nodes): Likewise.
(nml_read_obj): Likewise.
(get_name): Likewise.
* io/transfer.c (transfer_array): Likewise.
(init_loop_spec): Likewise.
(st_set_nml_var_dim): Likewise.
* io/write.c (nml_write_obj): Likewise.
(obj_loop): Likewise.
* 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/cshift0_c10.c: Regenerated.
* generated/cshift0_c16.c: Regenerated.
* generated/cshift0_c4.c: Regenerated.
* generated/cshift0_c8.c: Regenerated.
* generated/cshift0_i1.c: Regenerated.
* generated/cshift0_i16.c: Regenerated.
* generated/cshift0_i2.c: Regenerated.
* generated/cshift0_i4.c: Regenerated.
* generated/cshift0_i8.c: Regenerated.
* generated/cshift0_r10.c: Regenerated.
* generated/cshift0_r16.c: Regenerated.
* generated/cshift0_r4.c: Regenerated.
* generated/cshift0_r8.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/in_pack_c10.c: Regenerated.
* generated/in_pack_c16.c: Regenerated.
* generated/in_pack_c4.c: Regenerated.
* generated/in_pack_c8.c: Regenerated.
* generated/in_pack_i1.c: Regenerated.
* generated/in_pack_i16.c: Regenerated.
* generated/in_pack_i2.c: Regenerated.
* generated/in_pack_i4.c: Regenerated.
* generated/in_pack_i8.c: Regenerated.
* generated/in_pack_r10.c: Regenerated.
* generated/in_pack_r16.c: Regenerated.
* generated/in_pack_r4.c: Regenerated.
* generated/in_pack_r8.c: Regenerated.
* generated/in_unpack_c10.c: Regenerated.
* generated/in_unpack_c16.c: Regenerated.
* generated/in_unpack_c4.c: Regenerated.
* generated/in_unpack_c8.c: Regenerated.
* generated/in_unpack_i1.c: Regenerated.
* generated/in_unpack_i16.c: Regenerated.
* generated/in_unpack_i2.c: Regenerated.
* generated/in_unpack_i4.c: Regenerated.
* generated/in_unpack_i8.c: Regenerated.
* generated/in_unpack_r10.c: Regenerated.
* generated/in_unpack_r16.c: Regenerated.
* generated/in_unpack_r4.c: Regenerated.
* generated/in_unpack_r8.c: Regenerated.
* generated/matmul_c10.c: Regenerated.
* generated/matmul_c16.c: Regenerated.
* generated/matmul_c4.c: Regenerated.
* generated/matmul_c8.c: Regenerated.
* generated/matmul_i1.c: Regenerated.
* generated/matmul_i16.c: Regenerated.
* generated/matmul_i2.c: Regenerated.
* generated/matmul_i4.c: Regenerated.
* generated/matmul_i8.c: Regenerated.
* generated/matmul_l16.c: Regenerated.
* generated/matmul_l4.c: Regenerated.
* generated/matmul_l8.c: Regenerated.
* generated/matmul_r10.c: Regenerated.
* generated/matmul_r16.c: Regenerated.
* generated/matmul_r4.c: Regenerated.
* generated/matmul_r8.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/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/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/shape_i16.c: Regenerated.
* generated/shape_i4.c: Regenerated.
* generated/shape_i8.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.
From-SVN: r148769
2009-06-21 21:24:55 +02:00
|
|
|
2009-06-21 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/37577
|
|
|
|
Port from fortran-dev
|
|
|
|
* runtime/in_pack_generic (internal_pack): Remove unnecessary
|
|
|
|
test for stride == 0.
|
|
|
|
* runtime/in_unpack_generic.c (internal_unpack): Likewise.
|
|
|
|
* intrinsics/iso_c_binding.c (c_f_pointer_u0): Take care
|
|
|
|
of stride in "shape" argument. Use array access macros for
|
|
|
|
accessing array descriptors.
|
|
|
|
* libgfortran.h (struct descriptor_dimension): Change stride
|
|
|
|
to _stride, lbound to _lbound and ubound to _ubound.
|
|
|
|
(GFC_DIMENSION_LBOUND): Use new name(s) in struct
|
|
|
|
descriptor_dimension.
|
|
|
|
(GFC_DIMENSION_UBOUND): Likewise.
|
|
|
|
(GFC_DIMENSION_STRIDE): Likewise.
|
|
|
|
(GFC_DIMENSION_EXTENT): Likewise.
|
|
|
|
(GFC_DIMENSION_SET): Likewise.
|
|
|
|
(GFC_DESCRIPTOR_LBOUND): Likewise.
|
|
|
|
(GFC_DESCRIPTOR_UBOUND): Likewise.
|
|
|
|
(GFC_DESCRIPTOR_EXTENT): Likewise.
|
|
|
|
(GFC_DESCRIPTOR_STRIDE): Likewise.
|
|
|
|
* io/transfer.c (transfer_array): Use array access macros.
|
|
|
|
Use byte-sized strides.
|
|
|
|
* intrinsics/eoshift0.c (eoshift0): Use array access
|
|
|
|
macros everywhere.
|
|
|
|
* m4/in_pack.m4 (internal_pack_'rtype_ccode`): Use
|
|
|
|
array access macros for accessing array descriptors.
|
|
|
|
* m4/in_unpack.m4 (internal_unpack_'rtype_ccode`):
|
|
|
|
Likewise.
|
|
|
|
* m4/matmull.m4 (matmul_'rtype_code`): Likewise.
|
|
|
|
* m4/matmul.m4 (matmul_'rtype_code`): Likewise.
|
|
|
|
* m4/unpack.m4 (unpack0_'rtype_code`): Likewise.
|
|
|
|
(unpack1_'rtype_code`): Likewise.
|
|
|
|
* m4/ifunction_logical.m4 (name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
* m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Use array access
|
|
|
|
macros everywhere.
|
|
|
|
* intrinsics/dtime.c (dtime_sub): Use array access macros
|
|
|
|
for accessing array descriptors.
|
|
|
|
* intrinsics/cshift0 (cshift0): Likewise.
|
|
|
|
* intrinsics/etime.c: Likewise. Remove redundant calculation
|
|
|
|
of rdim.
|
|
|
|
* m4/cshift0.m4 (cshift0_'rtype_code`): Use array access macros
|
|
|
|
for accessing array descriptors.
|
|
|
|
* m4/pack.m4 (pack_'rtype_code`): Likewise.
|
|
|
|
* m4/spread.m4 (spread_'rtype_code`): Likewise.
|
|
|
|
(spread_scalar_'rtype_code`): Likewise.
|
|
|
|
* m4/transpose.m4 (transpose_'rtype_code`): Likewise.
|
|
|
|
* m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
* m4/eoshift1.m4 (eoshift1): Likewise. Remove size argument,
|
|
|
|
calculate within function.
|
|
|
|
(eoshift1_'atype_kind`): Remove size argument from call
|
|
|
|
to eoshift1.
|
|
|
|
(eoshift1_'atype_kind`_char): Likewise.
|
|
|
|
(eoshift1_'atype_kind`_char4): Likewise.
|
|
|
|
* m4/eoshift3.m4 (eoshift3): Remove size argument, calculate
|
|
|
|
within function. Use array access macros for accessing array
|
|
|
|
descriptors.
|
|
|
|
(eoshift3_'atype_kind`): Remove size argument from call
|
|
|
|
to eoshift1.
|
|
|
|
(eoshift3_'atype_kind`_char): Likewise.
|
|
|
|
(eoshift3_'atype_kind`_char4): Likewise.
|
|
|
|
* m4/shape.m4 (shape_'rtype_kind`): Use array access macros
|
|
|
|
for accessing array descriptors.
|
|
|
|
* m4/cshift1.m4 (cshift1): Remove size argument, calculate
|
|
|
|
within function. Use array access macros for accessing array
|
|
|
|
descriptors.
|
|
|
|
(cshift1_'atype_kind`): Remove size argument from call to
|
|
|
|
cshift1.
|
|
|
|
(cshift1_'atype_kind`_char): Remove size argument from call to
|
|
|
|
cshift1.
|
|
|
|
(cshift1_'atype_kind`_char4): Remove size argument from call to
|
|
|
|
cshift1.
|
|
|
|
* m4/reshape.m4 (reshape_'rtype_ccode`): Use array access macros
|
|
|
|
for accessing array descriptors.
|
|
|
|
* m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
* intrinsics/pack_generic.c (pack_internal): Use array access
|
|
|
|
macros for accessing array descriptors.
|
|
|
|
(pack_s_internal): Likewise.
|
|
|
|
* intrinsics/transpose_generic.c (transpose_internal): Remove
|
|
|
|
size argument, calculate from array descriptor. Use array
|
|
|
|
access macros for accessing array descriptors.
|
|
|
|
(transpose): Remove size argument from call.
|
|
|
|
(transpoe_char): Likewise.
|
|
|
|
(transpose_char4): Likewise.
|
|
|
|
* intrinsics/move_alloc.c (move_alloc): Use array access macros
|
|
|
|
for accessing array descriptors.
|
|
|
|
* intrinsics/spread_generic.c (spread_internal): Remove size
|
|
|
|
argument, calculate from array descriptor. Use array access
|
|
|
|
macros for accessing array descriptors.
|
|
|
|
(spread_internal_scalar): Likewise.
|
|
|
|
(spread): Remove size argument from call to spread_internal.
|
|
|
|
(spread_char): Mark argument source_length as unused.
|
|
|
|
Remove size argument from call to spread_internal.
|
|
|
|
(spread_char4): Likewise.
|
|
|
|
(spread_char_scalar): Likewise.
|
|
|
|
(spread_char4_scalar): Likewise.
|
|
|
|
* intrinsics/unpack_generic.c (unpack_internal): Use array access
|
|
|
|
macros for accessing array descriptors.
|
|
|
|
* intrinsics/eoshift2.c (eoshift2): Remove size argument, calculate
|
|
|
|
from array descriptor instead. Use array access macros for
|
|
|
|
accessing array descriptors.
|
|
|
|
(eoshift2_##N): Remove size argument from call to eoshift2.
|
|
|
|
(eoshift2_##N_##char): Likewise.
|
|
|
|
(eoshift2_##N_##char4): Likewise.
|
|
|
|
* intrinsics/reshape_generic.c (reshape_internal): Use array
|
|
|
|
access macross for accessing array descriptors.
|
|
|
|
* libgfortran.h: Introduce new macros GFC_DIMENSION_LBOUND,
|
|
|
|
GFC_DIMENSION_UBOUND,GFC_DIMENSION_STRIDE, GFC_DIMENSION_EXTENT,
|
|
|
|
GFC_DIMENSION_SET, GFC_DESCRIPTOR_LBOUND, GFC_DESCRIPTOR_UBOUND,
|
|
|
|
GFC_DESCRIPTOR_EXTENT, GFC_DESCRIPTOR_EXTENT_BYTES,
|
|
|
|
GFC_DESCRIPTOR_STRIDE, GFC_DESCRIPTOR_STRIDE_BYTES
|
|
|
|
* runtime/in_pack_generic.c (internal_pack): Use new macros
|
|
|
|
for array descriptor access.
|
|
|
|
* runtime/in_unpack_generic.c (internal_unpack): Likewise.
|
|
|
|
* intrinsics/dtime.c (dtime_sub): Likewise.
|
|
|
|
* intrinsics/cshift0 (cshift0): Remove argument size,
|
|
|
|
calculate directly from the array descriptor. Use new macros
|
|
|
|
for array descriptor access.
|
|
|
|
* cshift0_##N: Remove shift argument in call to cshift0.
|
|
|
|
* cshift0_##N_char: Mark array_length as unused. Remove
|
|
|
|
array_length in call to cshift0.
|
|
|
|
* cshift0_##N_char4: Likewise.
|
|
|
|
* intrisics/etime.c: Use new macros for array descriptor access.
|
|
|
|
* intrinsics/stat.c (stat_i4_sub_0): Likewise.
|
|
|
|
(stat_i8_sub_0): Likewise.
|
|
|
|
(fstat_i4_sub): Likewise.
|
|
|
|
(fstat_i8_sub): Likewise.
|
|
|
|
* intrinsics/date_and_time.c (date_and_time): Likewise.
|
|
|
|
(secnds): Likewise.
|
|
|
|
(itime_i4): Likewise.
|
|
|
|
(itime_i8): Likewise.
|
|
|
|
(idate_i4): Likewise.
|
|
|
|
(idate_i8): Likewise.
|
|
|
|
(gmtime_i4): Likewise.
|
|
|
|
(gmtime_i8): Likewise.
|
|
|
|
(ltime_i4): Likewise.
|
|
|
|
(litme_i8): Likewise.
|
|
|
|
* intrinsics/associated.c (associated): Likewise.
|
|
|
|
* intrinsics/eoshift0.c (eoshift0): Likewise.
|
|
|
|
* intriniscs/size.c (size0): Likewise.
|
|
|
|
* intrinsics/random.c (arandom_r4): Likewise.
|
|
|
|
(arandom_r8): Likewise.
|
|
|
|
(arandom_r10): Likewise.
|
|
|
|
(arandom_r16): Likewise.
|
|
|
|
(random_seed_i4): Likewise.
|
|
|
|
(random_seed_i8): Likewise.
|
|
|
|
* io/list_read.c (nml_parse_qualifier): Likewise.
|
|
|
|
(nml_touch_nodes): Likewise.
|
|
|
|
(nml_read_obj): Likewise.
|
|
|
|
(get_name): Likewise.
|
|
|
|
* io/transfer.c (transfer_array): Likewise.
|
|
|
|
(init_loop_spec): Likewise.
|
|
|
|
(st_set_nml_var_dim): Likewise.
|
|
|
|
* io/write.c (nml_write_obj): Likewise.
|
|
|
|
(obj_loop): Likewise.
|
|
|
|
* 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/cshift0_c10.c: Regenerated.
|
|
|
|
* generated/cshift0_c16.c: Regenerated.
|
|
|
|
* generated/cshift0_c4.c: Regenerated.
|
|
|
|
* generated/cshift0_c8.c: Regenerated.
|
|
|
|
* generated/cshift0_i1.c: Regenerated.
|
|
|
|
* generated/cshift0_i16.c: Regenerated.
|
|
|
|
* generated/cshift0_i2.c: Regenerated.
|
|
|
|
* generated/cshift0_i4.c: Regenerated.
|
|
|
|
* generated/cshift0_i8.c: Regenerated.
|
|
|
|
* generated/cshift0_r10.c: Regenerated.
|
|
|
|
* generated/cshift0_r16.c: Regenerated.
|
|
|
|
* generated/cshift0_r4.c: Regenerated.
|
|
|
|
* generated/cshift0_r8.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/in_pack_c10.c: Regenerated.
|
|
|
|
* generated/in_pack_c16.c: Regenerated.
|
|
|
|
* generated/in_pack_c4.c: Regenerated.
|
|
|
|
* generated/in_pack_c8.c: Regenerated.
|
|
|
|
* generated/in_pack_i1.c: Regenerated.
|
|
|
|
* generated/in_pack_i16.c: Regenerated.
|
|
|
|
* generated/in_pack_i2.c: Regenerated.
|
|
|
|
* generated/in_pack_i4.c: Regenerated.
|
|
|
|
* generated/in_pack_i8.c: Regenerated.
|
|
|
|
* generated/in_pack_r10.c: Regenerated.
|
|
|
|
* generated/in_pack_r16.c: Regenerated.
|
|
|
|
* generated/in_pack_r4.c: Regenerated.
|
|
|
|
* generated/in_pack_r8.c: Regenerated.
|
|
|
|
* generated/in_unpack_c10.c: Regenerated.
|
|
|
|
* generated/in_unpack_c16.c: Regenerated.
|
|
|
|
* generated/in_unpack_c4.c: Regenerated.
|
|
|
|
* generated/in_unpack_c8.c: Regenerated.
|
|
|
|
* generated/in_unpack_i1.c: Regenerated.
|
|
|
|
* generated/in_unpack_i16.c: Regenerated.
|
|
|
|
* generated/in_unpack_i2.c: Regenerated.
|
|
|
|
* generated/in_unpack_i4.c: Regenerated.
|
|
|
|
* generated/in_unpack_i8.c: Regenerated.
|
|
|
|
* generated/in_unpack_r10.c: Regenerated.
|
|
|
|
* generated/in_unpack_r16.c: Regenerated.
|
|
|
|
* generated/in_unpack_r4.c: Regenerated.
|
|
|
|
* generated/in_unpack_r8.c: Regenerated.
|
|
|
|
* generated/matmul_c10.c: Regenerated.
|
|
|
|
* generated/matmul_c16.c: Regenerated.
|
|
|
|
* generated/matmul_c4.c: Regenerated.
|
|
|
|
* generated/matmul_c8.c: Regenerated.
|
|
|
|
* generated/matmul_i1.c: Regenerated.
|
|
|
|
* generated/matmul_i16.c: Regenerated.
|
|
|
|
* generated/matmul_i2.c: Regenerated.
|
|
|
|
* generated/matmul_i4.c: Regenerated.
|
|
|
|
* generated/matmul_i8.c: Regenerated.
|
|
|
|
* generated/matmul_l16.c: Regenerated.
|
|
|
|
* generated/matmul_l4.c: Regenerated.
|
|
|
|
* generated/matmul_l8.c: Regenerated.
|
|
|
|
* generated/matmul_r10.c: Regenerated.
|
|
|
|
* generated/matmul_r16.c: Regenerated.
|
|
|
|
* generated/matmul_r4.c: Regenerated.
|
|
|
|
* generated/matmul_r8.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/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/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/shape_i16.c: Regenerated.
|
|
|
|
* generated/shape_i4.c: Regenerated.
|
|
|
|
* generated/shape_i8.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.
|
|
|
|
|
2009-06-14 18:52:49 +02:00
|
|
|
2009-06-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
* fmain.c (main): Don't PREFIX set_args.
|
|
|
|
* libgfortran.h (set_args): Use iexport_proto.
|
|
|
|
* runtime/main.c (set_args): Use iexport.
|
|
|
|
|
2009-06-07 21:00:47 +02:00
|
|
|
2009-06-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/40008
|
|
|
|
* libgfortran.h: Define IOPARM_OPEN_HAS_NEWUNIT.
|
|
|
|
* io/open.c (st_open): Don't error on negative unit number if NEWUNIT
|
|
|
|
was specified. If NEWUNIT is specified, call new function to get the
|
|
|
|
unique unit number and assign it.
|
|
|
|
* io/io.h (st_parameter_open): Add pointer to newunit. Add prototype for
|
|
|
|
next_available_newunit. Add prototype for new function,
|
|
|
|
get_unique_unit_number.
|
|
|
|
* io/unit.c: Declare next_available_newunit. Define the first newunit
|
|
|
|
number. (init_units): Initialize next_available_unit.
|
|
|
|
(get_unique_unit_number): New function. Fix whitespace and comments.
|
|
|
|
* io/transfer.c (data_transfer_init): Update error message to not be
|
|
|
|
specific to OPEN statements.
|
|
|
|
|
2009-06-07 19:40:24 +02:00
|
|
|
2009-06-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/40334
|
|
|
|
* io/list_read.c (list_formatted_read_scalar): Set the end file
|
|
|
|
conditions after a return from EOF error.
|
|
|
|
|
2009-06-03 23:07:19 +02:00
|
|
|
2009-06-04 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/40330
|
|
|
|
* io/format.c (free_format_hash_table): Also free and nullify hash key.
|
|
|
|
(save_parsed_format): Copy string rather than pointer copy.
|
|
|
|
|
2009-05-29 23:27:54 +02:00
|
|
|
2009-05-29 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/40019
|
|
|
|
* intrinsics/bit_intrinsics.c: New file.
|
|
|
|
* gfortran.map (GFORTRAN_1.2): New list.
|
|
|
|
* Makefile.am: Add intrinsics/bit_intrinsics.c.
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
2009-05-29 22:56:20 +02:00
|
|
|
2009-05-29 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/40190
|
|
|
|
* configure.ac: Check for localtime_r and gmtime_r.
|
|
|
|
* intrinsics/date_and_time.c: Add fallback implementations for
|
|
|
|
localtime_r and gmtime_r.
|
|
|
|
(date_and_time): Change to use localtime_r and gmtime_r instead of
|
|
|
|
localtime and gmtime, respectively.
|
|
|
|
(itime0): Use localtime_r instead of localtime.
|
|
|
|
(ltime_0): Likewise.
|
|
|
|
(gmtime_0): Use gmtime_r instead of gmtime.
|
|
|
|
* config.h.in: Regenerated
|
|
|
|
* configure: Regenerated.
|
|
|
|
|
2009-05-27 17:22:34 +02:00
|
|
|
2009-05-27 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/39178
|
|
|
|
* runtime/main.c (store_exe_path): Remove static attribute.
|
|
|
|
* libgfortran.h: Add back store_exe_path prototype.
|
|
|
|
|
2009-05-27 07:27:31 +02:00
|
|
|
2009-05-27 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/40187
|
|
|
|
* intrinsics/iso_c_binding.c (c_f_pointer_u0): Take care
|
|
|
|
of stride in "shape" argument.
|
|
|
|
|
2009-05-26 23:19:57 +02:00
|
|
|
2009-05-26 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
PR fortran/39178
|
|
|
|
* runtime/main.c (store_exe_path): Make static
|
|
|
|
and multiple-times callable.
|
|
|
|
(set_args): Call store_exe_path.
|
|
|
|
* libgfortran.h: Remove store_exe_path prototype.
|
|
|
|
* fmain.c (main): Remove store_exe_path call.
|
|
|
|
|
2009-05-20 02:16:38 +02:00
|
|
|
2009-05-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/37754
|
|
|
|
* io/write_float.def: Simplify format calculation.
|
|
|
|
|
2009-05-07 23:42:22 +02:00
|
|
|
2009-05-07 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/22423
|
|
|
|
* io/transfer.c (read_block_direct): Avoid warning.
|
|
|
|
* runtime/string.c (compare0): Avoid warning.
|
|
|
|
|
2009-04-30 17:12:37 +02:00
|
|
|
2009-04-30 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/39667
|
|
|
|
* io/file_pos.c (st_rewind): Don't truncate or flush.
|
|
|
|
* io/intrinsics.c (fgetc): Flush if switching mode.
|
|
|
|
(fputc): Likewise.
|
|
|
|
|
2009-04-18 12:05:34 +02:00
|
|
|
2009-04-18 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/39782
|
|
|
|
* io/transfer.c (data_transfer_init): Don't flush before seek.
|
|
|
|
(finalize_transfer): Remove extra flush.
|
|
|
|
|
2009-04-17 21:52:02 +02:00
|
|
|
2009-04-17 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
* io/io.h (is_preconnected): Remove prototype.
|
|
|
|
* io/unix.c (is_preconnected): Remove function.
|
|
|
|
|
2009-04-17 12:36:21 +02:00
|
|
|
2009-04-17 Ulrich Weigand <Ulrich.Weigand@de.ibm.com>
|
|
|
|
|
|
|
|
* configure.ac: Test for -ffunction-sections -fdata-sections and
|
|
|
|
set SECTION_FLAGS accordingly.
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
|
|
* Makefile.am: Add SECTION_FLAGS to AM_CFLAGS.
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
2009-04-15 21:38:32 +02:00
|
|
|
2009-04-15 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
2009-04-15 21:41:42 +02:00
|
|
|
PR libfortran/38668
|
2009-04-15 21:38:32 +02:00
|
|
|
* io/transfer.c (finalize_transfer): Don't flush for advance='no'.
|
|
|
|
|
2009-04-15 06:05:02 +02:00
|
|
|
2009-04-15 Danny Smith <dannysmith@clear.net.nz>
|
|
|
|
|
2009-05-07 23:42:22 +02:00
|
|
|
* io/write.c (itoa) : Rename back to gfc_itoa.
|
|
|
|
(write_i): Adjust call to write_decimal.
|
|
|
|
(write_integer): Use gfc_itoa.
|
2009-04-15 06:05:02 +02:00
|
|
|
|
2009-04-10 10:26:56 +02:00
|
|
|
2009-04-10 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
2009-05-07 23:42:22 +02:00
|
|
|
* io/io.h (move_pos_offset): Remove prototype.
|
|
|
|
* io/transfer.c (formatted_transfer_scalar_read): Use sseek
|
|
|
|
instead of move_pos_offset.
|
|
|
|
* io/unix.c (move_pos_offset): Remove.
|
2009-04-10 10:26:56 +02:00
|
|
|
|
2009-04-10 09:23:25 +02:00
|
|
|
2009-04-10 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/39665 libfortran/39702 libfortran/39709
|
|
|
|
* io/io.h (st_parameter_dt): Revert aligned attribute from u.p.value.
|
2009-05-07 23:42:22 +02:00
|
|
|
* io/list_read.c (read_complex): Read directly into user pointer.
|
|
|
|
(read_real): Likewise.
|
|
|
|
(list_formatted_read_scalar): Update read_complex and read_real calls.
|
|
|
|
(nml_read_obj): Read directly into user pointer.
|
2009-04-10 09:23:25 +02:00
|
|
|
|
2009-04-09 19:44:23 +02:00
|
|
|
2009-04-09 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/39665
|
|
|
|
* io/io.h (st_parameter_dt): Add aligned attribute to u.p.value.
|
|
|
|
* io/read.c (convert_real): Add note about alignment requirements.
|
|
|
|
|
2009-04-09 17:00:19 +02:00
|
|
|
2009-04-09 Nick Clifton <nickc@redhat.com>
|
|
|
|
|
|
|
|
* m4/cshift0.m4: Change copyright header to refer to version 3
|
|
|
|
of the GNU General Public License with version 3.1 of the GCC
|
|
|
|
Runtime Library Exception and to point readers at the COPYING3
|
|
|
|
and COPYING3.RUNTIME files and the FSF's license web page.
|
|
|
|
* c99_protos.h: Likewise.
|
|
|
|
* config/fpu-387.h: Likewise.
|
|
|
|
* config/fpu-aix.h: Likewise.
|
|
|
|
* config/fpu-generic.h: Likewise.
|
|
|
|
* config/fpu-glibc.h: Likewise.
|
|
|
|
* config/fpu-sysv.h: Likewise.
|
|
|
|
* intrinsics/abort.c: Likewise.
|
|
|
|
* intrinsics/access.c: Likewise.
|
|
|
|
* intrinsics/args.c: Likewise.
|
|
|
|
* intrinsics/associated.c: Likewise.
|
|
|
|
* intrinsics/c99_functions.c: Likewise.
|
|
|
|
* intrinsics/chdir.c: Likewise.
|
|
|
|
* intrinsics/chmod.c: Likewise.
|
|
|
|
* intrinsics/clock.c: Likewise.
|
|
|
|
* intrinsics/cpu_time.c: Likewise.
|
|
|
|
* intrinsics/cshift0.c: Likewise.
|
|
|
|
* intrinsics/ctime.c: Likewise.
|
|
|
|
* intrinsics/date_and_time.c: Likewise.
|
|
|
|
* intrinsics/dprod_r8.f90: Likewise.
|
|
|
|
* intrinsics/dtime.c: Likewise.
|
|
|
|
* intrinsics/env.c: Likewise.
|
|
|
|
* intrinsics/eoshift0.c: Likewise.
|
|
|
|
* intrinsics/eoshift2.c: Likewise.
|
|
|
|
* intrinsics/erfc_scaled.c: Likewise.
|
|
|
|
* intrinsics/erfc_scaled_inc.c: Likewise.
|
|
|
|
* intrinsics/etime.c: Likewise.
|
|
|
|
* intrinsics/exit.c: Likewise.
|
|
|
|
* intrinsics/f2c_specifics.F90: Likewise.
|
|
|
|
* intrinsics/fnum.c: Likewise.
|
|
|
|
* intrinsics/gerror.c: Likewise.
|
|
|
|
* intrinsics/getXid.c: Likewise.
|
|
|
|
* intrinsics/getcwd.c: Likewise.
|
|
|
|
* intrinsics/getlog.c: Likewise.
|
|
|
|
* intrinsics/hostnm.c: Likewise.
|
|
|
|
* intrinsics/ierrno.c: Likewise.
|
|
|
|
* intrinsics/ishftc.c: Likewise.
|
|
|
|
* intrinsics/iso_c_binding.c: Likewise.
|
|
|
|
* intrinsics/iso_c_binding.h: Likewise.
|
|
|
|
* intrinsics/iso_c_generated_procs.c: Likewise.
|
|
|
|
* intrinsics/kill.c: Likewise.
|
|
|
|
* intrinsics/link.c: Likewise.
|
|
|
|
* intrinsics/malloc.c: Likewise.
|
|
|
|
* intrinsics/move_alloc.c: Likewise.
|
|
|
|
* intrinsics/mvbits.c: Likewise.
|
|
|
|
* intrinsics/pack_generic.c: Likewise.
|
|
|
|
* intrinsics/perror.c: Likewise.
|
|
|
|
* intrinsics/rand.c: Likewise.
|
|
|
|
* intrinsics/random.c: Likewise.
|
|
|
|
* intrinsics/rename.c: Likewise.
|
|
|
|
* intrinsics/reshape_generic.c: Likewise.
|
|
|
|
* intrinsics/reshape_packed.c: Likewise.
|
|
|
|
* intrinsics/selected_char_kind.c: Likewise.
|
|
|
|
* intrinsics/selected_int_kind.f90: Likewise.
|
|
|
|
* intrinsics/selected_real_kind.f90: Likewise.
|
|
|
|
* intrinsics/signal.c: Likewise.
|
|
|
|
* intrinsics/size.c: Likewise.
|
|
|
|
* intrinsics/sleep.c: Likewise.
|
|
|
|
* intrinsics/spread_generic.c: Likewise.
|
|
|
|
* intrinsics/stat.c: Likewise.
|
|
|
|
* intrinsics/string_intrinsics.c: Likewise.
|
|
|
|
* intrinsics/string_intrinsics_inc.c: Likewise.
|
|
|
|
* intrinsics/symlnk.c: Likewise.
|
|
|
|
* intrinsics/system.c: Likewise.
|
|
|
|
* intrinsics/system_clock.c: Likewise.
|
|
|
|
* intrinsics/time.c: Likewise.
|
|
|
|
* intrinsics/time_1.h: Likewise.
|
|
|
|
* intrinsics/transpose_generic.c: Likewise.
|
|
|
|
* intrinsics/umask.c: Likewise.
|
|
|
|
* intrinsics/unlink.c: Likewise.
|
|
|
|
* intrinsics/unpack_generic.c: Likewise.
|
|
|
|
* io/close.c: Likewise.
|
|
|
|
* io/fbuf.c: Likewise.
|
|
|
|
* io/file_pos.c: Likewise.
|
|
|
|
* io/format.c: Likewise.
|
|
|
|
* io/inquire.c: Likewise.
|
|
|
|
* io/intrinsics.c: Likewise.
|
|
|
|
* io/io.h: Likewise.
|
|
|
|
* io/list_read.c: Likewise.
|
|
|
|
* io/lock.c: Likewise.
|
|
|
|
* io/open.c: Likewise.
|
|
|
|
* io/read.c: Likewise.
|
|
|
|
* io/size_from_kind.c: Likewise.
|
|
|
|
* io/transfer.c: Likewise.
|
|
|
|
* io/unit.c: Likewise.
|
|
|
|
* io/unix.c: Likewise.
|
|
|
|
* io/write.c: Likewise.
|
|
|
|
* io/write_float.def: Likewise.
|
|
|
|
* libgfortran.h: Likewise.
|
|
|
|
* m4/all.m4: Likewise.
|
|
|
|
* m4/any.m4: Likewise.
|
|
|
|
* m4/count.m4: Likewise.
|
|
|
|
* m4/cshift1.m4: Likewise.
|
|
|
|
* m4/eoshift1.m4: Likewise.
|
|
|
|
* m4/eoshift3.m4: Likewise.
|
|
|
|
* m4/exponent.m4: Likewise.
|
|
|
|
* m4/fraction.m4: Likewise.
|
|
|
|
* m4/head.m4: Likewise.
|
|
|
|
* m4/in_pack.m4: Likewise.
|
|
|
|
* m4/in_unpack.m4: Likewise.
|
|
|
|
* m4/matmul.m4: Likewise.
|
|
|
|
* m4/matmull.m4: Likewise.
|
|
|
|
* m4/maxloc0.m4: Likewise.
|
|
|
|
* m4/maxloc1.m4: Likewise.
|
|
|
|
* m4/maxval.m4: Likewise.
|
|
|
|
* m4/minloc0.m4: Likewise.
|
|
|
|
* m4/minloc1.m4: Likewise.
|
|
|
|
* m4/minval.m4: Likewise.
|
|
|
|
* m4/nearest.m4: Likewise.
|
|
|
|
* m4/pack.m4: Likewise.
|
|
|
|
* m4/pow.m4: Likewise.
|
|
|
|
* m4/product.m4: Likewise.
|
|
|
|
* m4/reshape.m4: Likewise.
|
|
|
|
* m4/rrspacing.m4: Likewise.
|
|
|
|
* m4/set_exponent.m4: Likewise.
|
|
|
|
* m4/shape.m4: Likewise.
|
|
|
|
* m4/spacing.m4: Likewise.
|
|
|
|
* m4/spread.m4: Likewise.
|
|
|
|
* m4/sum.m4: Likewise.
|
|
|
|
* m4/transpose.m4: Likewise.
|
|
|
|
* m4/unpack.m4: Likewise.
|
|
|
|
* runtime/backtrace.c: Likewise.
|
|
|
|
* runtime/compile_options.c: Likewise.
|
|
|
|
* runtime/convert_char.c: Likewise.
|
|
|
|
* runtime/environ.c: Likewise.
|
|
|
|
* runtime/error.c: Likewise.
|
|
|
|
* runtime/in_pack_generic.c: Likewise.
|
|
|
|
* runtime/in_unpack_generic.c: Likewise.
|
|
|
|
* runtime/main.c: Likewise.
|
|
|
|
* runtime/memory.c: Likewise.
|
|
|
|
* runtime/pause.c: Likewise.
|
|
|
|
* runtime/select.c: Likewise.
|
|
|
|
* runtime/select_inc.c: Likewise.
|
|
|
|
* runtime/stop.c: Likewise.
|
|
|
|
* runtime/string.c: Likewise.
|
|
|
|
* generated/_abs_c10.F90: Regenerate.
|
|
|
|
* generated/_abs_c16.F90: Regenerate.
|
|
|
|
* generated/_abs_c4.F90: Regenerate.
|
|
|
|
* generated/_abs_c8.F90: Regenerate.
|
|
|
|
* generated/_abs_i16.F90: Regenerate.
|
|
|
|
* generated/_abs_i4.F90: Regenerate.
|
|
|
|
* generated/_abs_i8.F90: Regenerate.
|
|
|
|
* generated/_abs_r10.F90: Regenerate.
|
|
|
|
* generated/_abs_r16.F90: Regenerate.
|
|
|
|
* generated/_abs_r4.F90: Regenerate.
|
|
|
|
* generated/_abs_r8.F90: Regenerate.
|
|
|
|
* generated/_acos_r10.F90: Regenerate.
|
|
|
|
* generated/_acos_r16.F90: Regenerate.
|
|
|
|
* generated/_acos_r4.F90: Regenerate.
|
|
|
|
* generated/_acos_r8.F90: Regenerate.
|
|
|
|
* generated/_acosh_r10.F90: Regenerate.
|
|
|
|
* generated/_acosh_r16.F90: Regenerate.
|
|
|
|
* generated/_acosh_r4.F90: Regenerate.
|
|
|
|
* generated/_acosh_r8.F90: Regenerate.
|
|
|
|
* generated/_aimag_c10.F90: Regenerate.
|
|
|
|
* generated/_aimag_c16.F90: Regenerate.
|
|
|
|
* generated/_aimag_c4.F90: Regenerate.
|
|
|
|
* generated/_aimag_c8.F90: Regenerate.
|
|
|
|
* generated/_aint_r10.F90: Regenerate.
|
|
|
|
* generated/_aint_r16.F90: Regenerate.
|
|
|
|
* generated/_aint_r4.F90: Regenerate.
|
|
|
|
* generated/_aint_r8.F90: Regenerate.
|
|
|
|
* generated/_anint_r10.F90: Regenerate.
|
|
|
|
* generated/_anint_r16.F90: Regenerate.
|
|
|
|
* generated/_anint_r4.F90: Regenerate.
|
|
|
|
* generated/_anint_r8.F90: Regenerate.
|
|
|
|
* generated/_asin_r10.F90: Regenerate.
|
|
|
|
* generated/_asin_r16.F90: Regenerate.
|
|
|
|
* generated/_asin_r4.F90: Regenerate.
|
|
|
|
* generated/_asin_r8.F90: Regenerate.
|
|
|
|
* generated/_asinh_r10.F90: Regenerate.
|
|
|
|
* generated/_asinh_r16.F90: Regenerate.
|
|
|
|
* generated/_asinh_r4.F90: Regenerate.
|
|
|
|
* generated/_asinh_r8.F90: Regenerate.
|
|
|
|
* generated/_atan2_r10.F90: Regenerate.
|
|
|
|
* generated/_atan2_r16.F90: Regenerate.
|
|
|
|
* generated/_atan2_r4.F90: Regenerate.
|
|
|
|
* generated/_atan2_r8.F90: Regenerate.
|
|
|
|
* generated/_atan_r10.F90: Regenerate.
|
|
|
|
* generated/_atan_r16.F90: Regenerate.
|
|
|
|
* generated/_atan_r4.F90: Regenerate.
|
|
|
|
* generated/_atan_r8.F90: Regenerate.
|
|
|
|
* generated/_atanh_r10.F90: Regenerate.
|
|
|
|
* generated/_atanh_r16.F90: Regenerate.
|
|
|
|
* generated/_atanh_r4.F90: Regenerate.
|
|
|
|
* generated/_atanh_r8.F90: Regenerate.
|
|
|
|
* generated/_conjg_c10.F90: Regenerate.
|
|
|
|
* generated/_conjg_c16.F90: Regenerate.
|
|
|
|
* generated/_conjg_c4.F90: Regenerate.
|
|
|
|
* generated/_conjg_c8.F90: Regenerate.
|
|
|
|
* generated/_cos_c10.F90: Regenerate.
|
|
|
|
* generated/_cos_c16.F90: Regenerate.
|
|
|
|
* generated/_cos_c4.F90: Regenerate.
|
|
|
|
* generated/_cos_c8.F90: Regenerate.
|
|
|
|
* generated/_cos_r10.F90: Regenerate.
|
|
|
|
* generated/_cos_r16.F90: Regenerate.
|
|
|
|
* generated/_cos_r4.F90: Regenerate.
|
|
|
|
* generated/_cos_r8.F90: Regenerate.
|
|
|
|
* generated/_cosh_r10.F90: Regenerate.
|
|
|
|
* generated/_cosh_r16.F90: Regenerate.
|
|
|
|
* generated/_cosh_r4.F90: Regenerate.
|
|
|
|
* generated/_cosh_r8.F90: Regenerate.
|
|
|
|
* generated/_dim_i16.F90: Regenerate.
|
|
|
|
* generated/_dim_i4.F90: Regenerate.
|
|
|
|
* generated/_dim_i8.F90: Regenerate.
|
|
|
|
* generated/_dim_r10.F90: Regenerate.
|
|
|
|
* generated/_dim_r16.F90: Regenerate.
|
|
|
|
* generated/_dim_r4.F90: Regenerate.
|
|
|
|
* generated/_dim_r8.F90: Regenerate.
|
|
|
|
* generated/_exp_c10.F90: Regenerate.
|
|
|
|
* generated/_exp_c16.F90: Regenerate.
|
|
|
|
* generated/_exp_c4.F90: Regenerate.
|
|
|
|
* generated/_exp_c8.F90: Regenerate.
|
|
|
|
* generated/_exp_r10.F90: Regenerate.
|
|
|
|
* generated/_exp_r16.F90: Regenerate.
|
|
|
|
* generated/_exp_r4.F90: Regenerate.
|
|
|
|
* generated/_exp_r8.F90: Regenerate.
|
|
|
|
* generated/_log10_r10.F90: Regenerate.
|
|
|
|
* generated/_log10_r16.F90: Regenerate.
|
|
|
|
* generated/_log10_r4.F90: Regenerate.
|
|
|
|
* generated/_log10_r8.F90: Regenerate.
|
|
|
|
* generated/_log_c10.F90: Regenerate.
|
|
|
|
* generated/_log_c16.F90: Regenerate.
|
|
|
|
* generated/_log_c4.F90: Regenerate.
|
|
|
|
* generated/_log_c8.F90: Regenerate.
|
|
|
|
* generated/_log_r10.F90: Regenerate.
|
|
|
|
* generated/_log_r16.F90: Regenerate.
|
|
|
|
* generated/_log_r4.F90: Regenerate.
|
|
|
|
* generated/_log_r8.F90: Regenerate.
|
|
|
|
* generated/_mod_i16.F90: Regenerate.
|
|
|
|
* generated/_mod_i4.F90: Regenerate.
|
|
|
|
* generated/_mod_i8.F90: Regenerate.
|
|
|
|
* generated/_mod_r10.F90: Regenerate.
|
|
|
|
* generated/_mod_r16.F90: Regenerate.
|
|
|
|
* generated/_mod_r4.F90: Regenerate.
|
|
|
|
* generated/_mod_r8.F90: Regenerate.
|
|
|
|
* generated/_sign_i16.F90: Regenerate.
|
|
|
|
* generated/_sign_i4.F90: Regenerate.
|
|
|
|
* generated/_sign_i8.F90: Regenerate.
|
|
|
|
* generated/_sign_r10.F90: Regenerate.
|
|
|
|
* generated/_sign_r16.F90: Regenerate.
|
|
|
|
* generated/_sign_r4.F90: Regenerate.
|
|
|
|
* generated/_sign_r8.F90: Regenerate.
|
|
|
|
* generated/_sin_c10.F90: Regenerate.
|
|
|
|
* generated/_sin_c16.F90: Regenerate.
|
|
|
|
* generated/_sin_c4.F90: Regenerate.
|
|
|
|
* generated/_sin_c8.F90: Regenerate.
|
|
|
|
* generated/_sin_r10.F90: Regenerate.
|
|
|
|
* generated/_sin_r16.F90: Regenerate.
|
|
|
|
* generated/_sin_r4.F90: Regenerate.
|
|
|
|
* generated/_sin_r8.F90: Regenerate.
|
|
|
|
* generated/_sinh_r10.F90: Regenerate.
|
|
|
|
* generated/_sinh_r16.F90: Regenerate.
|
|
|
|
* generated/_sinh_r4.F90: Regenerate.
|
|
|
|
* generated/_sinh_r8.F90: Regenerate.
|
|
|
|
* generated/_sqrt_c10.F90: Regenerate.
|
|
|
|
* generated/_sqrt_c16.F90: Regenerate.
|
|
|
|
* generated/_sqrt_c4.F90: Regenerate.
|
|
|
|
* generated/_sqrt_c8.F90: Regenerate.
|
|
|
|
* generated/_sqrt_r10.F90: Regenerate.
|
|
|
|
* generated/_sqrt_r16.F90: Regenerate.
|
|
|
|
* generated/_sqrt_r4.F90: Regenerate.
|
|
|
|
* generated/_sqrt_r8.F90: Regenerate.
|
|
|
|
* generated/_tan_r10.F90: Regenerate.
|
|
|
|
* generated/_tan_r16.F90: Regenerate.
|
|
|
|
* generated/_tan_r4.F90: Regenerate.
|
|
|
|
* generated/_tan_r8.F90: Regenerate.
|
|
|
|
* generated/_tanh_r10.F90: Regenerate.
|
|
|
|
* generated/_tanh_r16.F90: Regenerate.
|
|
|
|
* generated/_tanh_r4.F90: Regenerate.
|
|
|
|
* generated/_tanh_r8.F90: Regenerate.
|
|
|
|
* generated/all_l1.c: Regenerate.
|
|
|
|
* generated/all_l16.c: Regenerate.
|
|
|
|
* generated/all_l2.c: Regenerate.
|
|
|
|
* generated/all_l4.c: Regenerate.
|
|
|
|
* generated/all_l8.c: Regenerate.
|
|
|
|
* generated/any_l1.c: Regenerate.
|
|
|
|
* generated/any_l16.c: Regenerate.
|
|
|
|
* generated/any_l2.c: Regenerate.
|
|
|
|
* generated/any_l4.c: Regenerate.
|
|
|
|
* generated/any_l8.c: Regenerate.
|
|
|
|
* generated/count_16_l.c: Regenerate.
|
|
|
|
* generated/count_1_l.c: Regenerate.
|
|
|
|
* generated/count_2_l.c: Regenerate.
|
|
|
|
* generated/count_4_l.c: Regenerate.
|
|
|
|
* generated/count_8_l.c: Regenerate.
|
|
|
|
* generated/cshift0_c10.c: Regenerate.
|
|
|
|
* generated/cshift0_c16.c: Regenerate.
|
|
|
|
* generated/cshift0_c4.c: Regenerate.
|
|
|
|
* generated/cshift0_c8.c: Regenerate.
|
|
|
|
* generated/cshift0_i1.c: Regenerate.
|
|
|
|
* generated/cshift0_i16.c: Regenerate.
|
|
|
|
* generated/cshift0_i2.c: Regenerate.
|
|
|
|
* generated/cshift0_i4.c: Regenerate.
|
|
|
|
* generated/cshift0_i8.c: Regenerate.
|
|
|
|
* generated/cshift0_r10.c: Regenerate.
|
|
|
|
* generated/cshift0_r16.c: Regenerate.
|
|
|
|
* generated/cshift0_r4.c: Regenerate.
|
|
|
|
* generated/cshift0_r8.c: Regenerate.
|
|
|
|
* generated/cshift1_16.c: Regenerate.
|
|
|
|
* generated/cshift1_4.c: Regenerate.
|
|
|
|
* generated/cshift1_8.c: Regenerate.
|
|
|
|
* generated/eoshift1_16.c: Regenerate.
|
|
|
|
* generated/eoshift1_4.c: Regenerate.
|
|
|
|
* generated/eoshift1_8.c: Regenerate.
|
|
|
|
* generated/eoshift3_16.c: Regenerate.
|
|
|
|
* generated/eoshift3_4.c: Regenerate.
|
|
|
|
* generated/eoshift3_8.c: Regenerate.
|
|
|
|
* generated/exponent_r10.c: Regenerate.
|
|
|
|
* generated/exponent_r16.c: Regenerate.
|
|
|
|
* generated/exponent_r4.c: Regenerate.
|
|
|
|
* generated/exponent_r8.c: Regenerate.
|
|
|
|
* generated/fraction_r10.c: Regenerate.
|
|
|
|
* generated/fraction_r16.c: Regenerate.
|
|
|
|
* generated/fraction_r4.c: Regenerate.
|
|
|
|
* generated/fraction_r8.c: Regenerate.
|
|
|
|
* generated/in_pack_c10.c: Regenerate.
|
|
|
|
* generated/in_pack_c16.c: Regenerate.
|
|
|
|
* generated/in_pack_c4.c: Regenerate.
|
|
|
|
* generated/in_pack_c8.c: Regenerate.
|
|
|
|
* generated/in_pack_i1.c: Regenerate.
|
|
|
|
* generated/in_pack_i16.c: Regenerate.
|
|
|
|
* generated/in_pack_i2.c: Regenerate.
|
|
|
|
* generated/in_pack_i4.c: Regenerate.
|
|
|
|
* generated/in_pack_i8.c: Regenerate.
|
|
|
|
* generated/in_pack_r10.c: Regenerate.
|
|
|
|
* generated/in_pack_r16.c: Regenerate.
|
|
|
|
* generated/in_pack_r4.c: Regenerate.
|
|
|
|
* generated/in_pack_r8.c: Regenerate.
|
|
|
|
* generated/in_unpack_c10.c: Regenerate.
|
|
|
|
* generated/in_unpack_c16.c: Regenerate.
|
|
|
|
* generated/in_unpack_c4.c: Regenerate.
|
|
|
|
* generated/in_unpack_c8.c: Regenerate.
|
|
|
|
* generated/in_unpack_i1.c: Regenerate.
|
|
|
|
* generated/in_unpack_i16.c: Regenerate.
|
|
|
|
* generated/in_unpack_i2.c: Regenerate.
|
|
|
|
* generated/in_unpack_i4.c: Regenerate.
|
|
|
|
* generated/in_unpack_i8.c: Regenerate.
|
|
|
|
* generated/in_unpack_r10.c: Regenerate.
|
|
|
|
* generated/in_unpack_r16.c: Regenerate.
|
|
|
|
* generated/in_unpack_r4.c: Regenerate.
|
|
|
|
* generated/in_unpack_r8.c: Regenerate.
|
|
|
|
* generated/matmul_c10.c: Regenerate.
|
|
|
|
* generated/matmul_c16.c: Regenerate.
|
|
|
|
* generated/matmul_c4.c: Regenerate.
|
|
|
|
* generated/matmul_c8.c: Regenerate.
|
|
|
|
* generated/matmul_i1.c: Regenerate.
|
|
|
|
* generated/matmul_i16.c: Regenerate.
|
|
|
|
* generated/matmul_i2.c: Regenerate.
|
|
|
|
* generated/matmul_i4.c: Regenerate.
|
|
|
|
* generated/matmul_i8.c: Regenerate.
|
|
|
|
* generated/matmul_l16.c: Regenerate.
|
|
|
|
* generated/matmul_l4.c: Regenerate.
|
|
|
|
* generated/matmul_l8.c: Regenerate.
|
|
|
|
* generated/matmul_r10.c: Regenerate.
|
|
|
|
* generated/matmul_r16.c: Regenerate.
|
|
|
|
* generated/matmul_r4.c: Regenerate.
|
|
|
|
* generated/matmul_r8.c: Regenerate.
|
|
|
|
* generated/maxloc0_16_i1.c: Regenerate.
|
|
|
|
* generated/maxloc0_16_i16.c: Regenerate.
|
|
|
|
* generated/maxloc0_16_i2.c: Regenerate.
|
|
|
|
* generated/maxloc0_16_i4.c: Regenerate.
|
|
|
|
* generated/maxloc0_16_i8.c: Regenerate.
|
|
|
|
* generated/maxloc0_16_r10.c: Regenerate.
|
|
|
|
* generated/maxloc0_16_r16.c: Regenerate.
|
|
|
|
* generated/maxloc0_16_r4.c: Regenerate.
|
|
|
|
* generated/maxloc0_16_r8.c: Regenerate.
|
|
|
|
* generated/maxloc0_4_i1.c: Regenerate.
|
|
|
|
* generated/maxloc0_4_i16.c: Regenerate.
|
|
|
|
* generated/maxloc0_4_i2.c: Regenerate.
|
|
|
|
* generated/maxloc0_4_i4.c: Regenerate.
|
|
|
|
* generated/maxloc0_4_i8.c: Regenerate.
|
|
|
|
* generated/maxloc0_4_r10.c: Regenerate.
|
|
|
|
* generated/maxloc0_4_r16.c: Regenerate.
|
|
|
|
* generated/maxloc0_4_r4.c: Regenerate.
|
|
|
|
* generated/maxloc0_4_r8.c: Regenerate.
|
|
|
|
* generated/maxloc0_8_i1.c: Regenerate.
|
|
|
|
* generated/maxloc0_8_i16.c: Regenerate.
|
|
|
|
* generated/maxloc0_8_i2.c: Regenerate.
|
|
|
|
* generated/maxloc0_8_i4.c: Regenerate.
|
|
|
|
* generated/maxloc0_8_i8.c: Regenerate.
|
|
|
|
* generated/maxloc0_8_r10.c: Regenerate.
|
|
|
|
* generated/maxloc0_8_r16.c: Regenerate.
|
|
|
|
* generated/maxloc0_8_r4.c: Regenerate.
|
|
|
|
* generated/maxloc0_8_r8.c: Regenerate.
|
|
|
|
* generated/maxloc1_16_i1.c: Regenerate.
|
|
|
|
* generated/maxloc1_16_i16.c: Regenerate.
|
|
|
|
* generated/maxloc1_16_i2.c: Regenerate.
|
|
|
|
* generated/maxloc1_16_i4.c: Regenerate.
|
|
|
|
* generated/maxloc1_16_i8.c: Regenerate.
|
|
|
|
* generated/maxloc1_16_r10.c: Regenerate.
|
|
|
|
* generated/maxloc1_16_r16.c: Regenerate.
|
|
|
|
* generated/maxloc1_16_r4.c: Regenerate.
|
|
|
|
* generated/maxloc1_16_r8.c: Regenerate.
|
|
|
|
* generated/maxloc1_4_i1.c: Regenerate.
|
|
|
|
* generated/maxloc1_4_i16.c: Regenerate.
|
|
|
|
* generated/maxloc1_4_i2.c: Regenerate.
|
|
|
|
* generated/maxloc1_4_i4.c: Regenerate.
|
|
|
|
* generated/maxloc1_4_i8.c: Regenerate.
|
|
|
|
* generated/maxloc1_4_r10.c: Regenerate.
|
|
|
|
* generated/maxloc1_4_r16.c: Regenerate.
|
|
|
|
* generated/maxloc1_4_r4.c: Regenerate.
|
|
|
|
* generated/maxloc1_4_r8.c: Regenerate.
|
|
|
|
* generated/maxloc1_8_i1.c: Regenerate.
|
|
|
|
* generated/maxloc1_8_i16.c: Regenerate.
|
|
|
|
* generated/maxloc1_8_i2.c: Regenerate.
|
|
|
|
* generated/maxloc1_8_i4.c: Regenerate.
|
|
|
|
* generated/maxloc1_8_i8.c: Regenerate.
|
|
|
|
* generated/maxloc1_8_r10.c: Regenerate.
|
|
|
|
* generated/maxloc1_8_r16.c: Regenerate.
|
|
|
|
* generated/maxloc1_8_r4.c: Regenerate.
|
|
|
|
* generated/maxloc1_8_r8.c: Regenerate.
|
|
|
|
* generated/maxval_i1.c: Regenerate.
|
|
|
|
* generated/maxval_i16.c: Regenerate.
|
|
|
|
* generated/maxval_i2.c: Regenerate.
|
|
|
|
* generated/maxval_i4.c: Regenerate.
|
|
|
|
* generated/maxval_i8.c: Regenerate.
|
|
|
|
* generated/maxval_r10.c: Regenerate.
|
|
|
|
* generated/maxval_r16.c: Regenerate.
|
|
|
|
* generated/maxval_r4.c: Regenerate.
|
|
|
|
* generated/maxval_r8.c: Regenerate.
|
|
|
|
* generated/minloc0_16_i1.c: Regenerate.
|
|
|
|
* generated/minloc0_16_i16.c: Regenerate.
|
|
|
|
* generated/minloc0_16_i2.c: Regenerate.
|
|
|
|
* generated/minloc0_16_i4.c: Regenerate.
|
|
|
|
* generated/minloc0_16_i8.c: Regenerate.
|
|
|
|
* generated/minloc0_16_r10.c: Regenerate.
|
|
|
|
* generated/minloc0_16_r16.c: Regenerate.
|
|
|
|
* generated/minloc0_16_r4.c: Regenerate.
|
|
|
|
* generated/minloc0_16_r8.c: Regenerate.
|
|
|
|
* generated/minloc0_4_i1.c: Regenerate.
|
|
|
|
* generated/minloc0_4_i16.c: Regenerate.
|
|
|
|
* generated/minloc0_4_i2.c: Regenerate.
|
|
|
|
* generated/minloc0_4_i4.c: Regenerate.
|
|
|
|
* generated/minloc0_4_i8.c: Regenerate.
|
|
|
|
* generated/minloc0_4_r10.c: Regenerate.
|
|
|
|
* generated/minloc0_4_r16.c: Regenerate.
|
|
|
|
* generated/minloc0_4_r4.c: Regenerate.
|
|
|
|
* generated/minloc0_4_r8.c: Regenerate.
|
|
|
|
* generated/minloc0_8_i1.c: Regenerate.
|
|
|
|
* generated/minloc0_8_i16.c: Regenerate.
|
|
|
|
* generated/minloc0_8_i2.c: Regenerate.
|
|
|
|
* generated/minloc0_8_i4.c: Regenerate.
|
|
|
|
* generated/minloc0_8_i8.c: Regenerate.
|
|
|
|
* generated/minloc0_8_r10.c: Regenerate.
|
|
|
|
* generated/minloc0_8_r16.c: Regenerate.
|
|
|
|
* generated/minloc0_8_r4.c: Regenerate.
|
|
|
|
* generated/minloc0_8_r8.c: Regenerate.
|
|
|
|
* generated/minloc1_16_i1.c: Regenerate.
|
|
|
|
* generated/minloc1_16_i16.c: Regenerate.
|
|
|
|
* generated/minloc1_16_i2.c: Regenerate.
|
|
|
|
* generated/minloc1_16_i4.c: Regenerate.
|
|
|
|
* generated/minloc1_16_i8.c: Regenerate.
|
|
|
|
* generated/minloc1_16_r10.c: Regenerate.
|
|
|
|
* generated/minloc1_16_r16.c: Regenerate.
|
|
|
|
* generated/minloc1_16_r4.c: Regenerate.
|
|
|
|
* generated/minloc1_16_r8.c: Regenerate.
|
|
|
|
* generated/minloc1_4_i1.c: Regenerate.
|
|
|
|
* generated/minloc1_4_i16.c: Regenerate.
|
|
|
|
* generated/minloc1_4_i2.c: Regenerate.
|
|
|
|
* generated/minloc1_4_i4.c: Regenerate.
|
|
|
|
* generated/minloc1_4_i8.c: Regenerate.
|
|
|
|
* generated/minloc1_4_r10.c: Regenerate.
|
|
|
|
* generated/minloc1_4_r16.c: Regenerate.
|
|
|
|
* generated/minloc1_4_r4.c: Regenerate.
|
|
|
|
* generated/minloc1_4_r8.c: Regenerate.
|
|
|
|
* generated/minloc1_8_i1.c: Regenerate.
|
|
|
|
* generated/minloc1_8_i16.c: Regenerate.
|
|
|
|
* generated/minloc1_8_i2.c: Regenerate.
|
|
|
|
* generated/minloc1_8_i4.c: Regenerate.
|
|
|
|
* generated/minloc1_8_i8.c: Regenerate.
|
|
|
|
* generated/minloc1_8_r10.c: Regenerate.
|
|
|
|
* generated/minloc1_8_r16.c: Regenerate.
|
|
|
|
* generated/minloc1_8_r4.c: Regenerate.
|
|
|
|
* generated/minloc1_8_r8.c: Regenerate.
|
|
|
|
* generated/minval_i1.c: Regenerate.
|
|
|
|
* generated/minval_i16.c: Regenerate.
|
|
|
|
* generated/minval_i2.c: Regenerate.
|
|
|
|
* generated/minval_i4.c: Regenerate.
|
|
|
|
* generated/minval_i8.c: Regenerate.
|
|
|
|
* generated/minval_r10.c: Regenerate.
|
|
|
|
* generated/minval_r16.c: Regenerate.
|
|
|
|
* generated/minval_r4.c: Regenerate.
|
|
|
|
* generated/minval_r8.c: Regenerate.
|
|
|
|
* generated/misc_specifics.F90: Regenerate.
|
|
|
|
* generated/nearest_r10.c: Regenerate.
|
|
|
|
* generated/nearest_r16.c: Regenerate.
|
|
|
|
* generated/nearest_r4.c: Regenerate.
|
|
|
|
* generated/nearest_r8.c: Regenerate.
|
|
|
|
* generated/pack_c10.c: Regenerate.
|
|
|
|
* generated/pack_c16.c: Regenerate.
|
|
|
|
* generated/pack_c4.c: Regenerate.
|
|
|
|
* generated/pack_c8.c: Regenerate.
|
|
|
|
* generated/pack_i1.c: Regenerate.
|
|
|
|
* generated/pack_i16.c: Regenerate.
|
|
|
|
* generated/pack_i2.c: Regenerate.
|
|
|
|
* generated/pack_i4.c: Regenerate.
|
|
|
|
* generated/pack_i8.c: Regenerate.
|
|
|
|
* generated/pack_r10.c: Regenerate.
|
|
|
|
* generated/pack_r16.c: Regenerate.
|
|
|
|
* generated/pack_r4.c: Regenerate.
|
|
|
|
* generated/pack_r8.c: Regenerate.
|
|
|
|
* generated/pow_c10_i16.c: Regenerate.
|
|
|
|
* generated/pow_c10_i4.c: Regenerate.
|
|
|
|
* generated/pow_c10_i8.c: Regenerate.
|
|
|
|
* generated/pow_c16_i16.c: Regenerate.
|
|
|
|
* generated/pow_c16_i4.c: Regenerate.
|
|
|
|
* generated/pow_c16_i8.c: Regenerate.
|
|
|
|
* generated/pow_c4_i16.c: Regenerate.
|
|
|
|
* generated/pow_c4_i4.c: Regenerate.
|
|
|
|
* generated/pow_c4_i8.c: Regenerate.
|
|
|
|
* generated/pow_c8_i16.c: Regenerate.
|
|
|
|
* generated/pow_c8_i4.c: Regenerate.
|
|
|
|
* generated/pow_c8_i8.c: Regenerate.
|
|
|
|
* generated/pow_i16_i16.c: Regenerate.
|
|
|
|
* generated/pow_i16_i4.c: Regenerate.
|
|
|
|
* generated/pow_i16_i8.c: Regenerate.
|
|
|
|
* generated/pow_i4_i16.c: Regenerate.
|
|
|
|
* generated/pow_i4_i4.c: Regenerate.
|
|
|
|
* generated/pow_i4_i8.c: Regenerate.
|
|
|
|
* generated/pow_i8_i16.c: Regenerate.
|
|
|
|
* generated/pow_i8_i4.c: Regenerate.
|
|
|
|
* generated/pow_i8_i8.c: Regenerate.
|
|
|
|
* generated/pow_r10_i16.c: Regenerate.
|
|
|
|
* generated/pow_r10_i8.c: Regenerate.
|
|
|
|
* generated/pow_r16_i16.c: Regenerate.
|
|
|
|
* generated/pow_r16_i8.c: Regenerate.
|
|
|
|
* generated/pow_r4_i16.c: Regenerate.
|
|
|
|
* generated/pow_r4_i8.c: Regenerate.
|
|
|
|
* generated/pow_r8_i16.c: Regenerate.
|
|
|
|
* generated/pow_r8_i8.c: Regenerate.
|
|
|
|
* generated/product_c10.c: Regenerate.
|
|
|
|
* generated/product_c16.c: Regenerate.
|
|
|
|
* generated/product_c4.c: Regenerate.
|
|
|
|
* generated/product_c8.c: Regenerate.
|
|
|
|
* generated/product_i1.c: Regenerate.
|
|
|
|
* generated/product_i16.c: Regenerate.
|
|
|
|
* generated/product_i2.c: Regenerate.
|
|
|
|
* generated/product_i4.c: Regenerate.
|
|
|
|
* generated/product_i8.c: Regenerate.
|
|
|
|
* generated/product_r10.c: Regenerate.
|
|
|
|
* generated/product_r16.c: Regenerate.
|
|
|
|
* generated/product_r4.c: Regenerate.
|
|
|
|
* generated/product_r8.c: Regenerate.
|
|
|
|
* generated/reshape_c10.c: Regenerate.
|
|
|
|
* generated/reshape_c16.c: Regenerate.
|
|
|
|
* generated/reshape_c4.c: Regenerate.
|
|
|
|
* generated/reshape_c8.c: Regenerate.
|
|
|
|
* generated/reshape_i16.c: Regenerate.
|
|
|
|
* generated/reshape_i4.c: Regenerate.
|
|
|
|
* generated/reshape_i8.c: Regenerate.
|
|
|
|
* generated/reshape_r10.c: Regenerate.
|
|
|
|
* generated/reshape_r16.c: Regenerate.
|
|
|
|
* generated/reshape_r4.c: Regenerate.
|
|
|
|
* generated/reshape_r8.c: Regenerate.
|
|
|
|
* generated/rrspacing_r10.c: Regenerate.
|
|
|
|
* generated/rrspacing_r16.c: Regenerate.
|
|
|
|
* generated/rrspacing_r4.c: Regenerate.
|
|
|
|
* generated/rrspacing_r8.c: Regenerate.
|
|
|
|
* generated/set_exponent_r10.c: Regenerate.
|
|
|
|
* generated/set_exponent_r16.c: Regenerate.
|
|
|
|
* generated/set_exponent_r4.c: Regenerate.
|
|
|
|
* generated/set_exponent_r8.c: Regenerate.
|
|
|
|
* generated/shape_i16.c: Regenerate.
|
|
|
|
* generated/shape_i4.c: Regenerate.
|
|
|
|
* generated/shape_i8.c: Regenerate.
|
|
|
|
* generated/spacing_r10.c: Regenerate.
|
|
|
|
* generated/spacing_r16.c: Regenerate.
|
|
|
|
* generated/spacing_r4.c: Regenerate.
|
|
|
|
* generated/spacing_r8.c: Regenerate.
|
|
|
|
* generated/spread_c10.c: Regenerate.
|
|
|
|
* generated/spread_c16.c: Regenerate.
|
|
|
|
* generated/spread_c4.c: Regenerate.
|
|
|
|
* generated/spread_c8.c: Regenerate.
|
|
|
|
* generated/spread_i1.c: Regenerate.
|
|
|
|
* generated/spread_i16.c: Regenerate.
|
|
|
|
* generated/spread_i2.c: Regenerate.
|
|
|
|
* generated/spread_i4.c: Regenerate.
|
|
|
|
* generated/spread_i8.c: Regenerate.
|
|
|
|
* generated/spread_r10.c: Regenerate.
|
|
|
|
* generated/spread_r16.c: Regenerate.
|
|
|
|
* generated/spread_r4.c: Regenerate.
|
|
|
|
* generated/spread_r8.c: Regenerate.
|
|
|
|
* generated/sum_c10.c: Regenerate.
|
|
|
|
* generated/sum_c16.c: Regenerate.
|
|
|
|
* generated/sum_c4.c: Regenerate.
|
|
|
|
* generated/sum_c8.c: Regenerate.
|
|
|
|
* generated/sum_i1.c: Regenerate.
|
|
|
|
* generated/sum_i16.c: Regenerate.
|
|
|
|
* generated/sum_i2.c: Regenerate.
|
|
|
|
* generated/sum_i4.c: Regenerate.
|
|
|
|
* generated/sum_i8.c: Regenerate.
|
|
|
|
* generated/sum_r10.c: Regenerate.
|
|
|
|
* generated/sum_r16.c: Regenerate.
|
|
|
|
* generated/sum_r4.c: Regenerate.
|
|
|
|
* generated/sum_r8.c: Regenerate.
|
|
|
|
* generated/transpose_c10.c: Regenerate.
|
|
|
|
* generated/transpose_c16.c: Regenerate.
|
|
|
|
* generated/transpose_c4.c: Regenerate.
|
|
|
|
* generated/transpose_c8.c: Regenerate.
|
|
|
|
* generated/transpose_i16.c: Regenerate.
|
|
|
|
* generated/transpose_i4.c: Regenerate.
|
|
|
|
* generated/transpose_i8.c: Regenerate.
|
|
|
|
* generated/transpose_r10.c: Regenerate.
|
|
|
|
* generated/transpose_r16.c: Regenerate.
|
|
|
|
* generated/transpose_r4.c: Regenerate.
|
|
|
|
* generated/transpose_r8.c: Regenerate.
|
|
|
|
* generated/unpack_c10.c: Regenerate.
|
|
|
|
* generated/unpack_c16.c: Regenerate.
|
|
|
|
* generated/unpack_c4.c: Regenerate.
|
|
|
|
* generated/unpack_c8.c: Regenerate.
|
|
|
|
* generated/unpack_i1.c: Regenerate.
|
|
|
|
* generated/unpack_i16.c: Regenerate.
|
|
|
|
* generated/unpack_i2.c: Regenerate.
|
|
|
|
* generated/unpack_i4.c: Regenerate.
|
|
|
|
* generated/unpack_i8.c: Regenerate.
|
|
|
|
* generated/unpack_r10.c: Regenerate.
|
|
|
|
* generated/unpack_r16.c: Regenerate.
|
|
|
|
* generated/unpack_r4.c: Regenerate.
|
|
|
|
* generated/unpack_r8.c: Regenerate.
|
|
|
|
|
2009-04-08 19:06:34 +02:00
|
|
|
2009-04-08 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
2009-05-07 23:42:22 +02:00
|
|
|
* io/open.c (already_open): Test for POSIX close return value.
|
|
|
|
* io/unit.c (close_unit_1): Likewise.
|
|
|
|
* io/unix.c (raw_close): Return 0 for success for preconnected units.
|
2009-04-08 19:06:34 +02:00
|
|
|
|
2009-04-08 18:48:07 +02:00
|
|
|
2009-04-08 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
2009-05-07 23:42:22 +02:00
|
|
|
* runtime/string.c (compare0): Use gfc_charlen_type.
|
|
|
|
* runtime/error.c (gfc_itoa): Move to io/write.c
|
|
|
|
(xtoa): Rename to gfc_xtoa.
|
|
|
|
* runtime/backtrace.c (show_backtrace): Call gfc_xtoa.
|
|
|
|
* intrinsics/cshift0.c (cshift0): Use index_type for shift arg.
|
|
|
|
* intrinsics/date_and_time.c (date_and_time): Use index_type.
|
|
|
|
(itime_i4): Likewise.
|
|
|
|
(itime_i8): Likewise.
|
|
|
|
(idate_i4): Likewise.
|
|
|
|
(idate_i8): Likewise.
|
|
|
|
(gmtime_i4): Likewise.
|
|
|
|
(gmtime_i8): Likewise.
|
|
|
|
(ltime_i4): Likewise.
|
|
|
|
(ltime_i8): Likewise.
|
|
|
|
* libgfortran.h (gfc_itoa): Remove prototype.
|
|
|
|
(xtoa): Rename prototype to gfc_xtoa.
|
|
|
|
* io/list_read.c (nml_read_obj): Use size_t for string length.
|
|
|
|
* io/transfer.c (read_block_direct): Change nbytes arg from
|
|
|
|
pointer to value.
|
|
|
|
(unformatted_read): Minor cleanup, call read_block_directly properly.
|
|
|
|
(skip_record): Use ssize_t.
|
|
|
|
(next_record_w_unf): Avoid stell() call by calling sseek with SEEK_CUR.
|
|
|
|
(iolength_transfer): Make sure to multiply before cast.
|
|
|
|
* io/intrinsics.c (fgetc): Remove unnecessary variable.
|
|
|
|
* io/format.c (format_hash): Use gfc_charlen_type.
|
|
|
|
* io/write.c (itoa): Move from runtime/error.c:gfc_itoa, rename,
|
|
|
|
make static.
|
|
|
|
(write_i): Call with pointer to itoa.
|
|
|
|
(write_z): Call with pointer to gfc_xtoa.
|
|
|
|
(write_integer): Pointer to itoa.
|
|
|
|
(nml_write_obj): Type cleanup, don't call strlen in loop.
|
2009-04-08 18:48:07 +02:00
|
|
|
|
2009-04-07 01:07:51 +02:00
|
|
|
2009-04-06 H.J. Lu <hongjiu.lu@intel.com>
|
|
|
|
|
|
|
|
PR libgfortran/39664
|
|
|
|
* io/unix.c (raw_close): Don't close STDOUT_FILENO,
|
|
|
|
STDERR_FILENO nor STDIN_FILENO.
|
|
|
|
|
2009-04-06 17:32:03 +02:00
|
|
|
2009-04-06 David Edelsohn <edelsohn@gnu.org>
|
|
|
|
|
|
|
|
* io/io.h (struct stream): Rename truncate to trunc.
|
|
|
|
(struncate): Same.
|
|
|
|
* io/unix.c (raw_init): Rename truncate to trunc.
|
|
|
|
(buf_init): Same.
|
|
|
|
(open_internal): Same.
|
|
|
|
|
[multiple changes]
2009-04-05 Daniel Kraft <d@domob.eu>
PR fortran/38654
* io/read.c (read_f): Reworked to speed up floating point parsing.
(convert_real): Use pointer-casting instead of memcpy and temporaries.
2009-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/37754
* io/io.h (format_hash_entry): New structure for hash table.
(format_hash_table): The hash table itself.
(free_format_data): Revise function prototype.
(free_format_hash_table, init_format_hash,
free_format_hash): New function prototypes.
* io/unit.c (close_unit_1): Use free_format_hash_table.
* io/transfer.c (st_read_done, st_write_done): Free format data if
internal unit.
* io/format.c (free_format_hash_table): New function that frees any
memory allocated previously for cached format data.
(reset_node): New static helper function to reset the format counters
for a format node.
(reset_fnode_counters): New static function recursively calls reset_node
to traverse the fnode tree.
(format_hash): New simple hash function based on XOR, probabalistic,
tosses collisions.
(save_parsed_format): New static function to save the parsed format
data to use again.
(find_parsed_format): New static function searches the hash table
looking for a match.
(free_format_data): Revised to accept pointer to format data rather than
the dtp pointer so that the function can be used in more places.
(format_lex): Editorial.
(parse_format_list): Set flag used to determine of format data hashing
is to be used. Internal units are not persistent enough for this.
(revert): Move to ne location in file.
(parse_format): Use new functions to look for previously parsed
format strings and use them rather than re-parse. If not found, saves
the parsed format data for later use.
2009-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/37754
* io/transfer.c (formatted_transfer_scalar): Remove this function by
factoring it into two new functions, one for read and one for write,
eliminating all the conditionals for read or write mode.
(formatted transfer_scalar_read): New function.
(formatted transfer_scalar_write): New function.
(formatted_transfer): Use new functions.
2009-04-05 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/25561 libfortran/37754
* io/io.h (struct stream): Define new stream interface function
pointers, and inline functions for accessing it.
(struct fbuf): Use int instead of size_t, remove flushed element.
(mem_alloc_w): New prototype.
(mem_alloc_r): New prototype.
(stream_at_bof): Remove prototype.
(stream_at_eof): Remove prototype.
(file_position): Remove prototype.
(flush): Remove prototype.
(stream_offset): Remove prototype.
(unit_truncate): New prototype.
(read_block_form): Change to return pointer, int* argument.
(hit_eof): New prototype.
(fbuf_init): Change prototype.
(fbuf_reset): Change prototype.
(fbuf_alloc): Change prototype.
(fbuf_flush): Change prototype.
(fbuf_seek): Change prototype.
(fbuf_read): New prototype.
(fbuf_getc_refill): New prototype.
(fbuf_getc): New inline function.
* io/fbuf.c (fbuf_init): Use int, get rid of flushed.
(fbuf_debug): New function.
(fbuf_reset): Flush, and return position offset.
(fbuf_alloc): Simplify, don't flush, just realloc.
(fbuf_flush): Make usable for read mode, salvage remaining bytes.
(fbuf_seek): New whence argument.
(fbuf_read): New function.
(fbuf_getc_refill): New function.
* io/file_pos.c (formatted_backspace): Use new stream interface.
(unformatted_backspace): Likewise.
(st_backspace): Make sure format buffer is reset, use new stream
interface, use unit_truncate.
(st_endfile): Likewise.
(st_rewind): Likewise.
* io/intrinsics.c: Use new stream interface.
* io/list_read.c (push_char): Don't use u.p.scratch, use realloc
to resize.
(free_saved): Don't check u.p.scratch.
(next_char): Use new stream interface, use fbuf_getc() for external files.
(finish_list_read): flush format buffer.
(nml_query): Update to use modified interface:s
* io/open.c (test_endfile): Use new stream interface.
(edit_modes): Likewise.
(new_unit): Likewise, set bytes_left to 1 for stream files.
* io/read.c (read_l): Use new read_block_form interface.
(read_utf8): Likewise.
(read_utf8_char1): Likewise.
(read_default_char1): Likewise.
(read_utf8_char4): Likewise.
(read_default_char4): Likewise.
(read_a): Likewise.
(read_a_char4): Likewise.
(read_decimal): Likewise.
(read_radix): Likewise.
(read_f): Likewise.
* io/transfer.c (read_sf): Use fbuf_read and mem_alloc_r, remove
usage of u.p.line_buffer.
(read_block_form): Update interface to return pointer, use
fbuf_read for direct access.
(read_block_direct): Update to new stream interface.
(write_block): Use mem_alloc_w for internal I/O.
(write_buf): Update to new stream interface.
(formatted_transfer_scalar): Don't use u.p.line_buffer, use
fbuf_seek for external files.
(us_read): Update to new stream interface.
(us_write): Likewise.
(data_transfer_init): Always check if we switch modes and flush.
(skip_record): Use new stream interface, fix comparison.
(next_record_r): Check for and reset u.p.at_eof, use new stream
interface, use fbuf_getc for spacing.
(write_us_marker): Update to new stream interface, don't inline.
(next_record_w_unf): Likewise.
(sset): New function.
(next_record_w): Use new stream interface, use fbuf for printing
newline.
(next_record): Use new stream interface.
(finalize_transfer): Remove sfree call, use new stream interface.
(st_iolength_done): Don't use u.p.scratch.
(st_read): Don't check for end of file.
(st_read_done): Don't use u.p.scratch, use unit_truncate.
(hit_eof): New function.
* io/unit.c (init_units): Always init fbuf for formatted units.
(update_position): Use new stream interface.
(unit_truncate): New function.
(finish_last_advance_record): Use fbuf to print newline.
* io/unix.c: Remove unused SSIZE_MAX macro.
(BUFFER_SIZE): Make static const variable rather than macro.
(struct unix_stream): Remove dirty_offset, len, method,
small_buffer. Order elements by decreasing size.
(struct int_stream): Remove.
(move_pos_offset): Remove usage of dirty_offset.
(reset_stream): Remove.
(do_read): Rename to raw_read, update to match new stream
interface.
(do_write): Rename to raw_write, update to new stream interface.
(raw_seek): New function.
(raw_tell): New function.
(raw_truncate): New function.
(raw_close): New function.
(raw_flush): New function.
(raw_init): New function.
(fd_alloc): Remove.
(fd_alloc_r_at): Remove.
(fd_alloc_w_at): Remove.
(fd_sfree): Remove.
(fd_seek): Remove.
(fd_truncate): Remove.
(fd_sset): Remove.
(fd_read): Remove.
(fd_write): Remove.
(fd_close): Remove.
(fd_open): Remove.
(fd_flush): Rename to buf_flush, update to new stream interface
and unix_stream.
(buf_read): New function.
(buf_write): New function.
(buf_seek): New function.
(buf_tell): New function.
(buf_truncate): New function.
(buf_close): New function.
(buf_init): New function.
(mem_alloc_r_at): Rename to mem_alloc_r, change prototype.
(mem_alloc_w_at): Rename to mem_alloc_w, change prototype.
(mem_read): Change to match new stream interface.
(mem_write): Likewise.
(mem_seek): Likewise.
(mem_tell): Likewise.
(mem_truncate): Likewise.
(mem_close): Likewise.
(mem_flush): New function.
(mem_sfree): Remove.
(empty_internal_buffer): Cast to correct type.
(open_internal): Use correct type, init function pointers.
(fd_to_stream): Test whether to open file as buffered or raw.
(output_stream): Remove mode set.
(error_stream): Likewise.
(flush_all_units_1): Use new stream interface.
(flush_all_units): Likewise.
(stream_at_bof): Remove.
(stream_at_eof): Remove.
(file_position): Remove.
(file_length): Update logic to use stream interface.
(flush): Remove.
(stream_offset): Remove.
* io/write.c (write_utf8_char4): Use int instead of size_t.
(write_x): Extra safety check.
(namelist_write_newline): Use new stream interface.
From-SVN: r145571
2009-04-05 22:13:56 +02:00
|
|
|
2009-04-05 Daniel Kraft <d@domob.eu>
|
|
|
|
|
|
|
|
PR fortran/38654
|
|
|
|
* io/read.c (read_f): Reworked to speed up floating point parsing.
|
|
|
|
(convert_real): Use pointer-casting instead of memcpy and temporaries.
|
|
|
|
|
|
|
|
2009-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
2009-04-07 01:07:51 +02:00
|
|
|
PR libfortran/37754
|
[multiple changes]
2009-04-05 Daniel Kraft <d@domob.eu>
PR fortran/38654
* io/read.c (read_f): Reworked to speed up floating point parsing.
(convert_real): Use pointer-casting instead of memcpy and temporaries.
2009-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/37754
* io/io.h (format_hash_entry): New structure for hash table.
(format_hash_table): The hash table itself.
(free_format_data): Revise function prototype.
(free_format_hash_table, init_format_hash,
free_format_hash): New function prototypes.
* io/unit.c (close_unit_1): Use free_format_hash_table.
* io/transfer.c (st_read_done, st_write_done): Free format data if
internal unit.
* io/format.c (free_format_hash_table): New function that frees any
memory allocated previously for cached format data.
(reset_node): New static helper function to reset the format counters
for a format node.
(reset_fnode_counters): New static function recursively calls reset_node
to traverse the fnode tree.
(format_hash): New simple hash function based on XOR, probabalistic,
tosses collisions.
(save_parsed_format): New static function to save the parsed format
data to use again.
(find_parsed_format): New static function searches the hash table
looking for a match.
(free_format_data): Revised to accept pointer to format data rather than
the dtp pointer so that the function can be used in more places.
(format_lex): Editorial.
(parse_format_list): Set flag used to determine of format data hashing
is to be used. Internal units are not persistent enough for this.
(revert): Move to ne location in file.
(parse_format): Use new functions to look for previously parsed
format strings and use them rather than re-parse. If not found, saves
the parsed format data for later use.
2009-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/37754
* io/transfer.c (formatted_transfer_scalar): Remove this function by
factoring it into two new functions, one for read and one for write,
eliminating all the conditionals for read or write mode.
(formatted transfer_scalar_read): New function.
(formatted transfer_scalar_write): New function.
(formatted_transfer): Use new functions.
2009-04-05 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/25561 libfortran/37754
* io/io.h (struct stream): Define new stream interface function
pointers, and inline functions for accessing it.
(struct fbuf): Use int instead of size_t, remove flushed element.
(mem_alloc_w): New prototype.
(mem_alloc_r): New prototype.
(stream_at_bof): Remove prototype.
(stream_at_eof): Remove prototype.
(file_position): Remove prototype.
(flush): Remove prototype.
(stream_offset): Remove prototype.
(unit_truncate): New prototype.
(read_block_form): Change to return pointer, int* argument.
(hit_eof): New prototype.
(fbuf_init): Change prototype.
(fbuf_reset): Change prototype.
(fbuf_alloc): Change prototype.
(fbuf_flush): Change prototype.
(fbuf_seek): Change prototype.
(fbuf_read): New prototype.
(fbuf_getc_refill): New prototype.
(fbuf_getc): New inline function.
* io/fbuf.c (fbuf_init): Use int, get rid of flushed.
(fbuf_debug): New function.
(fbuf_reset): Flush, and return position offset.
(fbuf_alloc): Simplify, don't flush, just realloc.
(fbuf_flush): Make usable for read mode, salvage remaining bytes.
(fbuf_seek): New whence argument.
(fbuf_read): New function.
(fbuf_getc_refill): New function.
* io/file_pos.c (formatted_backspace): Use new stream interface.
(unformatted_backspace): Likewise.
(st_backspace): Make sure format buffer is reset, use new stream
interface, use unit_truncate.
(st_endfile): Likewise.
(st_rewind): Likewise.
* io/intrinsics.c: Use new stream interface.
* io/list_read.c (push_char): Don't use u.p.scratch, use realloc
to resize.
(free_saved): Don't check u.p.scratch.
(next_char): Use new stream interface, use fbuf_getc() for external files.
(finish_list_read): flush format buffer.
(nml_query): Update to use modified interface:s
* io/open.c (test_endfile): Use new stream interface.
(edit_modes): Likewise.
(new_unit): Likewise, set bytes_left to 1 for stream files.
* io/read.c (read_l): Use new read_block_form interface.
(read_utf8): Likewise.
(read_utf8_char1): Likewise.
(read_default_char1): Likewise.
(read_utf8_char4): Likewise.
(read_default_char4): Likewise.
(read_a): Likewise.
(read_a_char4): Likewise.
(read_decimal): Likewise.
(read_radix): Likewise.
(read_f): Likewise.
* io/transfer.c (read_sf): Use fbuf_read and mem_alloc_r, remove
usage of u.p.line_buffer.
(read_block_form): Update interface to return pointer, use
fbuf_read for direct access.
(read_block_direct): Update to new stream interface.
(write_block): Use mem_alloc_w for internal I/O.
(write_buf): Update to new stream interface.
(formatted_transfer_scalar): Don't use u.p.line_buffer, use
fbuf_seek for external files.
(us_read): Update to new stream interface.
(us_write): Likewise.
(data_transfer_init): Always check if we switch modes and flush.
(skip_record): Use new stream interface, fix comparison.
(next_record_r): Check for and reset u.p.at_eof, use new stream
interface, use fbuf_getc for spacing.
(write_us_marker): Update to new stream interface, don't inline.
(next_record_w_unf): Likewise.
(sset): New function.
(next_record_w): Use new stream interface, use fbuf for printing
newline.
(next_record): Use new stream interface.
(finalize_transfer): Remove sfree call, use new stream interface.
(st_iolength_done): Don't use u.p.scratch.
(st_read): Don't check for end of file.
(st_read_done): Don't use u.p.scratch, use unit_truncate.
(hit_eof): New function.
* io/unit.c (init_units): Always init fbuf for formatted units.
(update_position): Use new stream interface.
(unit_truncate): New function.
(finish_last_advance_record): Use fbuf to print newline.
* io/unix.c: Remove unused SSIZE_MAX macro.
(BUFFER_SIZE): Make static const variable rather than macro.
(struct unix_stream): Remove dirty_offset, len, method,
small_buffer. Order elements by decreasing size.
(struct int_stream): Remove.
(move_pos_offset): Remove usage of dirty_offset.
(reset_stream): Remove.
(do_read): Rename to raw_read, update to match new stream
interface.
(do_write): Rename to raw_write, update to new stream interface.
(raw_seek): New function.
(raw_tell): New function.
(raw_truncate): New function.
(raw_close): New function.
(raw_flush): New function.
(raw_init): New function.
(fd_alloc): Remove.
(fd_alloc_r_at): Remove.
(fd_alloc_w_at): Remove.
(fd_sfree): Remove.
(fd_seek): Remove.
(fd_truncate): Remove.
(fd_sset): Remove.
(fd_read): Remove.
(fd_write): Remove.
(fd_close): Remove.
(fd_open): Remove.
(fd_flush): Rename to buf_flush, update to new stream interface
and unix_stream.
(buf_read): New function.
(buf_write): New function.
(buf_seek): New function.
(buf_tell): New function.
(buf_truncate): New function.
(buf_close): New function.
(buf_init): New function.
(mem_alloc_r_at): Rename to mem_alloc_r, change prototype.
(mem_alloc_w_at): Rename to mem_alloc_w, change prototype.
(mem_read): Change to match new stream interface.
(mem_write): Likewise.
(mem_seek): Likewise.
(mem_tell): Likewise.
(mem_truncate): Likewise.
(mem_close): Likewise.
(mem_flush): New function.
(mem_sfree): Remove.
(empty_internal_buffer): Cast to correct type.
(open_internal): Use correct type, init function pointers.
(fd_to_stream): Test whether to open file as buffered or raw.
(output_stream): Remove mode set.
(error_stream): Likewise.
(flush_all_units_1): Use new stream interface.
(flush_all_units): Likewise.
(stream_at_bof): Remove.
(stream_at_eof): Remove.
(file_position): Remove.
(file_length): Update logic to use stream interface.
(flush): Remove.
(stream_offset): Remove.
* io/write.c (write_utf8_char4): Use int instead of size_t.
(write_x): Extra safety check.
(namelist_write_newline): Use new stream interface.
From-SVN: r145571
2009-04-05 22:13:56 +02:00
|
|
|
* io/io.h (format_hash_entry): New structure for hash table.
|
|
|
|
(format_hash_table): The hash table itself.
|
|
|
|
(free_format_data): Revise function prototype.
|
|
|
|
(free_format_hash_table, init_format_hash,
|
|
|
|
free_format_hash): New function prototypes.
|
|
|
|
* io/unit.c (close_unit_1): Use free_format_hash_table.
|
|
|
|
* io/transfer.c (st_read_done, st_write_done): Free format data if
|
|
|
|
internal unit.
|
|
|
|
* io/format.c (free_format_hash_table): New function that frees any
|
|
|
|
memory allocated previously for cached format data.
|
|
|
|
(reset_node): New static helper function to reset the format counters
|
|
|
|
for a format node.
|
|
|
|
(reset_fnode_counters): New static function recursively calls reset_node
|
|
|
|
to traverse the fnode tree.
|
|
|
|
(format_hash): New simple hash function based on XOR, probabalistic,
|
|
|
|
tosses collisions.
|
|
|
|
(save_parsed_format): New static function to save the parsed format
|
|
|
|
data to use again.
|
|
|
|
(find_parsed_format): New static function searches the hash table
|
|
|
|
looking for a match.
|
|
|
|
(free_format_data): Revised to accept pointer to format data rather than
|
|
|
|
the dtp pointer so that the function can be used in more places.
|
|
|
|
(format_lex): Editorial.
|
|
|
|
(parse_format_list): Set flag used to determine of format data hashing
|
|
|
|
is to be used. Internal units are not persistent enough for this.
|
|
|
|
(revert): Move to ne location in file.
|
|
|
|
(parse_format): Use new functions to look for previously parsed
|
|
|
|
format strings and use them rather than re-parse. If not found, saves
|
|
|
|
the parsed format data for later use.
|
|
|
|
|
|
|
|
2009-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
2009-04-07 01:07:51 +02:00
|
|
|
PR libfortran/37754
|
[multiple changes]
2009-04-05 Daniel Kraft <d@domob.eu>
PR fortran/38654
* io/read.c (read_f): Reworked to speed up floating point parsing.
(convert_real): Use pointer-casting instead of memcpy and temporaries.
2009-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/37754
* io/io.h (format_hash_entry): New structure for hash table.
(format_hash_table): The hash table itself.
(free_format_data): Revise function prototype.
(free_format_hash_table, init_format_hash,
free_format_hash): New function prototypes.
* io/unit.c (close_unit_1): Use free_format_hash_table.
* io/transfer.c (st_read_done, st_write_done): Free format data if
internal unit.
* io/format.c (free_format_hash_table): New function that frees any
memory allocated previously for cached format data.
(reset_node): New static helper function to reset the format counters
for a format node.
(reset_fnode_counters): New static function recursively calls reset_node
to traverse the fnode tree.
(format_hash): New simple hash function based on XOR, probabalistic,
tosses collisions.
(save_parsed_format): New static function to save the parsed format
data to use again.
(find_parsed_format): New static function searches the hash table
looking for a match.
(free_format_data): Revised to accept pointer to format data rather than
the dtp pointer so that the function can be used in more places.
(format_lex): Editorial.
(parse_format_list): Set flag used to determine of format data hashing
is to be used. Internal units are not persistent enough for this.
(revert): Move to ne location in file.
(parse_format): Use new functions to look for previously parsed
format strings and use them rather than re-parse. If not found, saves
the parsed format data for later use.
2009-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/37754
* io/transfer.c (formatted_transfer_scalar): Remove this function by
factoring it into two new functions, one for read and one for write,
eliminating all the conditionals for read or write mode.
(formatted transfer_scalar_read): New function.
(formatted transfer_scalar_write): New function.
(formatted_transfer): Use new functions.
2009-04-05 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/25561 libfortran/37754
* io/io.h (struct stream): Define new stream interface function
pointers, and inline functions for accessing it.
(struct fbuf): Use int instead of size_t, remove flushed element.
(mem_alloc_w): New prototype.
(mem_alloc_r): New prototype.
(stream_at_bof): Remove prototype.
(stream_at_eof): Remove prototype.
(file_position): Remove prototype.
(flush): Remove prototype.
(stream_offset): Remove prototype.
(unit_truncate): New prototype.
(read_block_form): Change to return pointer, int* argument.
(hit_eof): New prototype.
(fbuf_init): Change prototype.
(fbuf_reset): Change prototype.
(fbuf_alloc): Change prototype.
(fbuf_flush): Change prototype.
(fbuf_seek): Change prototype.
(fbuf_read): New prototype.
(fbuf_getc_refill): New prototype.
(fbuf_getc): New inline function.
* io/fbuf.c (fbuf_init): Use int, get rid of flushed.
(fbuf_debug): New function.
(fbuf_reset): Flush, and return position offset.
(fbuf_alloc): Simplify, don't flush, just realloc.
(fbuf_flush): Make usable for read mode, salvage remaining bytes.
(fbuf_seek): New whence argument.
(fbuf_read): New function.
(fbuf_getc_refill): New function.
* io/file_pos.c (formatted_backspace): Use new stream interface.
(unformatted_backspace): Likewise.
(st_backspace): Make sure format buffer is reset, use new stream
interface, use unit_truncate.
(st_endfile): Likewise.
(st_rewind): Likewise.
* io/intrinsics.c: Use new stream interface.
* io/list_read.c (push_char): Don't use u.p.scratch, use realloc
to resize.
(free_saved): Don't check u.p.scratch.
(next_char): Use new stream interface, use fbuf_getc() for external files.
(finish_list_read): flush format buffer.
(nml_query): Update to use modified interface:s
* io/open.c (test_endfile): Use new stream interface.
(edit_modes): Likewise.
(new_unit): Likewise, set bytes_left to 1 for stream files.
* io/read.c (read_l): Use new read_block_form interface.
(read_utf8): Likewise.
(read_utf8_char1): Likewise.
(read_default_char1): Likewise.
(read_utf8_char4): Likewise.
(read_default_char4): Likewise.
(read_a): Likewise.
(read_a_char4): Likewise.
(read_decimal): Likewise.
(read_radix): Likewise.
(read_f): Likewise.
* io/transfer.c (read_sf): Use fbuf_read and mem_alloc_r, remove
usage of u.p.line_buffer.
(read_block_form): Update interface to return pointer, use
fbuf_read for direct access.
(read_block_direct): Update to new stream interface.
(write_block): Use mem_alloc_w for internal I/O.
(write_buf): Update to new stream interface.
(formatted_transfer_scalar): Don't use u.p.line_buffer, use
fbuf_seek for external files.
(us_read): Update to new stream interface.
(us_write): Likewise.
(data_transfer_init): Always check if we switch modes and flush.
(skip_record): Use new stream interface, fix comparison.
(next_record_r): Check for and reset u.p.at_eof, use new stream
interface, use fbuf_getc for spacing.
(write_us_marker): Update to new stream interface, don't inline.
(next_record_w_unf): Likewise.
(sset): New function.
(next_record_w): Use new stream interface, use fbuf for printing
newline.
(next_record): Use new stream interface.
(finalize_transfer): Remove sfree call, use new stream interface.
(st_iolength_done): Don't use u.p.scratch.
(st_read): Don't check for end of file.
(st_read_done): Don't use u.p.scratch, use unit_truncate.
(hit_eof): New function.
* io/unit.c (init_units): Always init fbuf for formatted units.
(update_position): Use new stream interface.
(unit_truncate): New function.
(finish_last_advance_record): Use fbuf to print newline.
* io/unix.c: Remove unused SSIZE_MAX macro.
(BUFFER_SIZE): Make static const variable rather than macro.
(struct unix_stream): Remove dirty_offset, len, method,
small_buffer. Order elements by decreasing size.
(struct int_stream): Remove.
(move_pos_offset): Remove usage of dirty_offset.
(reset_stream): Remove.
(do_read): Rename to raw_read, update to match new stream
interface.
(do_write): Rename to raw_write, update to new stream interface.
(raw_seek): New function.
(raw_tell): New function.
(raw_truncate): New function.
(raw_close): New function.
(raw_flush): New function.
(raw_init): New function.
(fd_alloc): Remove.
(fd_alloc_r_at): Remove.
(fd_alloc_w_at): Remove.
(fd_sfree): Remove.
(fd_seek): Remove.
(fd_truncate): Remove.
(fd_sset): Remove.
(fd_read): Remove.
(fd_write): Remove.
(fd_close): Remove.
(fd_open): Remove.
(fd_flush): Rename to buf_flush, update to new stream interface
and unix_stream.
(buf_read): New function.
(buf_write): New function.
(buf_seek): New function.
(buf_tell): New function.
(buf_truncate): New function.
(buf_close): New function.
(buf_init): New function.
(mem_alloc_r_at): Rename to mem_alloc_r, change prototype.
(mem_alloc_w_at): Rename to mem_alloc_w, change prototype.
(mem_read): Change to match new stream interface.
(mem_write): Likewise.
(mem_seek): Likewise.
(mem_tell): Likewise.
(mem_truncate): Likewise.
(mem_close): Likewise.
(mem_flush): New function.
(mem_sfree): Remove.
(empty_internal_buffer): Cast to correct type.
(open_internal): Use correct type, init function pointers.
(fd_to_stream): Test whether to open file as buffered or raw.
(output_stream): Remove mode set.
(error_stream): Likewise.
(flush_all_units_1): Use new stream interface.
(flush_all_units): Likewise.
(stream_at_bof): Remove.
(stream_at_eof): Remove.
(file_position): Remove.
(file_length): Update logic to use stream interface.
(flush): Remove.
(stream_offset): Remove.
* io/write.c (write_utf8_char4): Use int instead of size_t.
(write_x): Extra safety check.
(namelist_write_newline): Use new stream interface.
From-SVN: r145571
2009-04-05 22:13:56 +02:00
|
|
|
* io/transfer.c (formatted_transfer_scalar): Remove this function by
|
|
|
|
factoring it into two new functions, one for read and one for write,
|
|
|
|
eliminating all the conditionals for read or write mode.
|
|
|
|
(formatted transfer_scalar_read): New function.
|
|
|
|
(formatted transfer_scalar_write): New function.
|
|
|
|
(formatted_transfer): Use new functions.
|
|
|
|
|
|
|
|
2009-04-05 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
2009-04-07 01:07:51 +02:00
|
|
|
PR libfortran/25561 libfortran/37754
|
[multiple changes]
2009-04-05 Daniel Kraft <d@domob.eu>
PR fortran/38654
* io/read.c (read_f): Reworked to speed up floating point parsing.
(convert_real): Use pointer-casting instead of memcpy and temporaries.
2009-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/37754
* io/io.h (format_hash_entry): New structure for hash table.
(format_hash_table): The hash table itself.
(free_format_data): Revise function prototype.
(free_format_hash_table, init_format_hash,
free_format_hash): New function prototypes.
* io/unit.c (close_unit_1): Use free_format_hash_table.
* io/transfer.c (st_read_done, st_write_done): Free format data if
internal unit.
* io/format.c (free_format_hash_table): New function that frees any
memory allocated previously for cached format data.
(reset_node): New static helper function to reset the format counters
for a format node.
(reset_fnode_counters): New static function recursively calls reset_node
to traverse the fnode tree.
(format_hash): New simple hash function based on XOR, probabalistic,
tosses collisions.
(save_parsed_format): New static function to save the parsed format
data to use again.
(find_parsed_format): New static function searches the hash table
looking for a match.
(free_format_data): Revised to accept pointer to format data rather than
the dtp pointer so that the function can be used in more places.
(format_lex): Editorial.
(parse_format_list): Set flag used to determine of format data hashing
is to be used. Internal units are not persistent enough for this.
(revert): Move to ne location in file.
(parse_format): Use new functions to look for previously parsed
format strings and use them rather than re-parse. If not found, saves
the parsed format data for later use.
2009-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/37754
* io/transfer.c (formatted_transfer_scalar): Remove this function by
factoring it into two new functions, one for read and one for write,
eliminating all the conditionals for read or write mode.
(formatted transfer_scalar_read): New function.
(formatted transfer_scalar_write): New function.
(formatted_transfer): Use new functions.
2009-04-05 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/25561 libfortran/37754
* io/io.h (struct stream): Define new stream interface function
pointers, and inline functions for accessing it.
(struct fbuf): Use int instead of size_t, remove flushed element.
(mem_alloc_w): New prototype.
(mem_alloc_r): New prototype.
(stream_at_bof): Remove prototype.
(stream_at_eof): Remove prototype.
(file_position): Remove prototype.
(flush): Remove prototype.
(stream_offset): Remove prototype.
(unit_truncate): New prototype.
(read_block_form): Change to return pointer, int* argument.
(hit_eof): New prototype.
(fbuf_init): Change prototype.
(fbuf_reset): Change prototype.
(fbuf_alloc): Change prototype.
(fbuf_flush): Change prototype.
(fbuf_seek): Change prototype.
(fbuf_read): New prototype.
(fbuf_getc_refill): New prototype.
(fbuf_getc): New inline function.
* io/fbuf.c (fbuf_init): Use int, get rid of flushed.
(fbuf_debug): New function.
(fbuf_reset): Flush, and return position offset.
(fbuf_alloc): Simplify, don't flush, just realloc.
(fbuf_flush): Make usable for read mode, salvage remaining bytes.
(fbuf_seek): New whence argument.
(fbuf_read): New function.
(fbuf_getc_refill): New function.
* io/file_pos.c (formatted_backspace): Use new stream interface.
(unformatted_backspace): Likewise.
(st_backspace): Make sure format buffer is reset, use new stream
interface, use unit_truncate.
(st_endfile): Likewise.
(st_rewind): Likewise.
* io/intrinsics.c: Use new stream interface.
* io/list_read.c (push_char): Don't use u.p.scratch, use realloc
to resize.
(free_saved): Don't check u.p.scratch.
(next_char): Use new stream interface, use fbuf_getc() for external files.
(finish_list_read): flush format buffer.
(nml_query): Update to use modified interface:s
* io/open.c (test_endfile): Use new stream interface.
(edit_modes): Likewise.
(new_unit): Likewise, set bytes_left to 1 for stream files.
* io/read.c (read_l): Use new read_block_form interface.
(read_utf8): Likewise.
(read_utf8_char1): Likewise.
(read_default_char1): Likewise.
(read_utf8_char4): Likewise.
(read_default_char4): Likewise.
(read_a): Likewise.
(read_a_char4): Likewise.
(read_decimal): Likewise.
(read_radix): Likewise.
(read_f): Likewise.
* io/transfer.c (read_sf): Use fbuf_read and mem_alloc_r, remove
usage of u.p.line_buffer.
(read_block_form): Update interface to return pointer, use
fbuf_read for direct access.
(read_block_direct): Update to new stream interface.
(write_block): Use mem_alloc_w for internal I/O.
(write_buf): Update to new stream interface.
(formatted_transfer_scalar): Don't use u.p.line_buffer, use
fbuf_seek for external files.
(us_read): Update to new stream interface.
(us_write): Likewise.
(data_transfer_init): Always check if we switch modes and flush.
(skip_record): Use new stream interface, fix comparison.
(next_record_r): Check for and reset u.p.at_eof, use new stream
interface, use fbuf_getc for spacing.
(write_us_marker): Update to new stream interface, don't inline.
(next_record_w_unf): Likewise.
(sset): New function.
(next_record_w): Use new stream interface, use fbuf for printing
newline.
(next_record): Use new stream interface.
(finalize_transfer): Remove sfree call, use new stream interface.
(st_iolength_done): Don't use u.p.scratch.
(st_read): Don't check for end of file.
(st_read_done): Don't use u.p.scratch, use unit_truncate.
(hit_eof): New function.
* io/unit.c (init_units): Always init fbuf for formatted units.
(update_position): Use new stream interface.
(unit_truncate): New function.
(finish_last_advance_record): Use fbuf to print newline.
* io/unix.c: Remove unused SSIZE_MAX macro.
(BUFFER_SIZE): Make static const variable rather than macro.
(struct unix_stream): Remove dirty_offset, len, method,
small_buffer. Order elements by decreasing size.
(struct int_stream): Remove.
(move_pos_offset): Remove usage of dirty_offset.
(reset_stream): Remove.
(do_read): Rename to raw_read, update to match new stream
interface.
(do_write): Rename to raw_write, update to new stream interface.
(raw_seek): New function.
(raw_tell): New function.
(raw_truncate): New function.
(raw_close): New function.
(raw_flush): New function.
(raw_init): New function.
(fd_alloc): Remove.
(fd_alloc_r_at): Remove.
(fd_alloc_w_at): Remove.
(fd_sfree): Remove.
(fd_seek): Remove.
(fd_truncate): Remove.
(fd_sset): Remove.
(fd_read): Remove.
(fd_write): Remove.
(fd_close): Remove.
(fd_open): Remove.
(fd_flush): Rename to buf_flush, update to new stream interface
and unix_stream.
(buf_read): New function.
(buf_write): New function.
(buf_seek): New function.
(buf_tell): New function.
(buf_truncate): New function.
(buf_close): New function.
(buf_init): New function.
(mem_alloc_r_at): Rename to mem_alloc_r, change prototype.
(mem_alloc_w_at): Rename to mem_alloc_w, change prototype.
(mem_read): Change to match new stream interface.
(mem_write): Likewise.
(mem_seek): Likewise.
(mem_tell): Likewise.
(mem_truncate): Likewise.
(mem_close): Likewise.
(mem_flush): New function.
(mem_sfree): Remove.
(empty_internal_buffer): Cast to correct type.
(open_internal): Use correct type, init function pointers.
(fd_to_stream): Test whether to open file as buffered or raw.
(output_stream): Remove mode set.
(error_stream): Likewise.
(flush_all_units_1): Use new stream interface.
(flush_all_units): Likewise.
(stream_at_bof): Remove.
(stream_at_eof): Remove.
(file_position): Remove.
(file_length): Update logic to use stream interface.
(flush): Remove.
(stream_offset): Remove.
* io/write.c (write_utf8_char4): Use int instead of size_t.
(write_x): Extra safety check.
(namelist_write_newline): Use new stream interface.
From-SVN: r145571
2009-04-05 22:13:56 +02:00
|
|
|
* io/io.h (struct stream): Define new stream interface function
|
|
|
|
pointers, and inline functions for accessing it.
|
|
|
|
(struct fbuf): Use int instead of size_t, remove flushed element.
|
|
|
|
(mem_alloc_w): New prototype.
|
|
|
|
(mem_alloc_r): New prototype.
|
|
|
|
(stream_at_bof): Remove prototype.
|
|
|
|
(stream_at_eof): Remove prototype.
|
|
|
|
(file_position): Remove prototype.
|
|
|
|
(flush): Remove prototype.
|
|
|
|
(stream_offset): Remove prototype.
|
|
|
|
(unit_truncate): New prototype.
|
|
|
|
(read_block_form): Change to return pointer, int* argument.
|
|
|
|
(hit_eof): New prototype.
|
|
|
|
(fbuf_init): Change prototype.
|
|
|
|
(fbuf_reset): Change prototype.
|
|
|
|
(fbuf_alloc): Change prototype.
|
|
|
|
(fbuf_flush): Change prototype.
|
|
|
|
(fbuf_seek): Change prototype.
|
|
|
|
(fbuf_read): New prototype.
|
|
|
|
(fbuf_getc_refill): New prototype.
|
|
|
|
(fbuf_getc): New inline function.
|
2009-04-07 01:07:51 +02:00
|
|
|
* io/fbuf.c (fbuf_init): Use int, get rid of flushed.
|
[multiple changes]
2009-04-05 Daniel Kraft <d@domob.eu>
PR fortran/38654
* io/read.c (read_f): Reworked to speed up floating point parsing.
(convert_real): Use pointer-casting instead of memcpy and temporaries.
2009-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/37754
* io/io.h (format_hash_entry): New structure for hash table.
(format_hash_table): The hash table itself.
(free_format_data): Revise function prototype.
(free_format_hash_table, init_format_hash,
free_format_hash): New function prototypes.
* io/unit.c (close_unit_1): Use free_format_hash_table.
* io/transfer.c (st_read_done, st_write_done): Free format data if
internal unit.
* io/format.c (free_format_hash_table): New function that frees any
memory allocated previously for cached format data.
(reset_node): New static helper function to reset the format counters
for a format node.
(reset_fnode_counters): New static function recursively calls reset_node
to traverse the fnode tree.
(format_hash): New simple hash function based on XOR, probabalistic,
tosses collisions.
(save_parsed_format): New static function to save the parsed format
data to use again.
(find_parsed_format): New static function searches the hash table
looking for a match.
(free_format_data): Revised to accept pointer to format data rather than
the dtp pointer so that the function can be used in more places.
(format_lex): Editorial.
(parse_format_list): Set flag used to determine of format data hashing
is to be used. Internal units are not persistent enough for this.
(revert): Move to ne location in file.
(parse_format): Use new functions to look for previously parsed
format strings and use them rather than re-parse. If not found, saves
the parsed format data for later use.
2009-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/37754
* io/transfer.c (formatted_transfer_scalar): Remove this function by
factoring it into two new functions, one for read and one for write,
eliminating all the conditionals for read or write mode.
(formatted transfer_scalar_read): New function.
(formatted transfer_scalar_write): New function.
(formatted_transfer): Use new functions.
2009-04-05 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/25561 libfortran/37754
* io/io.h (struct stream): Define new stream interface function
pointers, and inline functions for accessing it.
(struct fbuf): Use int instead of size_t, remove flushed element.
(mem_alloc_w): New prototype.
(mem_alloc_r): New prototype.
(stream_at_bof): Remove prototype.
(stream_at_eof): Remove prototype.
(file_position): Remove prototype.
(flush): Remove prototype.
(stream_offset): Remove prototype.
(unit_truncate): New prototype.
(read_block_form): Change to return pointer, int* argument.
(hit_eof): New prototype.
(fbuf_init): Change prototype.
(fbuf_reset): Change prototype.
(fbuf_alloc): Change prototype.
(fbuf_flush): Change prototype.
(fbuf_seek): Change prototype.
(fbuf_read): New prototype.
(fbuf_getc_refill): New prototype.
(fbuf_getc): New inline function.
* io/fbuf.c (fbuf_init): Use int, get rid of flushed.
(fbuf_debug): New function.
(fbuf_reset): Flush, and return position offset.
(fbuf_alloc): Simplify, don't flush, just realloc.
(fbuf_flush): Make usable for read mode, salvage remaining bytes.
(fbuf_seek): New whence argument.
(fbuf_read): New function.
(fbuf_getc_refill): New function.
* io/file_pos.c (formatted_backspace): Use new stream interface.
(unformatted_backspace): Likewise.
(st_backspace): Make sure format buffer is reset, use new stream
interface, use unit_truncate.
(st_endfile): Likewise.
(st_rewind): Likewise.
* io/intrinsics.c: Use new stream interface.
* io/list_read.c (push_char): Don't use u.p.scratch, use realloc
to resize.
(free_saved): Don't check u.p.scratch.
(next_char): Use new stream interface, use fbuf_getc() for external files.
(finish_list_read): flush format buffer.
(nml_query): Update to use modified interface:s
* io/open.c (test_endfile): Use new stream interface.
(edit_modes): Likewise.
(new_unit): Likewise, set bytes_left to 1 for stream files.
* io/read.c (read_l): Use new read_block_form interface.
(read_utf8): Likewise.
(read_utf8_char1): Likewise.
(read_default_char1): Likewise.
(read_utf8_char4): Likewise.
(read_default_char4): Likewise.
(read_a): Likewise.
(read_a_char4): Likewise.
(read_decimal): Likewise.
(read_radix): Likewise.
(read_f): Likewise.
* io/transfer.c (read_sf): Use fbuf_read and mem_alloc_r, remove
usage of u.p.line_buffer.
(read_block_form): Update interface to return pointer, use
fbuf_read for direct access.
(read_block_direct): Update to new stream interface.
(write_block): Use mem_alloc_w for internal I/O.
(write_buf): Update to new stream interface.
(formatted_transfer_scalar): Don't use u.p.line_buffer, use
fbuf_seek for external files.
(us_read): Update to new stream interface.
(us_write): Likewise.
(data_transfer_init): Always check if we switch modes and flush.
(skip_record): Use new stream interface, fix comparison.
(next_record_r): Check for and reset u.p.at_eof, use new stream
interface, use fbuf_getc for spacing.
(write_us_marker): Update to new stream interface, don't inline.
(next_record_w_unf): Likewise.
(sset): New function.
(next_record_w): Use new stream interface, use fbuf for printing
newline.
(next_record): Use new stream interface.
(finalize_transfer): Remove sfree call, use new stream interface.
(st_iolength_done): Don't use u.p.scratch.
(st_read): Don't check for end of file.
(st_read_done): Don't use u.p.scratch, use unit_truncate.
(hit_eof): New function.
* io/unit.c (init_units): Always init fbuf for formatted units.
(update_position): Use new stream interface.
(unit_truncate): New function.
(finish_last_advance_record): Use fbuf to print newline.
* io/unix.c: Remove unused SSIZE_MAX macro.
(BUFFER_SIZE): Make static const variable rather than macro.
(struct unix_stream): Remove dirty_offset, len, method,
small_buffer. Order elements by decreasing size.
(struct int_stream): Remove.
(move_pos_offset): Remove usage of dirty_offset.
(reset_stream): Remove.
(do_read): Rename to raw_read, update to match new stream
interface.
(do_write): Rename to raw_write, update to new stream interface.
(raw_seek): New function.
(raw_tell): New function.
(raw_truncate): New function.
(raw_close): New function.
(raw_flush): New function.
(raw_init): New function.
(fd_alloc): Remove.
(fd_alloc_r_at): Remove.
(fd_alloc_w_at): Remove.
(fd_sfree): Remove.
(fd_seek): Remove.
(fd_truncate): Remove.
(fd_sset): Remove.
(fd_read): Remove.
(fd_write): Remove.
(fd_close): Remove.
(fd_open): Remove.
(fd_flush): Rename to buf_flush, update to new stream interface
and unix_stream.
(buf_read): New function.
(buf_write): New function.
(buf_seek): New function.
(buf_tell): New function.
(buf_truncate): New function.
(buf_close): New function.
(buf_init): New function.
(mem_alloc_r_at): Rename to mem_alloc_r, change prototype.
(mem_alloc_w_at): Rename to mem_alloc_w, change prototype.
(mem_read): Change to match new stream interface.
(mem_write): Likewise.
(mem_seek): Likewise.
(mem_tell): Likewise.
(mem_truncate): Likewise.
(mem_close): Likewise.
(mem_flush): New function.
(mem_sfree): Remove.
(empty_internal_buffer): Cast to correct type.
(open_internal): Use correct type, init function pointers.
(fd_to_stream): Test whether to open file as buffered or raw.
(output_stream): Remove mode set.
(error_stream): Likewise.
(flush_all_units_1): Use new stream interface.
(flush_all_units): Likewise.
(stream_at_bof): Remove.
(stream_at_eof): Remove.
(file_position): Remove.
(file_length): Update logic to use stream interface.
(flush): Remove.
(stream_offset): Remove.
* io/write.c (write_utf8_char4): Use int instead of size_t.
(write_x): Extra safety check.
(namelist_write_newline): Use new stream interface.
From-SVN: r145571
2009-04-05 22:13:56 +02:00
|
|
|
(fbuf_debug): New function.
|
|
|
|
(fbuf_reset): Flush, and return position offset.
|
|
|
|
(fbuf_alloc): Simplify, don't flush, just realloc.
|
|
|
|
(fbuf_flush): Make usable for read mode, salvage remaining bytes.
|
|
|
|
(fbuf_seek): New whence argument.
|
|
|
|
(fbuf_read): New function.
|
|
|
|
(fbuf_getc_refill): New function.
|
|
|
|
* io/file_pos.c (formatted_backspace): Use new stream interface.
|
|
|
|
(unformatted_backspace): Likewise.
|
|
|
|
(st_backspace): Make sure format buffer is reset, use new stream
|
|
|
|
interface, use unit_truncate.
|
|
|
|
(st_endfile): Likewise.
|
|
|
|
(st_rewind): Likewise.
|
|
|
|
* io/intrinsics.c: Use new stream interface.
|
|
|
|
* io/list_read.c (push_char): Don't use u.p.scratch, use realloc
|
|
|
|
to resize.
|
|
|
|
(free_saved): Don't check u.p.scratch.
|
|
|
|
(next_char): Use new stream interface, use fbuf_getc() for external files.
|
|
|
|
(finish_list_read): flush format buffer.
|
|
|
|
(nml_query): Update to use modified interface:s
|
|
|
|
* io/open.c (test_endfile): Use new stream interface.
|
|
|
|
(edit_modes): Likewise.
|
|
|
|
(new_unit): Likewise, set bytes_left to 1 for stream files.
|
|
|
|
* io/read.c (read_l): Use new read_block_form interface.
|
|
|
|
(read_utf8): Likewise.
|
|
|
|
(read_utf8_char1): Likewise.
|
|
|
|
(read_default_char1): Likewise.
|
|
|
|
(read_utf8_char4): Likewise.
|
|
|
|
(read_default_char4): Likewise.
|
|
|
|
(read_a): Likewise.
|
|
|
|
(read_a_char4): Likewise.
|
|
|
|
(read_decimal): Likewise.
|
|
|
|
(read_radix): Likewise.
|
|
|
|
(read_f): Likewise.
|
|
|
|
* io/transfer.c (read_sf): Use fbuf_read and mem_alloc_r, remove
|
|
|
|
usage of u.p.line_buffer.
|
|
|
|
(read_block_form): Update interface to return pointer, use
|
|
|
|
fbuf_read for direct access.
|
|
|
|
(read_block_direct): Update to new stream interface.
|
|
|
|
(write_block): Use mem_alloc_w for internal I/O.
|
|
|
|
(write_buf): Update to new stream interface.
|
|
|
|
(formatted_transfer_scalar): Don't use u.p.line_buffer, use
|
|
|
|
fbuf_seek for external files.
|
|
|
|
(us_read): Update to new stream interface.
|
|
|
|
(us_write): Likewise.
|
|
|
|
(data_transfer_init): Always check if we switch modes and flush.
|
|
|
|
(skip_record): Use new stream interface, fix comparison.
|
|
|
|
(next_record_r): Check for and reset u.p.at_eof, use new stream
|
|
|
|
interface, use fbuf_getc for spacing.
|
|
|
|
(write_us_marker): Update to new stream interface, don't inline.
|
|
|
|
(next_record_w_unf): Likewise.
|
|
|
|
(sset): New function.
|
|
|
|
(next_record_w): Use new stream interface, use fbuf for printing
|
|
|
|
newline.
|
|
|
|
(next_record): Use new stream interface.
|
|
|
|
(finalize_transfer): Remove sfree call, use new stream interface.
|
|
|
|
(st_iolength_done): Don't use u.p.scratch.
|
|
|
|
(st_read): Don't check for end of file.
|
|
|
|
(st_read_done): Don't use u.p.scratch, use unit_truncate.
|
|
|
|
(hit_eof): New function.
|
|
|
|
* io/unit.c (init_units): Always init fbuf for formatted units.
|
|
|
|
(update_position): Use new stream interface.
|
|
|
|
(unit_truncate): New function.
|
|
|
|
(finish_last_advance_record): Use fbuf to print newline.
|
|
|
|
* io/unix.c: Remove unused SSIZE_MAX macro.
|
|
|
|
(BUFFER_SIZE): Make static const variable rather than macro.
|
|
|
|
(struct unix_stream): Remove dirty_offset, len, method,
|
|
|
|
small_buffer. Order elements by decreasing size.
|
|
|
|
(struct int_stream): Remove.
|
|
|
|
(move_pos_offset): Remove usage of dirty_offset.
|
|
|
|
(reset_stream): Remove.
|
|
|
|
(do_read): Rename to raw_read, update to match new stream
|
|
|
|
interface.
|
|
|
|
(do_write): Rename to raw_write, update to new stream interface.
|
|
|
|
(raw_seek): New function.
|
|
|
|
(raw_tell): New function.
|
|
|
|
(raw_truncate): New function.
|
|
|
|
(raw_close): New function.
|
|
|
|
(raw_flush): New function.
|
|
|
|
(raw_init): New function.
|
|
|
|
(fd_alloc): Remove.
|
|
|
|
(fd_alloc_r_at): Remove.
|
|
|
|
(fd_alloc_w_at): Remove.
|
|
|
|
(fd_sfree): Remove.
|
|
|
|
(fd_seek): Remove.
|
|
|
|
(fd_truncate): Remove.
|
|
|
|
(fd_sset): Remove.
|
|
|
|
(fd_read): Remove.
|
|
|
|
(fd_write): Remove.
|
|
|
|
(fd_close): Remove.
|
|
|
|
(fd_open): Remove.
|
|
|
|
(fd_flush): Rename to buf_flush, update to new stream interface
|
|
|
|
and unix_stream.
|
|
|
|
(buf_read): New function.
|
|
|
|
(buf_write): New function.
|
|
|
|
(buf_seek): New function.
|
|
|
|
(buf_tell): New function.
|
|
|
|
(buf_truncate): New function.
|
|
|
|
(buf_close): New function.
|
|
|
|
(buf_init): New function.
|
|
|
|
(mem_alloc_r_at): Rename to mem_alloc_r, change prototype.
|
|
|
|
(mem_alloc_w_at): Rename to mem_alloc_w, change prototype.
|
|
|
|
(mem_read): Change to match new stream interface.
|
|
|
|
(mem_write): Likewise.
|
|
|
|
(mem_seek): Likewise.
|
|
|
|
(mem_tell): Likewise.
|
|
|
|
(mem_truncate): Likewise.
|
|
|
|
(mem_close): Likewise.
|
|
|
|
(mem_flush): New function.
|
|
|
|
(mem_sfree): Remove.
|
|
|
|
(empty_internal_buffer): Cast to correct type.
|
|
|
|
(open_internal): Use correct type, init function pointers.
|
|
|
|
(fd_to_stream): Test whether to open file as buffered or raw.
|
|
|
|
(output_stream): Remove mode set.
|
|
|
|
(error_stream): Likewise.
|
|
|
|
(flush_all_units_1): Use new stream interface.
|
|
|
|
(flush_all_units): Likewise.
|
|
|
|
(stream_at_bof): Remove.
|
|
|
|
(stream_at_eof): Remove.
|
|
|
|
(file_position): Remove.
|
|
|
|
(file_length): Update logic to use stream interface.
|
|
|
|
(flush): Remove.
|
|
|
|
(stream_offset): Remove.
|
|
|
|
* io/write.c (write_utf8_char4): Use int instead of size_t.
|
|
|
|
(write_x): Extra safety check.
|
|
|
|
(namelist_write_newline): Use new stream interface.
|
|
|
|
|
2009-03-28 22:15:45 +01:00
|
|
|
2009-03-29 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
|
|
|
|
|
|
|
|
PR fortran/33595
|
|
|
|
* intrinsics/c99_functions.c (round): Use floor instead of ceil.
|
|
|
|
Revise checks to round up.
|
|
|
|
(roundf): Likewise.
|
|
|
|
|
2009-03-28 16:18:59 +01:00
|
|
|
2009-03-28 Daniel Kraft <d@domob.eu>
|
|
|
|
|
|
|
|
* intrinsics/string_intrinsics.c: #include <assert.h>
|
|
|
|
* intrinsics/string_intrinsics_inc.c (string_trim): Use string_len_trim
|
|
|
|
instead of calculating the length directly.
|
|
|
|
(string_len_trim): For KIND=1, speed search up.
|
|
|
|
|
2009-03-24 13:24:29 +01:00
|
|
|
2009-03-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/39528
|
|
|
|
* io/list_read.c (list_formatted_read_scalar): Move check for read
|
|
|
|
completion to just after the check for a repeated value.
|
|
|
|
|
2009-03-09 05:47:51 +01:00
|
|
|
2009-03-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
2009-03-09 05:57:34 +01:00
|
|
|
PR libfortran/39402
|
2009-03-09 05:47:51 +01:00
|
|
|
* io/write_float.def (output_float): Handle F0.d formatting correctly
|
|
|
|
for any d when value is 0.0.
|
|
|
|
|
2009-03-01 18:49:31 +01:00
|
|
|
2009-03-01 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
|
|
|
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
2009-01-21 14:34:55 +01:00
|
|
|
2009-01-21 Daniel Kraft <d@domob.eu>
|
|
|
|
|
|
|
|
PR fortran/38887
|
|
|
|
* runtime/in_unpack_generic.c (internal_unpack): Return instead of
|
|
|
|
abort when called with empty array.
|
|
|
|
* m4/in_unpack.m4: Ditto.
|
|
|
|
* generated/in_unpack_i1.c: Regenerated.
|
|
|
|
* generated/in_unpack_i2.c: Regenerated.
|
|
|
|
* generated/in_unpack_i4.c: Regenerated.
|
|
|
|
* generated/in_unpack_i8.c: Regenerated.
|
|
|
|
* generated/in_unpack_i16.c: Regenerated.
|
|
|
|
* generated/in_unpack_r4.c: Regenerated.
|
|
|
|
* generated/in_unpack_r8.c: Regenerated.
|
|
|
|
* generated/in_unpack_r10.c: Regenerated.
|
|
|
|
* generated/in_unpack_r16.c: Regenerated.
|
|
|
|
* generated/in_unpack_c4.c: Regenerated.
|
|
|
|
* generated/in_unpack_c8.c: Regenerated.
|
|
|
|
* generated/in_unpack_c10.c: Regenerated.
|
|
|
|
* generated/in_unpack_c16.c: Regenerated.
|
|
|
|
|
2009-01-13 06:40:36 +01:00
|
|
|
2009-01-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/38772
|
|
|
|
* io/read.c (read_f): Clean up loop conditions for BZ/BN,
|
|
|
|
allowing proper digit testing. White space fix.
|
|
|
|
|
2009-01-05 23:55:15 +01:00
|
|
|
2009-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/38735
|
|
|
|
* io/unit.c (get_internal_unit): Set default BLANK= status to NULL for
|
|
|
|
internal units.
|
|
|
|
|
2008-12-29 21:10:00 +01:00
|
|
|
2008-12-29 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
|
|
|
|
|
|
|
|
PR fortran/31832
|
|
|
|
* acinclude.m4 (LIBGFOR_CHECK_FOR_BROKEN_POWF): New autoconf check for
|
|
|
|
broken powf.
|
|
|
|
* configure.ac (LIBGFOR_CHECK_FOR_BROKEN_POWF): Use it.
|
|
|
|
* intrinsics/c99_functions.c: Use internal powf implementation if
|
|
|
|
HAVE_BROKEN_POWF is defined.
|
|
|
|
* configure: Rebuilt.
|
|
|
|
* config.h.in: Rebuilt.
|
|
|
|
|
2008-12-22 15:53:37 +01:00
|
|
|
2008-12-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/37472
|
|
|
|
* io/write_float.def (output_float_FMT_G_): Modify calculation of temp
|
|
|
|
to avoid sensitivity to round-off.
|
|
|
|
|
2008-12-21 22:23:52 +01:00
|
|
|
2008-12-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/38398
|
|
|
|
* io/io.h (st_parameter_dt): Add new bit to keep track of when to
|
|
|
|
suppress blanks for g0 formatting.
|
|
|
|
* io/transfer.c (formatted_transfer_scalar): Always call write_real_g0
|
|
|
|
for g0 formatting.
|
|
|
|
* io.c (write.c): Do not use ES formatting and use new bit to suppress
|
|
|
|
blanks.
|
|
|
|
* io/write_float.def (output_float): Adjust the location of setting the
|
|
|
|
width so that it can be adjusted when suppressing blanks. Set number of
|
|
|
|
blanks to zero when dtp->u.p.g0_no_blanks is set. Do some minor code
|
|
|
|
clean-up and add some white space for readability.
|
|
|
|
|
2008-12-18 21:04:55 +01:00
|
|
|
2008-12-18 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
|
|
|
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
2008-12-14 07:50:53 +01:00
|
|
|
2008-12-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/38504
|
|
|
|
io/write.c (write_decimal): Skip extra sign '-' at beginning of string
|
|
|
|
returned by gfc_itoa.
|
|
|
|
|
2008-12-09 04:19:09 +01:00
|
|
|
2008-12-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/38430
|
|
|
|
* io/transfer.c (data_transfer_init): Move constraint check for REC=
|
|
|
|
and STREAM access into condition for other REC= constraints to simplify.
|
|
|
|
Comment out this constraint to avoid breaking compatibility with 4.3
|
|
|
|
until later. Added a TODO for above comment and this one.
|
|
|
|
Fix test for max pos.
|
|
|
|
|
2008-12-06 22:53:11 +01:00
|
|
|
2008-12-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/38291
|
|
|
|
* io/transfer.c (data_transfer_init): Add fbuf_flush inadvertently
|
|
|
|
ommitted. Add check for invalid use of REC= with ACCESS="stream". Fix
|
|
|
|
comment.
|
|
|
|
|
2008-12-06 19:07:43 +01:00
|
|
|
2008-12-06 Adam Nemet <anemet@caviumnetworks.com>
|
|
|
|
|
|
|
|
* runtime/main.c (store_exe_path): Don't crash if argv0 is NULL.
|
|
|
|
|
2008-12-06 05:13:34 +01:00
|
|
|
2008-12-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/38291
|
|
|
|
* io/transfer.c (data_transfer_init): Add checks for POS= valid range.
|
|
|
|
Add check for unit opened with ACCESS="stream". Flush and seek if
|
|
|
|
current stream position does not match. Check ENDFILE on read.
|
|
|
|
|
2008-12-05 05:07:45 +01:00
|
|
|
2008-12-04 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/38285
|
|
|
|
* write_float.def (WRITE_FLOAT): Zero the float value for special case
|
|
|
|
only if scale_factor = 0.
|
|
|
|
|
2008-11-23 20:25:42 +01:00
|
|
|
2008-11-23 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/38234
|
|
|
|
* intrinsics/reshape_generic.c (reshape_internal):
|
|
|
|
Source can be larger than shape.
|
|
|
|
* 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-11-23 08:02:22 +01:00
|
|
|
2008-11-22 Danny Smith <dannysmith@users.sourceforge.net>
|
|
|
|
|
|
|
|
* libgfortran.h (__mingw_snprintf): Declare with gnu_printf
|
|
|
|
format attribute.
|
|
|
|
|
|
|
|
|
2008-11-22 22:41:27 +01:00
|
|
|
2008-11-22 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/38225
|
|
|
|
* intrinsics/reshape_generic.c (reshape_internal):
|
|
|
|
Use all dimensions of source for bounds checking.
|
|
|
|
* 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.
|
|
|
|
|
re PR libfortran/37839 (st_parameter_dt has unwanted padding, is out of sync with compiler)
PR libfortran/37839
* trans-io.c (gfc_build_io_library_fndecls): Decrease pad size back
to 16 pointers plus 32 integers. Don't use max integer kind
alignment, only gfc_intio_kind's alignment.
(gfc_trans_inquire): Only set flags2 if mask2 is non-zero.
* ioparm.def: Fix order, bitmasks and types of inquire round, sign
and pending fields. Move u in dt before id.
* io.c (gfc_free_inquire): Free decimal and size exprs.
(match_inquire_element): Match size instead of matching blank twice.
(gfc_resolve_inquire): Resolve size.
* gfortran.dg/f2003_inquire_1.f03: New test.
* gfortran.dg/f2003_io_1.f03: Remove xfail.
* gfortran.dg/f2003_io_4.f03: Likewise.
* gfortran.dg/f2003_io_5.f03: Likewise.
* gfortran.dg/f2003_io_6.f03: Likewise.
* gfortran.dg/f2003_io_7.f03: Likewise.
* io/io.h (IOPARM_INQUIRE_HAS_ROUND, IOPARM_INQUIRE_HAS_SIGN,
IOPARM_INQUIRE_HAS_PENDING): Adjust values.
(st_parameter_inquire): Reorder and fix types of round, sign and
pending fields.
(st_parameter_43, st_parameter_44): Removed.
(st_parameter_dt): Put back struct definition directly to u.p
declaration. Change type of u.p.size_used from gfc_offset to
GFC_IO_INT. Decrease back size of u.pad to 16 pointers and
32 ints. Put id, pos, asynchronous, blank, decimal, delim,
pad, round and sign fields after the union.
* io/inquire.c (inquire_via_unit, inquire_via_filename): Only read
flags2 if it is defined.
* io/transfer.c (read_sf, read_block_form, write_block): Cast
additions to size_used to GFC_IO_INT instead of gfc_offset.
(data_transfer_init): Clear whole u.p struct. Adjust
for moving id, pos, asynchronous, blank, decimal, delim, pad,
round and sign fields from u.p directly into st_parameter_dt.
(finalize_transfer): Don't cast size_used to GFC_IO_INT.
* io/file_pos.c (st_endfile): Clear whole u.p struct.
From-SVN: r142111
2008-11-22 09:10:41 +01:00
|
|
|
2008-11-22 Jakub Jelinek <jakub@redhat.com>
|
|
|
|
|
|
|
|
PR libfortran/37839
|
|
|
|
* io/io.h (IOPARM_INQUIRE_HAS_ROUND, IOPARM_INQUIRE_HAS_SIGN,
|
|
|
|
IOPARM_INQUIRE_HAS_PENDING): Adjust values.
|
|
|
|
(st_parameter_inquire): Reorder and fix types of round, sign and
|
|
|
|
pending fields.
|
|
|
|
(st_parameter_43, st_parameter_44): Removed.
|
|
|
|
(st_parameter_dt): Put back struct definition directly to u.p
|
|
|
|
declaration. Change type of u.p.size_used from gfc_offset to
|
|
|
|
GFC_IO_INT. Decrease back size of u.pad to 16 pointers and
|
|
|
|
32 ints. Put id, pos, asynchronous, blank, decimal, delim,
|
|
|
|
pad, round and sign fields after the union.
|
|
|
|
* io/inquire.c (inquire_via_unit, inquire_via_filename): Only read
|
|
|
|
flags2 if it is defined.
|
|
|
|
* io/transfer.c (read_sf, read_block_form, write_block): Cast
|
|
|
|
additions to size_used to GFC_IO_INT instead of gfc_offset.
|
|
|
|
(data_transfer_init): Clear whole u.p struct. Adjust
|
|
|
|
for moving id, pos, asynchronous, blank, decimal, delim, pad,
|
|
|
|
round and sign fields from u.p directly into st_parameter_dt.
|
|
|
|
(finalize_transfer): Don't cast size_used to GFC_IO_INT.
|
|
|
|
* io/file_pos.c (st_endfile): Clear whole u.p struct.
|
|
|
|
|
2008-11-21 05:29:54 +01:00
|
|
|
2008-11-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/37472
|
|
|
|
* io/write_float.def (output_float_FMT_G_): Adjust conversion of
|
|
|
|
G format specification to F format.
|
|
|
|
|
2008-11-18 23:43:05 +01:00
|
|
|
2008-11-18 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/38135
|
|
|
|
* m4/reshape.m4: Correct bounds checking when PAD is present.
|
|
|
|
Treat PAD as if it were SOURCE when SOURCE is empty.
|
|
|
|
* intrinsics/reshape_generic.c: 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-11-16 17:12:16 +01:00
|
|
|
2008-11-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/38097
|
|
|
|
* io/read.c (read_f): Initialize exponent. Fix comment. Set loop
|
|
|
|
conditions for BZ/BN.
|
|
|
|
* io/unit.c (get_internal_unit): Initialize flags.blank.
|
|
|
|
* io/transfer.c (data_transfer_init): Fix whitespace.
|
|
|
|
|
2008-11-15 20:25:35 +01:00
|
|
|
2008-11-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/37294
|
|
|
|
* io/write.c (namelist_write_newline): Use array loop specification to
|
|
|
|
advance to next internal array unit record. (namelist_write): Adjust to
|
|
|
|
accomodate the internal array unit behavior.
|
|
|
|
|
2008-11-01 11:24:15 +01:00
|
|
|
2008-11-01 Dennis Wassel <dennis.wassel@gmail.com>
|
|
|
|
|
|
|
|
PR fortran/37159
|
|
|
|
* intrinsics/random.c: Added comment to adapt check.c, should
|
|
|
|
kiss_size change.
|
|
|
|
Few cosmetic changes to existing comments.
|
|
|
|
|
2008-10-23 04:43:28 +02:00
|
|
|
2008-10-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
2008-10-23 04:31:00 +02:00
|
|
|
|
|
|
|
PR libfortran/37707
|
|
|
|
* io/list_read.c (read_character): Remove code to look ahead in namelist
|
|
|
|
reads to descriminate non-delimited strings from namelist objects.
|
|
|
|
* io/write.c (namelist_write): Delimit character strings with quote or
|
|
|
|
apostrophe, defaulting to quote.
|
|
|
|
|
2008-10-21 22:12:52 +02:00
|
|
|
2008-10-21 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/34670
|
|
|
|
* intrinsics/transpose_generic.c: Implement bounds checking.
|
|
|
|
* m4/transpose.m4: Likewise.
|
|
|
|
* generated/transpose_c8.c: Regenerated.
|
|
|
|
* generated/transpose_c16.c: Regenerated.
|
|
|
|
* generated/transpose_r10.c: Regenerated.
|
|
|
|
* generated/transpose_i8.c: Regenerated.
|
|
|
|
* generated/transpose_c10.c: Regenerated.
|
|
|
|
* generated/transpose_r4.c: Regenerated.
|
|
|
|
* generated/transpose_c4.c: Regenerated.
|
|
|
|
* generated/transpose_i16.c: Regenerated.
|
|
|
|
* generated/transpose_i4.c: Regenerated.
|
|
|
|
* generated/transpose_r8.c: Regenerated.
|
|
|
|
* generated/transpose_r16.c: Regenerated.
|
|
|
|
|
2008-10-19 20:36:21 +02:00
|
|
|
2008-10-19 Jerry DeLisle <jvdelisle@gcc.gnu.org
|
|
|
|
|
|
|
|
PR libfortran/37834
|
|
|
|
* io/write_float.def (output_float): Emit '0.' for special case of
|
|
|
|
format specifier 'f0.0' and value of zero. Likewise emit '0' for 'f1.0'.
|
|
|
|
|
2008-10-18 07:23:47 +02:00
|
|
|
2008-10-17 Jerry DeLisle <jvdelisle@gcc.gnu.org
|
|
|
|
|
2008-10-18 07:27:23 +02:00
|
|
|
PR libfortran/37863
|
2008-10-18 07:23:47 +02:00
|
|
|
* io/write_float.def (WRITE_FLOAT): Round to 1.0 correctly.
|
|
|
|
* io/io.h (st_parameter_44): Fix id type declaration.
|
|
|
|
|
2008-10-16 20:23:25 +02:00
|
|
|
2008-10-16 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
* io/file_pos.c (unformatted_backspace): Normal case is
|
|
|
|
GFC_CONVERT_NATIVE.
|
|
|
|
* io/transfer.c (read_sf): Mark paths leading to generate_error()
|
|
|
|
as unlikely.
|
|
|
|
(readl_block_form): Likewise.
|
|
|
|
(read_block_direct): Likewise.
|
|
|
|
(write_block): Likewise.
|
|
|
|
(write_buf): Likewise.
|
|
|
|
(us_read): Likewise. Normal case is GFC_CONVERT_NATIVE.
|
|
|
|
(next_record_w_unf): Mark paths leading to generate_error()
|
|
|
|
as unlikely.
|
|
|
|
|
2008-10-16 12:16:38 +02:00
|
|
|
2008-10-16 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/34670
|
|
|
|
* generated/spread_r4.c: Regenerated.
|
|
|
|
|
2008-10-15 18:27:58 +02:00
|
|
|
2008-10-15 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/34670
|
|
|
|
* intrinsics/reshape_generic.c: Add bounds checking.
|
|
|
|
* m4/reshape.m4: Likewise.
|
2009-04-07 01:07:51 +02:00
|
|
|
* 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_r4.c: Regenerated.
|
2008-10-15 18:27:58 +02:00
|
|
|
|
2008-10-14 03:49:51 +02:00
|
|
|
2008-10-13 Jerry DeLisle <jvdelisle@gcc.gnu.org
|
|
|
|
|
|
|
|
PR libfortran/37083
|
|
|
|
* io/list_read.c (next_char): Simplify EOF tests and set endfile flag.
|
|
|
|
(finish_list_read): Add EOF check.
|
|
|
|
|
2008-10-09 21:28:58 +02:00
|
|
|
2008-10-09 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/37753
|
|
|
|
* io/transfer.c (unformatted_read): CONVERT_NATIVE
|
|
|
|
is the usual case. Check for kind==1 for non-byte-reversing
|
|
|
|
operation.
|
|
|
|
(unformatted_write): Likewise.
|
|
|
|
|
2008-10-09 06:02:35 +02:00
|
|
|
2008-10-08 Jerry DeLisle <jvdelisle@gcc.gnu.org
|
|
|
|
|
|
|
|
PR libfortran/37707
|
2008-10-09 06:09:19 +02:00
|
|
|
* io/list_read.c (nml_get_obj_data): If the first namelist object rank
|
|
|
|
is greater than zero, call nml_object_read with the first object rather
|
2008-10-09 06:02:35 +02:00
|
|
|
than the sub-object.
|
|
|
|
|
2008-09-26 18:35:33 +02:00
|
|
|
2008-09-26 Peter O'Gorman <pogma@thewrittenword.com>
|
2009-04-07 01:07:51 +02:00
|
|
|
Steve Ellcey <sje@cup.hp.com>
|
2008-09-26 18:35:33 +02:00
|
|
|
|
|
|
|
* configure: Regenerate for new libtool.
|
|
|
|
* Makefile.in: Ditto.
|
|
|
|
|
2008-09-26 08:19:42 +02:00
|
|
|
2008-09-25 Jerry DeLisle <jvdelisle@gcc.gnu.org
|
|
|
|
|
|
|
|
PR libfortran/37498
|
|
|
|
* list_read.c (eat_separator): Revert previous patch and move
|
|
|
|
delim_status, decimal_status, and pad_status to gfc_unit.
|
|
|
|
(parse_real): Ditto. (read_real): Ditto.
|
|
|
|
* read.c (read_a): Likewise. (read_a_char4): Likewise.
|
|
|
|
(read_f): Likewise.
|
|
|
|
* inquire.c (inquire_via_unit): Add missing check for
|
|
|
|
IOPARM_INQUIRE_HAS_FLAGS2. (inquire_via_filename): Likewise.
|
|
|
|
* io.h (unit_sign_s): Move delim_status, decimal_status, and pad_status
|
|
|
|
to gfc_unit.
|
|
|
|
* transfer.c (read_sf): Ditto. (read_block_form): Ditto.
|
|
|
|
(formatted_transfer_scalar): Ditto. (data_transfer_init): Ditto.
|
|
|
|
* write.c (write_default_char4): Ditto. (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): Ditto. (output_float): Ditto.
|
|
|
|
|
2008-09-24 09:08:22 +02:00
|
|
|
2008-09-24 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
* runtime/compile_options.c (init_compile_options):
|
|
|
|
Sync flags with front end.
|
|
|
|
|
2008-09-23 05:52:19 +02:00
|
|
|
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 19:18:08 +02:00
|
|
|
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 18:39:15 +02:00
|
|
|
2008-09-10 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
* mk-kinds-h.sh: Make -Wunused-variable proof.
|
|
|
|
|
2008-09-07 15:33:18 +02:00
|
|
|
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 16:53:26 +02:00
|
|
|
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-02 10:50:13 +02:00
|
|
|
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-02 03:14:04 +02:00
|
|
|
2008-09-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
* runtime/error.c: Fix cast for printf.
|
|
|
|
|
2008-08-31 02:04:33 +02:00
|
|
|
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 08:00:51 +02:00
|
|
|
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-16 05:38:31 +02:00
|
|
|
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 23:36:31 +02:00
|
|
|
2008-08-14 H.J. Lu <hongjiu.lu@intel.com>
|
|
|
|
|
|
|
|
PR libfortran/37123
|
|
|
|
* intrinsics/cshift0.c (cshift0): Fix 2 typos.
|
|
|
|
|
re PR libfortran/36886 (misaligment for cshift of character)
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-08-14 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/36886
* gfortran.dg/cshift_char_3.f90: New test case.
* gfortran.dg/cshift_nan_1.f90: New test case.
From-SVN: r139111
2008-08-14 20:31:32 +02:00
|
|
|
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.
|
|
|
|
|
re PR fortran/36132 (_gfortran_internal_pack on optional arguments)
2008-07-27 Tobias Burnus <burnus@net-b.de>
PR fortran/36132
PR fortran/29952
PR fortran/36909
* trans.c (gfc_trans_runtime_check): Allow run-time warning
* besides
run-time error.
* trans.h (gfc_trans_runtime_check): Update declaration.
* trans-array.c
* (gfc_trans_array_ctor_element,gfc_trans_array_bound_check,
gfc_conv_array_ref,gfc_conv_ss_startstride,gfc_trans_dummy_array_bias):
Updated gfc_trans_runtime_check calls.
(gfc_conv_array_parameter): Implement flag_check_array_temporaries,
fix packing/unpacking for nonpresent optional actuals to optional
formals.
* trans-array.h (gfc_conv_array_parameter): Update declaration.
* trans-expr.c (gfc_conv_substring,gfc_trans_arrayfunc_assign,
gfc_conv_function_call): Updated gfc_trans_runtime_check calls.
(gfc_conv_function_call): Update gfc_conv_array_parameter calls.
* trans-expr.c (gfc_trans_goto): Updated gfc_trans_runtime_check
calls.
* trans-io.c (set_string,gfc_conv_intrinsic_repeat): Ditto.
(gfc_conv_intrinsic_transfer,gfc_conv_intrinsic_loc): Same for
gfc_conv_array_parameter.
* trans-intrinsics.c (gfc_conv_intrinsic_bound): Ditto.
* trans-decl.c (gfc_build_builtin_function_decls): Add
gfor_fndecl_runtime_warning_at.
* lang.opt: New option fcheck-array-temporaries.
* gfortran.h (gfc_options): New flag_check_array_temporaries.
* options.c (gfc_init_options, gfc_handle_option): Handle flag.
* invoke.texi: New option fcheck-array-temporaries.
2008-07-27 Tobias Burnus <burnus@net-b.de>
PR fortran/36132
PR fortran/29952
PR fortran/36909
* runtime/error.c: New function runtime_error_at.
* gfortran.map: Ditto.
* libgfortran.h: Ditto.
2008-07-27 Tobias Burnus <burnus@net-b.de>
PR fortran/36132
PR fortran/29952
PR fortran/36909
gfortran.dg/internal_pack_4.f90: New.
gfortran.dg/internal_pack_5.f90: New.
gfortran.dg/array_temporaries_2.f90: New.
From-SVN: r138186
2008-07-27 12:45:44 +02:00
|
|
|
2008-07-27 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
PR fortran/36132
|
|
|
|
PR fortran/29952
|
|
|
|
PR fortran/36909
|
|
|
|
* runtime/error.c: New function runtime_error_at.
|
|
|
|
* gfortran.map: Ditto.
|
|
|
|
* libgfortran.h: Ditto.
|
|
|
|
|
2008-07-23 06:29:15 +02:00
|
|
|
2008-07-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
2008-08-09 21:17:24 +02:00
|
|
|
PR fortran/36582
|
2008-07-23 06:29:15 +02:00
|
|
|
* io/list_read.c: If variable rank is zero, do not adjust the found
|
|
|
|
namelist object pointer.
|
|
|
|
|
2008-07-22 19:05:55 +02:00
|
|
|
2008-07-22 Daniel Kraft <d@domob.eu>
|
|
|
|
|
|
|
|
PR fortran/29835
|
|
|
|
* io/format.c (struct format_data): New member error_element.
|
|
|
|
(unexpected_element): Added '%c' to message.
|
|
|
|
(next_char): Keep track of last parsed character in fmt->error_element.
|
|
|
|
(format_error): If the message is unexpected_element, output the
|
|
|
|
offending character, too.
|
|
|
|
|
2008-07-22 12:27:10 +02:00
|
|
|
2008-07-22 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/36890
|
|
|
|
* io/file_pos.c: Declare READ_CHUNK as signed to avoid
|
|
|
|
signed/unsigned comparison warning in formatted_backspace.
|
|
|
|
|
2008-07-21 12:05:32 +02:00
|
|
|
2008-07-21 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/36773
|
|
|
|
* intrinsics/cshift0.c (cshift0): Return early if size of array
|
|
|
|
is zero.
|
|
|
|
* intrinsics/eoshift0.c (eoshift0): Return early if size of
|
|
|
|
return array is zero.
|
|
|
|
* intrinsics/eoshift2.c (eoshift2): Likewise.
|
|
|
|
* m4/eoshift1.m4 (eoshift1): Return early if size of array
|
|
|
|
is zero.
|
|
|
|
* m4/eoshift3.m4 (eoshift3): Likewise.
|
|
|
|
* m4/eoshift2.m4 (eoshift2): Return early if size of return
|
|
|
|
array is zero.
|
|
|
|
* m4/eoshift4.m4 (eoshift2): Return early if size of return
|
|
|
|
array is zero.
|
|
|
|
* 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.
|
|
|
|
|
2008-07-21 06:44:10 +02:00
|
|
|
2008-07-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/36857
|
|
|
|
* io/write_float.def: Comment out locale dependent code and fix general
|
|
|
|
comments.
|
|
|
|
|
2008-07-07 21:43:33 +02:00
|
|
|
2008-07-07 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/36341
|
|
|
|
PR fortran/34670
|
|
|
|
* m4/matmul.m4: Add bounds checking.
|
|
|
|
* m4/matmull.m4: Likewise.
|
|
|
|
* generated/matmul_c10.c: Regenerated.
|
|
|
|
* generated/matmul_c16.c: Regenerated.
|
|
|
|
* generated/matmul_c4.c: Regenerated.
|
|
|
|
* generated/matmul_c8.c: Regenerated.
|
|
|
|
* generated/matmul_i1.c: Regenerated.
|
|
|
|
* generated/matmul_i16.c: Regenerated.
|
|
|
|
* generated/matmul_i2.c: Regenerated.
|
|
|
|
* generated/matmul_i4.c: Regenerated.
|
|
|
|
* generated/matmul_i8.c: Regenerated.
|
|
|
|
* generated/matmul_l16.c: Regenerated.
|
|
|
|
* generated/matmul_l4.c: Regenerated.
|
|
|
|
* generated/matmul_l8.c: Regenerated.
|
|
|
|
* generated/matmul_r10.c: Regenerated.
|
|
|
|
* generated/matmul_r16.c: Regenerated.
|
|
|
|
* generated/matmul_r4.c: Regenerated.
|
|
|
|
* generated/matmul_r8.c: Regenerated.
|
|
|
|
|
2008-07-07 21:16:18 +02:00
|
|
|
2008-07-07 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
|
|
|
|
|
|
|
|
* acinclude.m4 (LIBGFOR_CHECK_GTHR_DEFAULT): Fix configure cache
|
|
|
|
variable name.
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
2008-07-02 05:58:57 +02:00
|
|
|
2008-07-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/36676
|
|
|
|
* io/list_read.c (find_nml_name): Use eat_separator instead of eat_line.
|
|
|
|
|
2008-06-28 23:46:53 +02:00
|
|
|
2008-06-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/36657
|
|
|
|
* io/list_read.c (read_character): Check for '!' along with separators.
|
|
|
|
(find_nml_name): Likewise and eat the comment if found.
|
|
|
|
|
2008-06-18 01:13:35 +02:00
|
|
|
2008-06-17 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
|
|
|
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
2008-06-17 06:14:07 +02:00
|
|
|
2008-06-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/36546
|
|
|
|
* io/list_read.c (eat_separator): Add tab character to condition
|
|
|
|
for looping past whitespace.
|
|
|
|
|
2008-06-15 22:02:58 +02:00
|
|
|
2008-06-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/36515
|
|
|
|
* libgfortran.h (compile_options_t): Add int range_check to structure.
|
|
|
|
* runtime/compile_options.c (set_options): Add range_check option.
|
|
|
|
(init_compile_options): Likewise.
|
|
|
|
*io/read.c (read_decimal): Change overflow checks to include
|
|
|
|
range_check.
|
|
|
|
|
2008-06-14 06:30:48 +02:00
|
|
|
2008-06-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/36538
|
|
|
|
* io/list_read.c (namelist_read): Add eat_separator to eliminate leading
|
|
|
|
tabs.
|
|
|
|
|
2008-06-13 22:28:08 +02:00
|
|
|
2008-06-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/35863
|
|
|
|
* libgfortran.h: Change l8_to_l4_offset to big_endian and add endian_off.
|
|
|
|
* runtime/main.c: Fix error in comment. Change l8_to_l4_offset to
|
|
|
|
big_endian. (determine_endianness): Add endian_off and set its value
|
|
|
|
according to big_endian.
|
|
|
|
* gfortran.map: Add symbol for new _gfortran_transfer_character_wide.
|
|
|
|
* io/io.h: Add prototype declarations for new functions.
|
|
|
|
* io/list_read.c (list_formatted_read_scalar): Modify to handle kind=4.
|
|
|
|
(list_formatted_read): Calculate stride based on kind for character type
|
|
|
|
and use it when calling list_formatted_read_scalar.
|
|
|
|
* io/inquire.c (inquire_via_unit): Change l8_to_l4_offset to big_endian.
|
|
|
|
* io/open.c (st_open): Change l8_to_l4_offset to big_endian.
|
|
|
|
* io/read.c (read_a_char4): New function to handle formatted read.
|
|
|
|
* io/write.c: Define GFC_CHAR4(x) to improve readability of code.
|
|
|
|
(write_a_char4): New function to handle formatted write.
|
|
|
|
(write_character): Modify to accept the kind parameter and adjust for
|
|
|
|
endianess of the machine. (list_formatted_write): Calculate the stride
|
|
|
|
resulting from the kind and adjust the list_formatted_write_scalar call
|
|
|
|
accordingly. (nml_write_obj): Adjust calls to write_character.
|
|
|
|
(namelist_write): Likewise.
|
|
|
|
* io/transfer.c (formatted_transfer_scaler): Rename 'len' argument to
|
|
|
|
'kind' argument to better describe what it is. Add calls to new
|
|
|
|
functions for kind == 4. (formatted_transfer): Modify to handle the case
|
|
|
|
of type character and kind equals 4 to pass in the kind to the transfer
|
|
|
|
routines. (transfer_character_wide): Add this new function.
|
|
|
|
(transfer_array): Don't set kind to the character string length. Adjust
|
|
|
|
strides bases on character kind.
|
|
|
|
(unformatted_read): Adjust size based on kind for character types.
|
|
|
|
(unformatted_write): Likewise. (data_transfer_init): Change
|
2008-06-13 22:55:35 +02:00
|
|
|
l8_to_l4_offset to big_endian.
|
|
|
|
io/fbuf.c (fbuf_seek): Add cast to eliminate warning.
|
2008-06-13 22:28:08 +02:00
|
|
|
|
2008-06-13 21:29:22 +02:00
|
|
|
2008-06-13 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
* configure.ac (AM_CFLAGS): Remove -Werror again.
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
|
|
2008-06-13 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
PR libgfortran/36518
|
|
|
|
* configure.ac (AM_CFLAGS): Add -Werror.
|
|
|
|
* configure: Regenerate.
|
|
|
|
* m4/ifunction_logical.m4: Cast "n" to "(int)".
|
|
|
|
* generated/any_l16.c: Regenerate.
|
|
|
|
* generated/any_l2.c: Regenerate.
|
|
|
|
* generated/all_l1.c: Regenerate.
|
|
|
|
* generated/all_l2.c: Regenerate.
|
|
|
|
* generated/all_l16.c: Regenerate.
|
|
|
|
* generated/any_l4.c: Regenerate.
|
|
|
|
* generated/count_4_l.c: Regenerate.
|
|
|
|
* generated/count_8_l.c: Regenerate.
|
|
|
|
* generated/all_l4.c: Regenerate.
|
|
|
|
* generated/count_1_l.c: Regenerate.
|
|
|
|
* generated/count_16_l.c: Regenerate.
|
|
|
|
* generated/any_l8.c: Regenerate.
|
|
|
|
* generated/count_2_l.c: Regenerate.
|
|
|
|
* generated/any_l1.c: Regenerate.
|
|
|
|
* generated/all_l8.c: Regenerate.
|
|
|
|
|
2008-06-13 09:10:15 +02:00
|
|
|
2008-06-13 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
PR fortran/36495
|
|
|
|
* configure.ac (AM_FCFLAGS): Add "-Werror -fimplicit-none".
|
|
|
|
* configure: (generated) ditto.
|
|
|
|
* intrinsics/dprod_r8.f90: Add "implicit none".
|
|
|
|
|
2008-06-08 01:59:53 +02:00
|
|
|
2008-06-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/36420
|
|
|
|
PR libfortran/36421
|
|
|
|
PR libfortran/36422
|
|
|
|
* io/io.h: Add prototype for write_real.
|
|
|
|
* io/transfer.c (formatted_transfer_scalar): For FMT_G and width zero,
|
|
|
|
use write_real.
|
|
|
|
* io/format.c: Add zero width error message. (parse_format_list): Use
|
|
|
|
error message for FMT_A if followed by FMT_ZERO. Use zero width error
|
|
|
|
message for FMT_G if mode is READ or if -std=f95 or f2003. (fmormat0):
|
|
|
|
Fix typo in comment.
|
|
|
|
* io/write.c(write_a): Set wlen to len if FMT_G and length is zero.
|
|
|
|
(write_l): Add wlen variable and use it if FMT_G and width is zero.
|
|
|
|
(write_decimal): If FMT_G, set m to -1 to flag processor dependent
|
|
|
|
formatting. (write_real): Remove static declaration.
|
|
|
|
|
re PR fortran/36319 (Segfault with wide characters in DATA)
PR fortran/36319
* intrinsic.c (gfc_convert_chartype): Don't mark conversion
function as pure.
* trans-array.c (gfc_trans_array_ctor_element): Divide element
size by the size of one character to obtain length.
* iresolve.c (gfc_resolve_cshift): Call the _char4 variant when
appropriate.
(gfc_resolve_eoshift): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_ctime): Minor beautification.
(gfc_conv_intrinsic_fdate): Minor beautification.
(gfc_conv_intrinsic_ttynam): Minor beautification.
(gfc_conv_intrinsic_minmax_char): Allow all character kinds.
(size_of_string_in_bytes): New function.
(gfc_conv_intrinsic_size): Call size_of_string_in_bytes for
character expressions.
(gfc_conv_intrinsic_sizeof): Likewise.
(gfc_conv_intrinsic_array_transfer): Likewise.
(gfc_conv_intrinsic_trim): Allow all character kinds. Minor
beautification.
(gfc_conv_intrinsic_repeat): Fix comment typo.
* simplify.c (gfc_convert_char_constant): Take care of conversion
of array constructors.
* intrinsics/string_intrinsics_inc.c (string_index): Return
correct value for zero-length substring.
* intrinsics/cshift0.c: Add _char4 variant.
* intrinsics/eoshift0.c (eoshift0): Allow filler to be a pattern
wider than a single byte. Add _char4 variant and use above
functionality.
* intrinsics/eoshift2.c (eoshift2): Likewise.
* m4/eoshift1.m4: Likewise.
* m4/eoshift3.m4: Likewise.
* m4/cshift1.m4: Add _char4 variants.
* gfortran.map (GFORTRAN_1.1): Add _gfortran_cshift0_1_char4,
_gfortran_cshift0_2_char4, _gfortran_cshift0_4_char4,
_gfortran_cshift0_8_char4, _gfortran_cshift1_16_char4,
_gfortran_cshift1_4_char4, _gfortran_cshift1_8_char4,
_gfortran_eoshift0_1_char4, _gfortran_eoshift0_2_char4,
_gfortran_eoshift0_4_char4, _gfortran_eoshift0_8_char4,
_gfortran_eoshift1_16_char4, _gfortran_eoshift1_4_char4,
_gfortran_eoshift1_8_char4, _gfortran_eoshift2_1_char4,
_gfortran_eoshift2_2_char4, _gfortran_eoshift2_4_char4,
_gfortran_eoshift2_8_char4, _gfortran_eoshift3_16_char4,
_gfortran_eoshift3_4_char4 and _gfortran_eoshift3_8_char4.
* generated/eoshift3_4.c: Regenerate.
* generated/eoshift1_8.c: Regenerate.
* generated/eoshift1_16.c: Regenerate.
* generated/cshift1_4.c: Regenerate.
* generated/eoshift1_4.c: Regenerate.
* generated/eoshift3_8.c: Regenerate.
* generated/eoshift3_16.c: Regenerate.
* generated/cshift1_8.c: Regenerate.
* generated/cshift1_16.c: Regenerate.
* gfortran.dg/widechar_5.f90: New file.
* gfortran.dg/widechar_6.f90: New file.
* gfortran.dg/widechar_7.f90: New file.
* gfortran.dg/widechar_intrinsics_5.f90: Uncomment the lines
testing the SPREAD intrinsic.
* gfortran.dg/widechar_intrinsics_6.f90: New file.
* gfortran.dg/widechar_intrinsics_7.f90: New file.
* gfortran.dg/widechar_intrinsics_8.f90: New file.
* gfortran.dg/widechar_intrinsics_9.f90: New file.
* gfortran.dg/widechar_intrinsics_10.f90: New file.
From-SVN: r136129
2008-05-28 23:11:39 +02:00
|
|
|
2008-05-28 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/36319
|
|
|
|
* intrinsics/string_intrinsics_inc.c (string_index): Return
|
|
|
|
correct value for zero-length substring.
|
|
|
|
* intrinsics/cshift0.c: Add _char4 variant.
|
|
|
|
* intrinsics/eoshift0.c (eoshift0): Allow filler to be a pattern
|
|
|
|
wider than a single byte. Add _char4 variant and use above
|
|
|
|
functionality.
|
|
|
|
* intrinsics/eoshift2.c (eoshift2): Likewise.
|
|
|
|
* m4/eoshift1.m4: Likewise.
|
|
|
|
* m4/eoshift3.m4: Likewise.
|
|
|
|
* m4/cshift1.m4: Add _char4 variants.
|
|
|
|
* gfortran.map (GFORTRAN_1.1): Add _gfortran_cshift0_1_char4,
|
|
|
|
_gfortran_cshift0_2_char4, _gfortran_cshift0_4_char4,
|
|
|
|
_gfortran_cshift0_8_char4, _gfortran_cshift1_16_char4,
|
|
|
|
_gfortran_cshift1_4_char4, _gfortran_cshift1_8_char4,
|
|
|
|
_gfortran_eoshift0_1_char4, _gfortran_eoshift0_2_char4,
|
|
|
|
_gfortran_eoshift0_4_char4, _gfortran_eoshift0_8_char4,
|
|
|
|
_gfortran_eoshift1_16_char4, _gfortran_eoshift1_4_char4,
|
|
|
|
_gfortran_eoshift1_8_char4, _gfortran_eoshift2_1_char4,
|
|
|
|
_gfortran_eoshift2_2_char4, _gfortran_eoshift2_4_char4,
|
|
|
|
_gfortran_eoshift2_8_char4, _gfortran_eoshift3_16_char4,
|
|
|
|
_gfortran_eoshift3_4_char4 and _gfortran_eoshift3_8_char4.
|
|
|
|
* generated/eoshift3_4.c: Regenerate.
|
|
|
|
* generated/eoshift1_8.c: Regenerate.
|
|
|
|
* generated/eoshift1_16.c: Regenerate.
|
|
|
|
* generated/cshift1_4.c: Regenerate.
|
|
|
|
* generated/eoshift1_4.c: Regenerate.
|
|
|
|
* generated/eoshift3_8.c: Regenerate.
|
|
|
|
* generated/eoshift3_16.c: Regenerate.
|
|
|
|
* generated/cshift1_8.c: Regenerate.
|
|
|
|
* generated/cshift1_16.c: Regenerate.
|
|
|
|
|
2008-05-25 19:52:03 +02:00
|
|
|
2008-05-25 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
PR fortran/32600
|
|
|
|
* intrinsics/iso_c_binding.c (c_f_procpointer): Remove.
|
|
|
|
* intrinsics/iso_c_binding.h (c_f_procpointer): Remove.
|
|
|
|
* gfortran.map (c_f_procpointer): Remove.
|
|
|
|
|
2008-05-22 23:55:43 +02:00
|
|
|
2008-05-22 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libgfortran/36302
|
|
|
|
* gfortran.map (GFORTRAN_1.1): Add _gfortran_eoshift0_16,
|
|
|
|
_gfortran_eoshift0_16_char, _gfortran_eoshift2_16,
|
|
|
|
_gfortran_eoshift2_16_char,_gfortran_cshift0_16,
|
|
|
|
_gfortran_cshift0_16_char. Sort alphabetically.
|
|
|
|
* intrinsics/eoshift0.c: Add function for kind=16 integer.
|
|
|
|
* intrinsics/eoshift2.c: Likewise.
|
|
|
|
* intrinsics/cshift0.c: Likewise.
|
|
|
|
|
2008-05-18 23:44:42 +02:00
|
|
|
2008-05-18 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
* m4/in_pack.m4 (internal_pack_'rtype_code`): Destination
|
|
|
|
pointer is restrict.
|
|
|
|
* m4/transpose.m4 (transpose_'rtype_code`): Likewise.
|
|
|
|
* m4/pack.m4 (pack_'rtype_code`): Likewise.
|
|
|
|
* m4/spread.m4 (spread_'rtype_code`): Likewise.
|
|
|
|
(spread_scalar_'rtype_code`): Likewise.
|
|
|
|
* m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
* m4/eoshift1.m4 (eoshift1): Likewise.
|
|
|
|
* m4/eoshift3.m4 (eoshift3): Likewise.
|
|
|
|
* m4/in_unpack.m4 (internal_unpack_'rtype_ccode`): Likewise.
|
|
|
|
* m4/unpack.m4 (unpack0_'rtype_code`): Likewise.
|
|
|
|
(unpack1_'rtype_code`): Likewise.
|
|
|
|
* intrinsics/pack_generic.c (pack_generic.c): Likewise.
|
|
|
|
* intrinsics/unpack_generic.c (unpack_internal): Likewise.
|
|
|
|
* intrinsics/eoshift0.c (eoshift0): Likewise.
|
|
|
|
* intrinsics/eoshift2.c (eoshift2): Likewise.
|
|
|
|
* intrinsics/reshape_generic.c (reshape_internal): Likewise.
|
|
|
|
* intrinsics/reshape_packed.c (reshape_packed): Likewise.
|
|
|
|
* 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/in_pack_c10.c: Regenerated.
|
|
|
|
* generated/in_pack_c16.c: Regenerated.
|
|
|
|
* generated/in_pack_c4.c: Regenerated.
|
|
|
|
* generated/in_pack_c8.c: Regenerated.
|
|
|
|
* generated/in_pack_i1.c: Regenerated.
|
|
|
|
* generated/in_pack_i16.c: Regenerated.
|
|
|
|
* generated/in_pack_i2.c: Regenerated.
|
|
|
|
* generated/in_pack_i4.c: Regenerated.
|
|
|
|
* generated/in_pack_i8.c: Regenerated.
|
|
|
|
* generated/in_pack_r10.c: Regenerated.
|
|
|
|
* generated/in_pack_r16.c: Regenerated.
|
|
|
|
* generated/in_pack_r4.c: Regenerated.
|
|
|
|
* generated/in_pack_r8.c: Regenerated.
|
|
|
|
* generated/in_unpack_c10.c: Regenerated.
|
|
|
|
* generated/in_unpack_c16.c: Regenerated.
|
|
|
|
* generated/in_unpack_c4.c: Regenerated.
|
|
|
|
* generated/in_unpack_c8.c: Regenerated.
|
|
|
|
* generated/in_unpack_i1.c: Regenerated.
|
|
|
|
* generated/in_unpack_i16.c: Regenerated.
|
|
|
|
* generated/in_unpack_i2.c: Regenerated.
|
|
|
|
* generated/in_unpack_i4.c: Regenerated.
|
|
|
|
* generated/in_unpack_i8.c: Regenerated.
|
|
|
|
* generated/in_unpack_r10.c: Regenerated.
|
|
|
|
* generated/in_unpack_r16.c: Regenerated.
|
|
|
|
* generated/in_unpack_r4.c: Regenerated.
|
|
|
|
* generated/in_unpack_r8.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/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/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/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/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.
|
|
|
|
|
select.c: Moved content to select_inc.c.
* runtime/select.c: Moved content to select_inc.c. Include it.
Add macros for different character types.
* runtime/select_inc.c: New file.
* runtime/convert_char.c: New file.
* intrinsics/pack_generic.c (pack_char4, pack_s_char4): New
functions.
* intrinsics/transpose_generic.c (transpose_char4): New function.
* intrinsics/spread_generic.c (spread_char4, spread_char4_scalar):
New functions.
* intrinsics/unpack_generic.c (unpack1_char4, unpack0_char4):
New functions.
* intrinsics/reshape_generic.c (reshape_char): Use
gfc_charlen_type as type for length variables.
(reshape_char4): New function.
* gfortran.map (GFORTRAN_1.1): Add _gfortran_select_string_char4,
_gfortran_convert_char1_to_char4, _gfortran_convert_char4_to_char1,
_gfortran_transpose_char4, _gfortran_spread_char4,
_gfortran_spread_char4_scalar, _gfortran_reshape_char4,
_gfortran_pack_char4, _gfortran_pack_s_char4,
_gfortran_unpack0_char4 and _gfortran_unpack1_char4.
* Makefile.am: Add runtime/convert_char.c.
* Makefile.in: Regenerate.
From-SVN: r135496
2008-05-18 14:00:20 +02:00
|
|
|
2008-05-18 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
* runtime/select.c: Moved content to select_inc.c. Include it.
|
|
|
|
Add macros for different character types.
|
|
|
|
* runtime/select_inc.c: New file.
|
|
|
|
* runtime/convert_char.c: New file.
|
|
|
|
* intrinsics/pack_generic.c (pack_char4, pack_s_char4): New
|
|
|
|
functions.
|
|
|
|
* intrinsics/transpose_generic.c (transpose_char4): New function.
|
|
|
|
* intrinsics/spread_generic.c (spread_char4, spread_char4_scalar):
|
|
|
|
New functions.
|
|
|
|
* intrinsics/unpack_generic.c (unpack1_char4, unpack0_char4):
|
|
|
|
New functions.
|
|
|
|
* intrinsics/reshape_generic.c (reshape_char): Use
|
|
|
|
gfc_charlen_type as type for length variables.
|
|
|
|
(reshape_char4): New function.
|
|
|
|
* gfortran.map (GFORTRAN_1.1): Add _gfortran_select_string_char4,
|
|
|
|
_gfortran_convert_char1_to_char4, _gfortran_convert_char4_to_char1,
|
|
|
|
_gfortran_transpose_char4, _gfortran_spread_char4,
|
|
|
|
_gfortran_spread_char4_scalar, _gfortran_reshape_char4,
|
|
|
|
_gfortran_pack_char4, _gfortran_pack_s_char4,
|
|
|
|
_gfortran_unpack0_char4 and _gfortran_unpack1_char4.
|
|
|
|
* Makefile.am: Add runtime/convert_char.c.
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
2008-05-18 00:24:06 +02:00
|
|
|
2008-05-17 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
* io/list_read.c (list_formatted_read_scalar): Declare
|
|
|
|
type as volatile to shut up compiler warning.
|
|
|
|
|
2008-05-16 19:42:44 +02:00
|
|
|
2008-05-16 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/25561
|
|
|
|
* io/io.h (struct fbuf): Change pointer to position offset.
|
|
|
|
* io/fbuf.c (fbuf_init): Reduce default size of buffer, ptr=>pos
|
|
|
|
changes.
|
|
|
|
(fbuf_reset): ptr=>pos changes.
|
|
|
|
(fbuf_alloc): If the request doesn't fit, don't waste memory by
|
|
|
|
keeping flushed bytes. ptr=>pos changes.
|
|
|
|
(fbuf_flush): ptr=>pos changes.
|
|
|
|
(fbuf_seek): Don't seek past the left tab limit, don't update active
|
|
|
|
byte count.
|
|
|
|
* io/open.c (new_unit): If RECL has been specified, used that as
|
|
|
|
initial buffer size.
|
|
|
|
|
2008-05-16 19:37:30 +02:00
|
|
|
2008-05-16 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35632
|
|
|
|
* io/open.c (new_unit): Set stream position to correct value.
|
|
|
|
|
2008-05-15 17:55:32 +02:00
|
|
|
2008-05-15 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/25561
|
|
|
|
* Makefile.am: Add fbuf.c to gfor_io_src.
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
* io/io.h (read_block): Remove.
|
|
|
|
(struct stream): Remove alloc_r_at function pointer.
|
|
|
|
(salloc_r): Remove.
|
|
|
|
(salloc_r_at): Remove.
|
|
|
|
(salloc_w_at): Remove.
|
|
|
|
(salloc_w): Remove offset argument.
|
|
|
|
(struct fbuf): New struct for format buffer.
|
|
|
|
(struct gfc_unit): Add fbuf.
|
|
|
|
(read_block_form): New prototype.
|
|
|
|
(fbuf_init): Likewise.
|
|
|
|
(fbuf_destroy): Likewise.
|
|
|
|
(fbuf_reset): Likewise.
|
|
|
|
(fbuf_alloc): Likewise.
|
|
|
|
(fbuf_flush): Likewise.
|
|
|
|
(fbuf_seek): Likewise.
|
|
|
|
* io/file_pos.c (formatted_backspace): Change to use sread.
|
|
|
|
(unformatted_backspace): Likewise.
|
|
|
|
(st_backspace): Flush format buffer.
|
|
|
|
(st_rewind): Likewise.
|
|
|
|
* io/list_read.c (next_char): Likewise.
|
|
|
|
(nml_query): Tidying, flush format buffer.
|
|
|
|
* io/open.c (new_unit): Init format buffer.
|
|
|
|
* io/read.c (read_l): Change to use read_block_form.
|
|
|
|
(read_a): Likewise.
|
|
|
|
(read_decimal): Likewise.
|
|
|
|
(read_radix): Likewise.
|
|
|
|
(read_f): Likewise.
|
|
|
|
(read_x): Empty reads also for stream I/O.
|
|
|
|
* io/transfer.c (read_sf): Change to use sread.
|
|
|
|
(read_block): Rename to read_block_form, change prototype, use sread.
|
|
|
|
(read_block_direct): Don't seek stream files.
|
|
|
|
(write_block): Change to use fbuf if external file, don't seek stream
|
|
|
|
files.
|
|
|
|
(write_buf): Don't seek stream files.
|
|
|
|
(formatted_transfer_scalar): Use fbuf for external files.
|
|
|
|
(us_read): Change to use sread.
|
|
|
|
(pre_position): Do nothing for stream I/O.
|
|
|
|
(data_transfer_init): Flush fbuf when switching from write to read, if
|
|
|
|
POS is specified, seek stream file to correct offset.
|
|
|
|
(skip_record): Change to use sread.
|
|
|
|
(min_off): New function.
|
|
|
|
(next_record_r): Change to use sread.
|
|
|
|
(next_record_w): Change to use sset/sseek, flush fbuf.
|
|
|
|
(finalize_transfer): Flush fbuf.
|
|
|
|
* io/unit.c (init_units): Init fbuf for stdout, stderr.
|
|
|
|
(close_unit_1): Destroy fbuf.
|
|
|
|
(finish_last_advance_record): Flush fbuf, no need to seek.
|
|
|
|
* io/unix.c (fd_alloc_r_at): Remove unused where argument.
|
|
|
|
(fd_alloc_w_at): Likewise.
|
|
|
|
(fd_read): Remove third argument to fd_alloc_r_at.
|
|
|
|
(fd_write): Remove third argument to fd_alloc_w_at.
|
|
|
|
(fd_sset): Likewise.
|
|
|
|
(fd_open): Don't set alloc_r_at.
|
|
|
|
(mem_alloc_r_at): Remove unused where argument.
|
|
|
|
(mem_alloc_w_at): Likewise.
|
|
|
|
(mem_read): Don't incorrectly return previous errno, remove unused
|
|
|
|
third argument to alloc function.
|
|
|
|
(mem_write): Likewise.
|
|
|
|
(mem_set): Likewise.
|
|
|
|
(open_internal): Don't set alloc_r_at pointer.
|
|
|
|
* io/fbuf.c: New file.
|
|
|
|
|
2008-05-14 23:51:27 +02:00
|
|
|
2008-05-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
* libgfortran.h (gfc_char4_t): New type.
|
|
|
|
(GFC_SIZE_OF_CHAR_KIND): New macro.
|
|
|
|
(compare_string): Adjust prototype.
|
|
|
|
(compare_string_char4): New prototype.
|
|
|
|
* gfortran.map (GFORTRAN_1.1): Add _gfortran_adjustl_char4,
|
|
|
|
_gfortran_adjustr_char4, _gfortran_compare_string_char4,
|
|
|
|
_gfortran_concat_string_char4, _gfortran_string_index_char4,
|
|
|
|
_gfortran_string_len_trim_char4, _gfortran_string_minmax_char4,
|
|
|
|
_gfortran_string_scan_char4, _gfortran_string_trim_char4 and
|
|
|
|
_gfortran_string_verify_char4.
|
|
|
|
* intrinsics/string_intrinsics_inc.c: New file from content of
|
|
|
|
string_intrinsics.c with types replaced by macros.
|
|
|
|
* intrinsics/string_intrinsics.c: Move content to
|
|
|
|
string_intrinsics_inc.c.
|
|
|
|
|
2008-05-11 17:02:41 +02:00
|
|
|
2008-05-11 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/36202
|
|
|
|
* io/list_read (eat_separator): Handle the CR-LF case correctly.
|
|
|
|
|
2008-05-09 12:10:53 +02:00
|
|
|
2008-05-09 Julian Brown <julian@codesourcery.com>
|
|
|
|
|
|
|
|
* Makefile.am (LTLDFLAGS): New.
|
|
|
|
(libgfortran_la_LDFLAGS): Use above.
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
2008-05-06 06:00:38 +02:00
|
|
|
2008-05-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/36131
|
|
|
|
* io/transfer.c (formatted_transfer_scalar): Revert patch for PR34974.
|
|
|
|
(next_record_w): Likewise.
|
|
|
|
|
2008-05-04 21:07:28 +02:00
|
|
|
2008-05-04 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35995
|
|
|
|
* m4/ifunction_logical.m4: If the extent of "array"
|
|
|
|
is less than zero, set it to zero. Use an explicit
|
|
|
|
flag for breaking out of the main loop to avoid, because
|
|
|
|
the data pointer for "array" may be NULL for an empty
|
|
|
|
array.
|
|
|
|
* m4/ifunction.m4: Likewise.
|
|
|
|
* 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/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/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/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/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.
|
|
|
|
|
2008-05-04 12:14:49 +02:00
|
|
|
2008-05-04 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35990
|
|
|
|
* intrinsics/pack_generic.c: Really commit.
|
|
|
|
|
2008-05-04 10:06:02 +02:00
|
|
|
2008-05-04 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35990
|
|
|
|
* intrinsics/pack_generic.c: If an extent of the source
|
|
|
|
array is less then zero, set it to zero. Set the source
|
|
|
|
pointer to NULL if the source size is zero. Set the total
|
|
|
|
number of elements to zero if the vector has an extent
|
|
|
|
less or equal to zero.
|
|
|
|
* m4/pack.m4: Set the source pointer to NULL if the
|
|
|
|
source array is zero-sized. Set the total number of
|
|
|
|
elemements to zero if the vector has an extent less or
|
|
|
|
equal to zero.
|
|
|
|
* generated/pack_i1.c: Regenerated.
|
|
|
|
* generated/pack_i2.c: Regenerated.
|
|
|
|
* generated/pack_i4.c: Regenerated.
|
|
|
|
* generated/pack_i8.c: Regenerated.
|
|
|
|
* generated/pack_i16.c: Regenerated.
|
|
|
|
* generated/pack_r4.c: Regenerated.
|
|
|
|
* generated/pack_r8.c: Regenerated.
|
|
|
|
* generated/pack_r10.c: Regenerated.
|
|
|
|
* generated/pack_r16.c: Regenerated.
|
|
|
|
* generated/pack_c4.c: Regenerated.
|
|
|
|
* generated/pack_c8.c: Regenerated.
|
|
|
|
* generated/pack_c10.c: Regenerated.
|
|
|
|
* generated/pack_c16.c: Regenerated.
|
|
|
|
|
2008-05-02 03:33:16 +02:00
|
|
|
2008-05-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/36094
|
|
|
|
* runtime/error.c (show_locus): Provide modified error message when
|
|
|
|
filename has not yet been associated with a unit number.
|
|
|
|
* io/open.c (encoding_opt[]): Comment out "utf-8" option and add TODO.
|
|
|
|
|
2008-04-30 23:45:02 +02:00
|
|
|
2008-04-30 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
* intrinsics/selected_char_kind.c: New file.
|
|
|
|
* gfortran.map (GFORTRAN_1.1): Add _gfortran_selected_char_kind.
|
|
|
|
* Makefile.am: Add intrinsics/selected_char_kind.c.
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
2008-04-30 18:56:01 +02:00
|
|
|
2008-04-30 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35993
|
|
|
|
* ifunction.m4 (SCALAR_ARRAY_FUNCTION): Use correct
|
|
|
|
implementation for multi-dimensional return arrays when
|
|
|
|
the mask is .false.
|
|
|
|
* 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/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/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/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.
|
|
|
|
|
2008-04-25 22:11:19 +02:00
|
|
|
2008-04-25 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35960
|
|
|
|
* m4/reshape.m4: Fix typo in last commit.
|
|
|
|
* generated/reshape_i4.c: Regererated.
|
|
|
|
* generated/reshape_i8.c: Regenerated.
|
|
|
|
* generated/reshape_i16.c: Regenerated.
|
|
|
|
* generated/reshape_r4.c: Regenerated.
|
|
|
|
* generated/reshape_r8.c: Regenerated.
|
|
|
|
* generated/reshape_r10.c: Regenerated.
|
|
|
|
* generated/reshape_r16.c: Regenerated.
|
|
|
|
* generated/reshape_c4.c: Regenerated.
|
|
|
|
* generated/reshape_c8.c: Regenerated.
|
|
|
|
* generated/reshape_c10.c: Regenerated.
|
|
|
|
* generated/reshape_c16.c: Regenerated.
|
|
|
|
|
2008-04-24 16:54:32 +02:00
|
|
|
2008-04-24 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
* intrinsics/time_1.h (__time_1): Remove unused variable.
|
|
|
|
|
2008-04-23 07:50:54 +02:00
|
|
|
2008-04-23 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35988
|
|
|
|
* m4/matmul.m4: Only issue a runtime error if extents are
|
|
|
|
non-zero.
|
|
|
|
* generated/matmul_i1.c: Regenerated.
|
|
|
|
* generated/matmul_i2.c: Regenerated.
|
|
|
|
* generated/matmul_i4.c: Regenerated.
|
|
|
|
* generated/matmul_i8.c: Regenerated.
|
|
|
|
* generated/matmul_i16.c: Regenerated.
|
|
|
|
* generated/matmul_r4.c: Regenerated.
|
|
|
|
* generated/matmul_r8.c: Regenerated.
|
|
|
|
* generated/matmul_r10.c: Regenerated.
|
|
|
|
* generated/matmul_r16.c: Regenerated.
|
|
|
|
* generated/matmul_c4.c: Regenerated.
|
|
|
|
* generated/matmul_c8.c: Regenerated.
|
|
|
|
* generated/matmul_c10.c: Regenerated.
|
|
|
|
* generated/matmul_c16.c: Regenerated.
|
|
|
|
|
2008-04-21 22:55:19 +02:00
|
|
|
2008-04-21 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
|
|
|
|
|
|
|
|
* acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY)
|
|
|
|
(LIBGFOR_CHECK_ATTRIBUTE_DLLEXPORT)
|
|
|
|
(LIBGFOR_CHECK_ATTRIBUTE_ALIAS, LIBGFOR_CHECK_SYNC_FETCH_AND_ADD)
|
|
|
|
(LIBGFOR_GTHREAD_WEAK, LIBGFOR_CHECK_UNLINK_OPEN_FILE)
|
|
|
|
(LIBGFOR_CHECK_CRLF, LIBGFOR_CHECK_FOR_BROKEN_ISFINITE)
|
|
|
|
(LIBGFOR_CHECK_FOR_BROKEN_ISNAN)
|
|
|
|
(LIBGFOR_CHECK_FOR_BROKEN_FPCLASSIFY, LIBGFOR_CHECK_WORKING_STAT)
|
|
|
|
(LIBGFOR_CHECK_FPSETMASK, LIBGFOR_CHECK_MINGW_SNPRINTF):
|
|
|
|
Fix cache variable names.
|
|
|
|
* configure, Makefile.in: Regenerate.
|
|
|
|
|
2008-04-20 23:06:16 +02:00
|
|
|
2008-04-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/35991
|
|
|
|
* intrinsics/cshift0.c (cshift0): Avoid divide by zero.
|
|
|
|
|
2008-04-20 21:56:07 +02:00
|
|
|
2008-04-20 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35960
|
|
|
|
* intrinsics/reshape_generic.c (reshape_internal): If the size
|
|
|
|
of the resized array is zero, as determined by the SHAPE
|
|
|
|
argument, return early.
|
|
|
|
* m4/reshape.m4: Likewise.
|
|
|
|
* generated/reshape_i4.c: Regererated.
|
|
|
|
* generated/reshape_i8.c: Regenerated.
|
|
|
|
* generated/reshape_i16.c: Regenerated.
|
|
|
|
* generated/reshape_r4.c: Regenerated.
|
|
|
|
* generated/reshape_r8.c: Regenerated.
|
|
|
|
* generated/reshape_r10.c: Regenerated.
|
|
|
|
* generated/reshape_r16.c: Regenerated.
|
|
|
|
* generated/reshape_c4.c: Regenerated.
|
|
|
|
* generated/reshape_c8.c: Regenerated.
|
|
|
|
* generated/reshape_c10.c: Regenerated.
|
|
|
|
* generated/reshape_c16.c: Regenerated.
|
|
|
|
|
2008-04-18 12:28:53 +02:00
|
|
|
2008-04-18 Paolo Bonzini <bonzini@gnu.org>
|
|
|
|
|
|
|
|
PR bootstrap/35457
|
|
|
|
* aclocal.m4: Regenerate.
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
2008-04-14 20:50:57 +02:00
|
|
|
2008-04-14 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/32972
|
|
|
|
* intrinsics/spread_generic.c (spread): Use spread_i2()
|
|
|
|
for GFC_DTYPE_DERIVED_2 (fix typo from previous commit).
|
|
|
|
|
2008-04-13 22:15:58 +02:00
|
|
|
2008-04-13 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/32972
|
|
|
|
PR libfortran/32512
|
|
|
|
configure.ac: Add test for uintptr_t.
|
|
|
|
configure: Regenerated.
|
|
|
|
config.h.in: Regenerated.
|
|
|
|
* libgfortran.h: GFC_DTYPE_DERIVED_1: New macro.
|
|
|
|
GFC_DTYPE_DERIVED_2: New macro.
|
|
|
|
GFC_DTYPE_DERIVED_4: New macro.
|
|
|
|
GFC_DTYPE_DERIVED_8: New macro.
|
|
|
|
GFC_DTYPE_DERIVED_16: New macro.
|
|
|
|
GFC_UNALIGNED_2: New macro.
|
|
|
|
GFC_UNALIGNED_4: New macro.
|
|
|
|
GFC_UNALIGNED_8: New macro.
|
|
|
|
GFC_UNALIGNED_16: New macro.
|
|
|
|
intptr_t: Define if we don't have it.
|
|
|
|
uintptr_t: Likewise.
|
|
|
|
* runtime/backtrace.c (show_backtrace): Use intptr_t.
|
|
|
|
* intrinsics/signal.c (signal_sub): Likewise.
|
|
|
|
(signal_sub_int): Likewise.
|
|
|
|
(alarm_sub_int_i4): Likewise.
|
|
|
|
* intrinsics/spread_generic.c (spread): Use the integer
|
|
|
|
routines for handling derived types of sizes 1, 2, 4, 8 and 16
|
|
|
|
if the alignment of all pointers is correct.
|
|
|
|
(spread_scalar): Likewise.
|
|
|
|
* intrinsics/pack_generic.c (pack): Likewise.
|
|
|
|
Use GFD_DTYPE_TYPE_SIZE to avoid nested switch statements.
|
|
|
|
* intrinsics/unpack_generic.c (unpack1): Likewise.
|
|
|
|
(unpack0): Likewise.
|
|
|
|
* runtime/in_pack_generic.c (internal_pack): Likewise.
|
|
|
|
* runtime/in_unpack_generic.c (internal_unpack): Likewise.
|
|
|
|
|
2008-04-09 11:00:31 +02:00
|
|
|
2008-04-09 Jakub Jelinek <jakub@redhat.com>
|
|
|
|
|
|
|
|
* io/list_read.c (snprintf): Define if HAVE_SNPRINTF isn't defined.
|
|
|
|
(nml_read_obj): Add nml_err_msg_size argument. Pass it down to
|
|
|
|
recursive call. Use snprintf instead of sprintf when %s nl->var_name
|
|
|
|
is used.
|
|
|
|
(nml_get_obj_data): Add nml_err_msg_size argument. Pass it down to
|
|
|
|
nml_read_obj call. Use snprintf instead of sprintf when %s
|
|
|
|
nl->var_name is used. Pass nml_err_msg to nml_parse_qualifier instead
|
|
|
|
of parse_err_msg array. Append " for namelist variable " and
|
|
|
|
nl->var_name to it.
|
|
|
|
(namelist_read): Increase size of nml_err_msg array to 200. Pass
|
|
|
|
sizeof nml_err_msg as extra argument to nml_get_obj_data.
|
|
|
|
|
2008-04-08 00:05:52 +02:00
|
|
|
2008-04-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/25829 28655
|
|
|
|
* io/open.c (edit_modes): Set flags.async. (new_unit) Set flags.async
|
|
|
|
and flags.status. (st_open): Initialize flags.async.
|
|
|
|
* io/list_read.c (read_charactor): Use delim_status instead of
|
|
|
|
flags.delim.
|
|
|
|
* io/read.c (read_x): Use pad_status instead of flags.pad.
|
|
|
|
* io/inquire.c (inquire_via_unit): Add new checks.
|
|
|
|
(inquire_via_filename): Likewise.
|
|
|
|
* io/io.h (st_parameter_inquire): Add new flags.
|
|
|
|
(st_parameter_dt): Likewise.
|
|
|
|
* io/unit.c (get_internal_unit): Set flags.async. (init_units): Set
|
|
|
|
flags.async.
|
|
|
|
* io/transfer.c: Add delim and pad option arrays. (read_sf): Use
|
|
|
|
pad_status instead of flags.pad. (read_block): Likewise.
|
|
|
|
(data_transfer_init): Set flags.async and add checks.
|
|
|
|
* io/write.c (write_character): Use delim_status.
|
|
|
|
(list_formatted_write_scalar): Likewise. (nml_write_obj): Likewise.
|
|
|
|
(namelist_write): Likewise.
|
|
|
|
|
PR fortran/25829 28655
2008-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/25829 28655
* gfortran.map: Add new symbol, _gfortran_st_wait.
* libgfortran.h (st_paramter_common): Add new I/O parameters.
* open.c (st_option decimal_opt[], st_option encoding_opt[],
st_option round_opt[], st_option sign_opt[], st_option async_opt[]): New
parameter option arrays. (edit_modes): Add checks for new parameters.
(new_unit): Likewise. (st_open): Likewise.
* list_read.c (CASE_SEPERATORS): Add ';' as a valid separator.
(eat_separator): Handle deimal comma. (read_logical): Fix whitespace.
(parse_real): Handle decimal comma. (read_real): Handle decimal comma.
* read.c (read_a): Use decimal status flag to allow comma in place of a
decimal point. (read_f): Allow comma as acceptable character in float.
According to decimal flag, substitute a period for a comma.
(read_x): If decimal status flag is comma, disable the read_comma flag,
not allowing comma as a delimiter, an extension otherwise.
* io.h: (unit_decimal, unit_encoding, unit_round, unit_sign,
unit_async): New enumerators. Add all new I/O parameters.
* unix.c (unix_stream, int_stream): Add io_mode asychronous I/O control.
(move_pos_offset, fd_alloc_w_at): Fix some whitespace.
(fd_sfree): Use new enumerator. (fd_read): Likewise.
(fd_write): Likewise. (fd_close): Fix whitespace.
(fd_open): Use new enumertors. (tempfile, regular_file,
open_external): Fix whitespace. (output_stream, error_stream): Set
method. (stream_offset): Fix whitespace.
* transfer.c: (st_option decimal_opt[], sign_opt[], blank_opt[]): New
option arrays. (formatted_transfer_scalar): Set sf_read_comma flag
based on new decimal_status flag. (data_transfer_init): Initialize new
parameters. Add checks for decimal, sign, and blank. (st_wait): New stub.
* format.c: (format_lex): Add format specifiers DP, DC, and D.
(parse_format_list): Parse the new specifiers.
* write.c (write_decimal): Use new sign enumerators to set the sign.
(write_complex): Handle decimal comma and semi-colon separator.
(nml_write_obj): Likewise.
* write_float.def: Revise sign enumerators. (calculate_sign): Use new
sign enumerators. (output_float): Likewise. Use new decimal_status flag
to set the decimal character to a point or a comma.
From-SVN: r133943
2008-04-06 00:18:03 +02:00
|
|
|
2008-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/25829 28655
|
|
|
|
* gfortran.map: Add new symbol, _gfortran_st_wait.
|
|
|
|
* libgfortran.h (st_paramter_common): Add new I/O parameters.
|
|
|
|
* open.c (st_option decimal_opt[], st_option encoding_opt[],
|
|
|
|
st_option round_opt[], st_option sign_opt[], st_option async_opt[]): New
|
|
|
|
parameter option arrays. (edit_modes): Add checks for new parameters.
|
|
|
|
(new_unit): Likewise. (st_open): Likewise.
|
|
|
|
* list_read.c (CASE_SEPERATORS): Add ';' as a valid separator.
|
|
|
|
(eat_separator): Handle deimal comma. (read_logical): Fix whitespace.
|
|
|
|
(parse_real): Handle decimal comma. (read_real): Handle decimal comma.
|
|
|
|
* read.c (read_a): Use decimal status flag to allow comma in place of a
|
|
|
|
decimal point. (read_f): Allow comma as acceptable character in float.
|
|
|
|
According to decimal flag, substitute a period for a comma.
|
|
|
|
(read_x): If decimal status flag is comma, disable the read_comma flag,
|
|
|
|
not allowing comma as a delimiter, an extension otherwise.
|
|
|
|
* io.h: (unit_decimal, unit_encoding, unit_round, unit_sign,
|
|
|
|
unit_async): New enumerators. Add all new I/O parameters.
|
|
|
|
* unix.c (unix_stream, int_stream): Add io_mode asychronous I/O control.
|
|
|
|
(move_pos_offset, fd_alloc_w_at): Fix some whitespace.
|
|
|
|
(fd_sfree): Use new enumerator. (fd_read): Likewise.
|
|
|
|
(fd_write): Likewise. (fd_close): Fix whitespace.
|
|
|
|
(fd_open): Use new enumertors. (tempfile, regular_file,
|
|
|
|
open_external): Fix whitespace. (output_stream, error_stream): Set
|
|
|
|
method. (stream_offset): Fix whitespace.
|
|
|
|
* transfer.c: (st_option decimal_opt[], sign_opt[], blank_opt[]): New
|
|
|
|
option arrays. (formatted_transfer_scalar): Set sf_read_comma flag
|
|
|
|
based on new decimal_status flag. (data_transfer_init): Initialize new
|
|
|
|
parameters. Add checks for decimal, sign, and blank. (st_wait): New stub.
|
|
|
|
* format.c: (format_lex): Add format specifiers DP, DC, and D.
|
|
|
|
(parse_format_list): Parse the new specifiers.
|
|
|
|
* write.c (write_decimal): Use new sign enumerators to set the sign.
|
|
|
|
(write_complex): Handle decimal comma and semi-colon separator.
|
|
|
|
(nml_write_obj): Likewise.
|
|
|
|
* write_float.def: Revise sign enumerators. (calculate_sign): Use new
|
|
|
|
sign enumerators. (output_float): Likewise. Use new decimal_status flag
|
|
|
|
to set the decimal character to a point or a comma.
|
|
|
|
|
re PR libfortran/32972 (performance of pack/unpack)
2008-03-28 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32972
PR libfortran/32512
* Makefile.am: Add new variable, i_spread_c, containing
pack_i1.c, pack_i2.c, pack_i4.c, pack_i8.c, spread_i16.c,
spread_r4.c, spread_r8.c, spread_r10.c, spread_r16.c,
spread_c4.c, spread_c8.c, spread_c10.c, spread_c16.c.
* Makefile.in: Regenerated.
* libgfortran.h: Add prototypes for spread_i1, spread_i2,
spread_i4, spread_i8, spread_i16, spread_r4, spread_r8,
spread_c4, spread_c8, spread_c10, spread_c16,
spread_scalar_i1, spread_scalar_i2, spread_scalar_i4,
spread_scalar_i8, spread_scalar_i16, spread_scalar_r4
spread_scalar_r8, spread_scalar_c4, spread_scalar_c8,
spread_scalar_c10 and spread_scalar_c16.
Add macros to isolate both type and size information
from array descriptors with a single mask operation.
* intrinsics/spread_generic.c: Add calls to specific
spread functions.
* m4/spread.m4: New file.
* generated/spread_i1.c: New file.
* generated/spread_i2.c: New file.
* generated/spread_i4.c: New file.
* generated/spread_i8.c: New file.
* generated/spread_i16.c: New file.
* generated/spread_r4.c: New file.
* generated/spread_r8.c: New file.
* generated/spread_r10.c: New file.
* generated/spread_r16.c: New file.
* generated/spread_c4.c: New file.
* generated/spread_c8.c: New file.
* generated/spread_c10.c: New file.
* generated/spread_c16.c: New file.
2008-03-28 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32972
PR libfortran/32512
* intrinsic_spread_1.f90: New file.
* intrinsic_spread_2.f90: New file.
* intrinsic_spread_3.f90: New file.
From-SVN: r133702
2008-03-29 00:22:49 +01:00
|
|
|
2008-03-28 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/32972
|
|
|
|
PR libfortran/32512
|
|
|
|
* Makefile.am: Add new variable, i_spread_c, containing
|
|
|
|
pack_i1.c, pack_i2.c, pack_i4.c, pack_i8.c, spread_i16.c,
|
|
|
|
spread_r4.c, spread_r8.c, spread_r10.c, spread_r16.c,
|
|
|
|
spread_c4.c, spread_c8.c, spread_c10.c, spread_c16.c.
|
|
|
|
* Makefile.in: Regenerated.
|
|
|
|
* libgfortran.h: Add prototypes for spread_i1, spread_i2,
|
|
|
|
spread_i4, spread_i8, spread_i16, spread_r4, spread_r8,
|
|
|
|
spread_c4, spread_c8, spread_c10, spread_c16,
|
|
|
|
spread_scalar_i1, spread_scalar_i2, spread_scalar_i4,
|
|
|
|
spread_scalar_i8, spread_scalar_i16, spread_scalar_r4
|
|
|
|
spread_scalar_r8, spread_scalar_c4, spread_scalar_c8,
|
|
|
|
spread_scalar_c10 and spread_scalar_c16.
|
|
|
|
Add macros to isolate both type and size information
|
|
|
|
from array descriptors with a single mask operation.
|
|
|
|
* intrinsics/spread_generic.c: Add calls to specific
|
|
|
|
spread functions.
|
|
|
|
* m4/spread.m4: New file.
|
|
|
|
* generated/spread_i1.c: New file.
|
|
|
|
* generated/spread_i2.c: New file.
|
|
|
|
* generated/spread_i4.c: New file.
|
|
|
|
* generated/spread_i8.c: New file.
|
|
|
|
* generated/spread_i16.c: New file.
|
|
|
|
* generated/spread_r4.c: New file.
|
|
|
|
* generated/spread_r8.c: New file.
|
|
|
|
* generated/spread_r10.c: New file.
|
|
|
|
* generated/spread_r16.c: New file.
|
|
|
|
* generated/spread_c4.c: New file.
|
|
|
|
* generated/spread_c8.c: New file.
|
|
|
|
* generated/spread_c10.c: New file.
|
|
|
|
* generated/spread_c16.c: New file.
|
|
|
|
|
2008-03-28 23:13:17 +01:00
|
|
|
2008-03-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35699
|
|
|
|
* io/transfer.c (write_buf): Don't pad the record, just return if the
|
|
|
|
data is NULL. (next_record_w): If there are bytes left in the record
|
|
|
|
for unformatted direct I/O, pad out the record with zero bytes.
|
|
|
|
|
2008-03-28 14:47:06 +01:00
|
|
|
2008-03-28 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
PR fortran/35721
|
|
|
|
* intrinsics/associated.c (associated): Ignore different
|
|
|
|
stride of pointer vs. target if only one element is referred.
|
|
|
|
|
2008-03-27 06:30:18 +01:00
|
|
|
2008-03-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
* io/unix.c (fd_close): Do not close STDIN.
|
|
|
|
|
re PR libfortran/32972 (performance of pack/unpack)
2007-03-23 Thomas Koenig <tkoenig@gcc.gnu.org
PR libfortran/32972
* Makefile.am: Add new variable, i_unpack_c, containing
unpack_i1.c, unpack_i2.c, unpack_i4.c, unpack_i8.c,
unpack_i16.c, unpack_r4.c, unpack_r8.c, unpack_r10.c,
unpack_r16.c, unpack_c4.c, unpack_c8.c, unpack_c10.c
and unpack_c16.c
Add i_unpack_c to gfor_built_src.
Add rule to generate i_unpack_c from m4/unpack.m4.
* Makefile.in: Regenerated.
* libgfortran.h: Add prototypes for unpack0_i1, unpack0_i2,
unpack0_i4, unpack0_i8, unpack0_i16, unpack0_r4, unpack0_r8,
unpack0_r10, unpack0_r16, unpack0_c4, unpack0_c8, unpack0_c10,
unpack0_c16, unpack1_i1, unpack1_i2, unpack1_i4, unpack1_i8,
unpack1_i16, unpack1_r4, unpack1_r8, unpack1_r10, unpack1_r16,
unpack1_c4, unpack1_c8, unpack1_c10 and unpack1_c16.
* intrinsics/pack_generic.c (unpack1): Add calls to specific
unpack1 functions.
(unpack0): Add calls to specific unpack0 functions.
* m4/unpack.m4: New file.
* generated/unpack_i1.c: New file.
* generated/unpack_i2.c: New file.
* generated/unpack_i4.c: New file.
* generated/unpack_i8.c: New file.
* generated/unpack_i16.c: New file.
* generated/unpack_r4.c: New file.
* generated/unpack_r8.c: New file.
* generated/unpack_r10.c: New file.
* generated/unpack_r16.c: New file.
* generated/unpack_c4.c: New file.
* generated/unpack_c8.c: New file.
* generated/unpack_c10.c: New file.
* generated/unpack_c16.c: New file.
2007-03-23 Thomas Koenig <tkoenig@gcc.gnu.org
PR libfortran/32972
* gfortran.dg/intrinsic_unpack_1.f90: New test case.
* gfortran.dg/intrinsic_unpack_2.f90: New test case.
* gfortran.dg/intrinsic_unpack_3.f90: New test case.
From-SVN: r133469
2008-03-23 23:19:19 +01:00
|
|
|
2007-03-23 Thomas Koenig <tkoenig@gcc.gnu.org
|
|
|
|
|
|
|
|
PR libfortran/32972
|
|
|
|
* Makefile.am: Add new variable, i_unpack_c, containing
|
|
|
|
unpack_i1.c, unpack_i2.c, unpack_i4.c, unpack_i8.c,
|
|
|
|
unpack_i16.c, unpack_r4.c, unpack_r8.c, unpack_r10.c,
|
|
|
|
unpack_r16.c, unpack_c4.c, unpack_c8.c, unpack_c10.c
|
|
|
|
and unpack_c16.c
|
|
|
|
Add i_unpack_c to gfor_built_src.
|
|
|
|
Add rule to generate i_unpack_c from m4/unpack.m4.
|
|
|
|
* Makefile.in: Regenerated.
|
|
|
|
* libgfortran.h: Add prototypes for unpack0_i1, unpack0_i2,
|
|
|
|
unpack0_i4, unpack0_i8, unpack0_i16, unpack0_r4, unpack0_r8,
|
|
|
|
unpack0_r10, unpack0_r16, unpack0_c4, unpack0_c8, unpack0_c10,
|
|
|
|
unpack0_c16, unpack1_i1, unpack1_i2, unpack1_i4, unpack1_i8,
|
|
|
|
unpack1_i16, unpack1_r4, unpack1_r8, unpack1_r10, unpack1_r16,
|
|
|
|
unpack1_c4, unpack1_c8, unpack1_c10 and unpack1_c16.
|
|
|
|
* intrinsics/pack_generic.c (unpack1): Add calls to specific
|
|
|
|
unpack1 functions.
|
|
|
|
(unpack0): Add calls to specific unpack0 functions.
|
|
|
|
* m4/unpack.m4: New file.
|
|
|
|
* generated/unpack_i1.c: New file.
|
|
|
|
* generated/unpack_i2.c: New file.
|
|
|
|
* generated/unpack_i4.c: New file.
|
|
|
|
* generated/unpack_i8.c: New file.
|
|
|
|
* generated/unpack_i16.c: New file.
|
|
|
|
* generated/unpack_r4.c: New file.
|
|
|
|
* generated/unpack_r8.c: New file.
|
|
|
|
* generated/unpack_r10.c: New file.
|
|
|
|
* generated/unpack_r16.c: New file.
|
|
|
|
* generated/unpack_c4.c: New file.
|
|
|
|
* generated/unpack_c8.c: New file.
|
|
|
|
* generated/unpack_c10.c: New file.
|
|
|
|
* generated/unpack_c16.c: New file.
|
|
|
|
|
2008-03-22 23:03:13 +01:00
|
|
|
2008-03-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35632
|
|
|
|
* io/transfer.c (data_transfer_init): Fix whitespace.
|
|
|
|
(next_record_w): Truncate the file only if the stream
|
|
|
|
position is short of the file end.
|
|
|
|
|
2008-03-21 22:00:17 +01:00
|
|
|
2008-03-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
* intrinsics/pack_generic.c: Fix typo.
|
|
|
|
|
2008-03-21 18:36:00 +01:00
|
|
|
2008-03-21 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
* gfortran.map: Move erfc_scaled symbols to new symbol node
|
|
|
|
GFORTRAN_1.1, thereby fixing ABI bug introduced in r132846.
|
|
|
|
|
2008-03-21 16:33:13 +01:00
|
|
|
2008-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/32972
|
|
|
|
* runtime/in_pack_generic.c (internal_pack): Call correct
|
|
|
|
function, pack_i16, for GFC_INTEGER_16.
|
|
|
|
|
re PR libfortran/32972 (performance of pack/unpack)
2008-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32972
* Makefile.am: Add new variable, i_pack_c, containing
pack_i1.c, pack_i2.c, pack_i4.c, pack_i8.c, pack_i16.c,
pack_r4.c, pack_r8.c, pack_r10.c, pack_r16.c, pack_c4.c,
pack_c8.c, pack_c10.c, pack_c16.c.
Add m4/pack.m4 to m4_files.
Add i_pack_c to gfor_built_src.
Add rule to generate i_pack_c from m4/pack.m4.
* Makefile.in: Regenerated.
* libgfortran.h: Add prototypes for pack_i1, pack_i2, pack_i4,
pack_i8, pack_i16, pack_r4, pack_r8, pack_c4, pack_c8,
pack_c10, pack_c16.
* intrinsics/pack_generic.c: Add calls to specific
pack functions.
* m4/pack.m4: New file.
* generated/pack_i1.c: New file.
* generated/pack_i2.c: New file.
* generated/pack_i4.c: New file.
* generated/pack_i8.c: New file.
* generated/pack_i16.c: New file.
* generated/pack_r4.c: New file.
* generated/pack_r8.c: New file.
* generated/pack_r10.c: New file.
* generated/pack_r16.c: New file.
* generated/pack_c4.c: New file.
* generated/pack_c8.c: New file.
* generated/pack_c10.c: New file.
* generated/pack_c16.c: New file.
2008-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32972
* internal_pack_1.f90: New test case.
* internal_pack_2.f90: New test case.
* internal_pack_3.f90: New test case.
From-SVN: r133427
2008-03-21 15:37:03 +01:00
|
|
|
2008-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/32972
|
|
|
|
* Makefile.am: Add new variable, i_pack_c, containing
|
|
|
|
pack_i1.c, pack_i2.c, pack_i4.c, pack_i8.c, pack_i16.c,
|
|
|
|
pack_r4.c, pack_r8.c, pack_r10.c, pack_r16.c, pack_c4.c,
|
|
|
|
pack_c8.c, pack_c10.c, pack_c16.c.
|
|
|
|
Add m4/pack.m4 to m4_files.
|
|
|
|
Add i_pack_c to gfor_built_src.
|
|
|
|
Add rule to generate i_pack_c from m4/pack.m4.
|
|
|
|
* Makefile.in: Regenerated.
|
|
|
|
* libgfortran.h: Add prototypes for pack_i1, pack_i2, pack_i4,
|
|
|
|
pack_i8, pack_i16, pack_r4, pack_r8, pack_c4, pack_c8,
|
|
|
|
pack_c10, pack_c16.
|
|
|
|
* intrinsics/pack_generic.c: Add calls to specific
|
|
|
|
pack functions.
|
|
|
|
* m4/pack.m4: New file.
|
|
|
|
* generated/pack_i1.c: New file.
|
|
|
|
* generated/pack_i2.c: New file.
|
|
|
|
* generated/pack_i4.c: New file.
|
|
|
|
* generated/pack_i8.c: New file.
|
|
|
|
* generated/pack_i16.c: New file.
|
|
|
|
* generated/pack_r4.c: New file.
|
|
|
|
* generated/pack_r8.c: New file.
|
|
|
|
* generated/pack_r10.c: New file.
|
|
|
|
* generated/pack_r16.c: New file.
|
|
|
|
* generated/pack_c4.c: New file.
|
|
|
|
* generated/pack_c8.c: New file.
|
|
|
|
* generated/pack_c10.c: New file.
|
|
|
|
* generated/pack_c16.c: New file.
|
|
|
|
|
2008-03-20 03:05:05 +01:00
|
|
|
2008-03-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35627
|
|
|
|
* io/list_read.c (free_line): Clear the line buffer enable flag and
|
|
|
|
reset the index into line_buffer, aka item_count.
|
|
|
|
(next_char): Cleanup whitespace.
|
|
|
|
(read_logical): Use unget_char to assure that the first character of the
|
|
|
|
bad logical is saved in case it is part of an object name. Remove the
|
|
|
|
clearing of index and flag that is now in free_line.
|
|
|
|
(read_real): Likewise.
|
|
|
|
|
2008-03-19 17:56:22 +01:00
|
|
|
2008-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/32972
|
|
|
|
* runtime/in_pack_generic.c (internal_pack): Fix typo in
|
|
|
|
last commit.
|
|
|
|
|
re PR libfortran/32972 (performance of pack/unpack)
2008-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32972
* Makefile.am (in_pack_c): Add in_pack_i1.c, in_pack_i2.c,
in_pack_r4.c, in_pack_r8.c, in_pack_r10.c and in_pack_r16.c.
(in_unpack_c): Add in_unpack_i1.c, in_unpack_i2.c,
in_unpack_r4.c, in_unpack_r8.c, in_unpack_r10.c and
in_unpack_r16.c.
* Makefile.in: Regenerate.
* libgfortran.h: Add prototypes for internal_pack_1,
internal_pack_2, internal_pack_16, internal_pack_r4,
internal_pack_r8, internal_pack_r10, internal_pack_r16,
internal_pack_c10 and internal_pack_c16. Add prototypes for
internal_unpack_1, internal_unpack_2, internal_unpack_16,
internal_unpack_r4, internal_unpack_r8, internal_unpack_r10,
internal_unpack_r16, internal_unpack_c10 and
internal_unpack_c16.
* runtime/in_pack_generic.c (internal_pack): Use sizeof instead
of hardwired sizes.
Add calls to internal_pack_1, internal_pack_2,
internal_pack_16, internal_pack_r4, internal_pack_r8,
internal_pack_r10, internal_pack_r16, internal_pack_c10 and
internal_pack_c16.
* runtime/in_unpack_generic.c (internal_unpack): Use sizeof
instead of hardwired sizes.
Add calls to internal_unpack_1, internal_unpack_2,
internal_unpack_16, internal_unpack_r4, internal_unpack_r8,
internal_unpack_r10, internal_unpack_r16, internal_unpack_c10
and internal_unpack_c16.
* generated/in_pack_r4.c: New file.
* generated/in_pack_i2.c: New file.
* generated/in_unpack_i1.c: New file.
* generated/in_pack_r10.c: New file.
* generated/in_unpack_r4.c: New file.
* generated/in_unpack_i2.c: New file.
* generated/in_unpack_r16.c: New file.
* generated/in_pack_r8.c: New file.
* generated/in_unpack_r10.c: New file.
* generated/in_unpack_r8.c: New file.
* generated/in_pack_r16.c: New file.
* generated/in_pack_i1.c: New file.
2008-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32972
* gfortran.dg/internal_pack_1.f90: New test case.
* gfortran.dg/internal_pack_2.f90: New test case.
* gfortran.dg/internal_pack_3.f90: New test case.
From-SVN: r133344
2008-03-19 16:42:55 +01:00
|
|
|
2008-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/32972
|
|
|
|
* Makefile.am (in_pack_c): Add in_pack_i1.c, in_pack_i2.c,
|
|
|
|
in_pack_r4.c, in_pack_r8.c, in_pack_r10.c and in_pack_r16.c.
|
|
|
|
(in_unpack_c): Add in_unpack_i1.c, in_unpack_i2.c,
|
|
|
|
in_unpack_r4.c, in_unpack_r8.c, in_unpack_r10.c and
|
|
|
|
in_unpack_r16.c.
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
* libgfortran.h: Add prototypes for internal_pack_1,
|
|
|
|
internal_pack_2, internal_pack_16, internal_pack_r4,
|
|
|
|
internal_pack_r8, internal_pack_r10, internal_pack_r16,
|
|
|
|
internal_pack_c10 and internal_pack_c16. Add prototypes for
|
|
|
|
internal_unpack_1, internal_unpack_2, internal_unpack_16,
|
|
|
|
internal_unpack_r4, internal_unpack_r8, internal_unpack_r10,
|
|
|
|
internal_unpack_r16, internal_unpack_c10 and
|
|
|
|
internal_unpack_c16.
|
|
|
|
* runtime/in_pack_generic.c (internal_pack): Use sizeof instead
|
|
|
|
of hardwired sizes.
|
|
|
|
Add calls to internal_pack_1, internal_pack_2,
|
|
|
|
internal_pack_16, internal_pack_r4, internal_pack_r8,
|
|
|
|
internal_pack_r10, internal_pack_r16, internal_pack_c10 and
|
|
|
|
internal_pack_c16.
|
|
|
|
* runtime/in_unpack_generic.c (internal_unpack): Use sizeof
|
|
|
|
instead of hardwired sizes.
|
|
|
|
Add calls to internal_unpack_1, internal_unpack_2,
|
|
|
|
internal_unpack_16, internal_unpack_r4, internal_unpack_r8,
|
|
|
|
internal_unpack_r10, internal_unpack_r16, internal_unpack_c10
|
|
|
|
and internal_unpack_c16.
|
|
|
|
* generated/in_pack_r4.c: New file.
|
|
|
|
* generated/in_pack_i2.c: New file.
|
|
|
|
* generated/in_unpack_i1.c: New file.
|
|
|
|
* generated/in_pack_r10.c: New file.
|
|
|
|
* generated/in_unpack_r4.c: New file.
|
|
|
|
* generated/in_unpack_i2.c: New file.
|
|
|
|
* generated/in_unpack_r16.c: New file.
|
|
|
|
* generated/in_pack_r8.c: New file.
|
|
|
|
* generated/in_unpack_r10.c: New file.
|
|
|
|
* generated/in_unpack_r8.c: New file.
|
|
|
|
* generated/in_pack_r16.c: New file.
|
|
|
|
* generated/in_pack_i1.c: New file.
|
|
|
|
|
2008-03-18 05:27:56 +01:00
|
|
|
2008-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35617
|
|
|
|
* io/list_read.c (eat_separator): If next character after eatline is '!'
|
|
|
|
then eatline again.
|
|
|
|
|
2008-03-16 09:19:08 +01:00
|
|
|
2008-03-16 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
|
|
|
|
|
|
|
|
* aclocal.m4: Regenerate.
|
|
|
|
* configure: Likewise.
|
|
|
|
* Makefile.in: Likewise.
|
|
|
|
|
2008-03-12 11:24:29 +01:00
|
|
|
2008-03-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35524
|
|
|
|
* intrinsics/erfc_scaled_inc.c: Only define the long double
|
|
|
|
variant of erfc_scaled if expl is available.
|
|
|
|
|
2008-03-11 11:49:13 +01:00
|
|
|
2008-03-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/32812
|
|
|
|
* intrinsics/random.c (scramble_seed, unscramble_seed): New
|
|
|
|
functions.
|
|
|
|
(random_seed_i4): Scramble the seed the user gives us before
|
|
|
|
storing it, and unscramble it when we return it back later.
|
|
|
|
|
2008-03-05 02:50:33 +01:00
|
|
|
2008-03-05 Hans-Peter Nilsson <hp@axis.com>
|
|
|
|
|
|
|
|
PR libfortran/35293
|
|
|
|
* io/unix.c (fd_truncate): Fold s->special_file case into
|
|
|
|
success case of ftruncate/chsize call instead of the failure case.
|
|
|
|
Make failure case actually return failure. Properly update stream
|
|
|
|
pointers on failure. Call runtime_error for targets without
|
|
|
|
neither ftruncate nor chsize where such a call would be needed.
|
|
|
|
|
re PR fortran/33197 (Fortran 2008: math functions)
PR fortran/33197
gcc/fortran/
* intrinsic.c (add_functions): Modify intrinsics ACOSH, ASINH,
ATANH, ERF, ERFC and GAMMA. Add intrinsics BESSEL_{J,Y}{0,1,N},
ERFC_SCALED, LOG_GAMMA and HYPOT.
* intrinsic.h (gfc_check_hypot, gfc_simplify_hypot,
gfc_resolve_hypot): New prototypes.
* mathbuiltins.def: Add HYPOT builtin. Make complex versions of
ACOSH, ASINH and ATANH available.
* gfortran.h (GFC_ISYM_ERFC_SCALED, GFC_ISYM_HYPOT): New values.
* lang.opt: Add -std=f2008 option.
* libgfortran.h: Define GFC_STD_F2008.
* lang-specs.h: Add .f08 and .F08 file suffixes.
* iresolve.c (gfc_resolve_hypot): New function.
* parse.c (parse_contained): Allow empty CONTAINS for Fortran 2008.
* check.c (gfc_check_hypot): New function.
* trans-intrinsic.c (gfc_intrinsic_map): Define ERFC_SCALE builtin.
* options.c (set_default_std_flags): Allow Fortran 2008 by default.
(form_from_filename): Add .f08 suffix.
(gfc_handle_option): Handle -std=f2008 option.
* simplify.c (gfc_simplify_hypot): New function.
* gfortran.texi: Document Fortran 2008 status and file extensions.
* intrinsic.texi: Document new BESSEL_{J,Y}{0,1,N} intrinsics,
as well as HYPOT and ERFC_SCALED. Update documentation of ERF,
ERFC, GAMMA, LGAMMA, ASINH, ACOSH and ATANH.
* invoke.texi: Document the new -std=f2008 option.
libgomp/
* testsuite/libgomp.fortran/fortran.exp: Add .f08 and
.F08 file suffixes.
gcc/testsuite/
* gfortran.dg/gomp/gomp.exp: Add .f08 and .F08 file suffixes.
* gfortran.dg/dg.exp: Likewise.
* gfortran.dg/vect/vect.exp: Likewise.
* gfortran.fortran-torture/execute/execute.exp: Likewise.
* gfortran.fortran-torture/compile/compile.exp: Likewise.
* gfortran.dg/gamma_1.f90: Also check log_gamma.
* gfortran.dg/invalid_contains_1.f90: Remove warning about
empty CONTAINS.
* gfortran.dg/gamma_2.f90: Add a few error messages.
* gfortran.dg/invalid_contains_2.f90: Remove warning about
empty CONTAINS.
* gfortran.dg/gamma_3.f90: Adjust error message.
* gfortran.dg/gamma_4.f90: Test for log_gamma instead of lgamma.
* gfortran.dg/bind_c_usage_9.f03: Adjust error messages.
* gfortran.dg/bessel_1.f90: New test.
* gfortran.dg/recursive_check_3.f90: Remove warnings.
* gfortran.dg/besxy.f90: Also check for new F2008 intrinsics.
* gfortran.dg/derived_function_interface_1.f90: Remove warning.
* gfortran.dg/contains_empty_1.f03: New test.
* gfortran.dg/erfc_scaled_1.f90: New test.
* gfortran.dg/hypot_1.f90: New test.
* gfortran.dg/contains_empty_2.f03: New test.
libgfortran/
* intrinsics/erfc_scaled_inc.c: New file.
* intrinsics/erfc_scaled.c: New file.
* gfortran.map (GFORTRAN_1.0): Add _gfortran_erfc_scaled_r*.
* Makefile.am: Add intrinsics/erfc_scaled.c.
* config.h.in: Regenerate.
* configure: Regenerate.
* Makefile.in: Regenerate.
From-SVN: r132846
2008-03-04 00:46:20 +01:00
|
|
|
2008-03-03 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/33197
|
|
|
|
* intrinsics/erfc_scaled_inc.c: New file.
|
|
|
|
* intrinsics/erfc_scaled.c: New file.
|
|
|
|
* gfortran.map (GFORTRAN_1.0): Add _gfortran_erfc_scaled_r*.
|
|
|
|
* Makefile.am: Add intrinsics/erfc_scaled.c.
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
* configure: Regenerate.
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
2008-03-01 23:15:31 +01:00
|
|
|
2008-03-01 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35355
|
|
|
|
* intrinsics/time_1.h (__time_1): Fix calculation of user_usec
|
|
|
|
for mingw.
|
|
|
|
|
2008-03-01 11:46:31 +01:00
|
|
|
2008-03-01 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35063
|
|
|
|
* io/unit.c (destroy_unit_mutex): Call __gthread_mutex_destroy
|
|
|
|
instead of macro kludge.
|
|
|
|
|
2008-02-25 20:27:28 +01:00
|
|
|
2008-02-25 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR fortran/29549
|
re PR fortran/33197 (Fortran 2008: math functions)
PR fortran/33197
gcc/fortran/
* intrinsic.c (add_functions): Modify intrinsics ACOSH, ASINH,
ATANH, ERF, ERFC and GAMMA. Add intrinsics BESSEL_{J,Y}{0,1,N},
ERFC_SCALED, LOG_GAMMA and HYPOT.
* intrinsic.h (gfc_check_hypot, gfc_simplify_hypot,
gfc_resolve_hypot): New prototypes.
* mathbuiltins.def: Add HYPOT builtin. Make complex versions of
ACOSH, ASINH and ATANH available.
* gfortran.h (GFC_ISYM_ERFC_SCALED, GFC_ISYM_HYPOT): New values.
* lang.opt: Add -std=f2008 option.
* libgfortran.h: Define GFC_STD_F2008.
* lang-specs.h: Add .f08 and .F08 file suffixes.
* iresolve.c (gfc_resolve_hypot): New function.
* parse.c (parse_contained): Allow empty CONTAINS for Fortran 2008.
* check.c (gfc_check_hypot): New function.
* trans-intrinsic.c (gfc_intrinsic_map): Define ERFC_SCALE builtin.
* options.c (set_default_std_flags): Allow Fortran 2008 by default.
(form_from_filename): Add .f08 suffix.
(gfc_handle_option): Handle -std=f2008 option.
* simplify.c (gfc_simplify_hypot): New function.
* gfortran.texi: Document Fortran 2008 status and file extensions.
* intrinsic.texi: Document new BESSEL_{J,Y}{0,1,N} intrinsics,
as well as HYPOT and ERFC_SCALED. Update documentation of ERF,
ERFC, GAMMA, LGAMMA, ASINH, ACOSH and ATANH.
* invoke.texi: Document the new -std=f2008 option.
libgomp/
* testsuite/libgomp.fortran/fortran.exp: Add .f08 and
.F08 file suffixes.
gcc/testsuite/
* gfortran.dg/gomp/gomp.exp: Add .f08 and .F08 file suffixes.
* gfortran.dg/dg.exp: Likewise.
* gfortran.dg/vect/vect.exp: Likewise.
* gfortran.fortran-torture/execute/execute.exp: Likewise.
* gfortran.fortran-torture/compile/compile.exp: Likewise.
* gfortran.dg/gamma_1.f90: Also check log_gamma.
* gfortran.dg/invalid_contains_1.f90: Remove warning about
empty CONTAINS.
* gfortran.dg/gamma_2.f90: Add a few error messages.
* gfortran.dg/invalid_contains_2.f90: Remove warning about
empty CONTAINS.
* gfortran.dg/gamma_3.f90: Adjust error message.
* gfortran.dg/gamma_4.f90: Test for log_gamma instead of lgamma.
* gfortran.dg/bind_c_usage_9.f03: Adjust error messages.
* gfortran.dg/bessel_1.f90: New test.
* gfortran.dg/recursive_check_3.f90: Remove warnings.
* gfortran.dg/besxy.f90: Also check for new F2008 intrinsics.
* gfortran.dg/derived_function_interface_1.f90: Remove warning.
* gfortran.dg/contains_empty_1.f03: New test.
* gfortran.dg/erfc_scaled_1.f90: New test.
* gfortran.dg/hypot_1.f90: New test.
* gfortran.dg/contains_empty_2.f03: New test.
libgfortran/
* intrinsics/erfc_scaled_inc.c: New file.
* intrinsics/erfc_scaled.c: New file.
* gfortran.map (GFORTRAN_1.0): Add _gfortran_erfc_scaled_r*.
* Makefile.am: Add intrinsics/erfc_scaled.c.
* config.h.in: Regenerate.
* configure: Regenerate.
* Makefile.in: Regenerate.
From-SVN: r132846
2008-03-04 00:46:20 +01:00
|
|
|
* Makefile.am: Add -fcx-fortran-rules to AM_CFLAGS for all of
|
|
|
|
libgfortran.
|
|
|
|
* Makefile.in: Regenerated.
|
2008-02-25 20:27:28 +01:00
|
|
|
|
2008-02-25 13:02:56 +01:00
|
|
|
2008-02-25 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
* m4/ifunction_logical.m4: Add casts to get rid of warnings.
|
|
|
|
* generated/all_l1.c: Regenerate.
|
|
|
|
* generated/all_l2.c: Regenerate.
|
|
|
|
* generated/all_l4.c: Regenerate.
|
|
|
|
* generated/all_l8.c: Regenerate.
|
|
|
|
* generated/all_l16.c: Regenerate.
|
|
|
|
* generated/any_l1.c: Regenerate.
|
|
|
|
* generated/any_l2.c: Regenerate.
|
|
|
|
* generated/any_l4.c: Regenerate.
|
|
|
|
* generated/any_l8.c: Regenerate.
|
|
|
|
* generated/any_l16.c: Regenerate.
|
|
|
|
* generated/count_1_l.c: Regenerate.
|
|
|
|
* generated/count_2_l.c: Regenerate.
|
|
|
|
* generated/count_4_l.c: Regenerate.
|
|
|
|
* generated/count_8_l.c: Regenerate.
|
|
|
|
* generated/count_16_l.c: Regenerate.
|
|
|
|
|
2008-02-24 12:59:09 +01:00
|
|
|
2008-02-24 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/32841
|
|
|
|
* acinclude.m4: Don't use HAVE_MATH_H.
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
2008-02-21 03:27:07 +01:00
|
|
|
2008-02-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35132
|
|
|
|
* io/transfer.c (next_record_w): Truncate after the last record for
|
|
|
|
STREAM I/O.
|
|
|
|
|
|
|
|
PR libfortran/34954
|
|
|
|
* io/transfer.c (data_transfer_init): Initialize dtp->rec if writing.
|
|
|
|
|
|
|
|
PR libfortran/34974
|
|
|
|
* io/transfer.c (formatted_transfer_scalar): Flush the buffer if skips
|
|
|
|
is less than zero. (next_record_w): Use sseek to position the file to
|
|
|
|
the max position reached.
|
|
|
|
|
2008-02-21 03:20:27 +01:00
|
|
|
2008-02-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35036
|
|
|
|
* write_float.def (output_float): Add error checks for zero digits
|
|
|
|
after decimal point in E and D format specifiers.
|
|
|
|
|
2008-02-10 19:06:34 +01:00
|
|
|
2008-02-10 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35063
|
|
|
|
* io/unit.c (destroy_unit_mutex): New function that uses
|
|
|
|
__gthread_mutex_destroy_function or pthread_mutex_destroy after
|
|
|
|
unlocking and before free_mem for final closure of I/O unit.
|
|
|
|
(delete_root): Use new function.
|
|
|
|
(free_internal_unit): Likewise.
|
|
|
|
(close_unit_1): Likewise.
|
|
|
|
|
2008-02-02 14:50:55 +01:00
|
|
|
2008-02-02 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/35001
|
|
|
|
* m4/shape.m4: Return 0 for extents <= 0.
|
|
|
|
* generated/shape_i4.c: Regenerated.
|
|
|
|
* generated/shape_i8.c: Regenerated.
|
|
|
|
* generated/shape_i16.c: Regenerated.
|
|
|
|
|
2008-01-28 20:02:47 +01:00
|
|
|
2008-01-27 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/34980
|
|
|
|
* m4/shape.m4: If return array is empty, return early.
|
|
|
|
* generated/shape_i4.c: Regenerated.
|
|
|
|
* generated/shape_i8.c: Regenerated.
|
|
|
|
* generated/shape_i16.c: Regenerated.
|
|
|
|
|
2008-01-26 16:22:59 +01:00
|
|
|
2008-01-26 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfofortran/34887
|
|
|
|
* io/transfer.c (next_record_w): Always move to the farthest
|
|
|
|
position when completing the record (also when we are
|
|
|
|
processing a slash edit descriptor).
|
|
|
|
|
2008-01-26 00:36:39 +01:00
|
|
|
2008-01-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
2008-01-26 00:34:53 +01:00
|
|
|
|
|
|
|
PR libfortran/34876
|
|
|
|
* io/transfer.c (write_buf): Handle case of zero sized array.
|
|
|
|
(transfer_array): Set data pointer to NULL and size to zero. Then
|
|
|
|
make a data transfer and return.
|
|
|
|
|
2008-01-24 17:29:16 +01:00
|
|
|
2008-01-24 David Edelsohn <edelsohn@gnu.org>
|
|
|
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
2008-01-20 07:33:49 +01:00
|
|
|
2008-01-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
2008-01-20 07:55:46 +01:00
|
|
|
PR libfortran/34795
|
2008-01-20 07:33:49 +01:00
|
|
|
* io/inquire.c (inquire_via_unit): If a unit is opened, return values
|
|
|
|
according to the open action for DIRECT, FORMATTED, and UNFORMATTED.
|
|
|
|
(inquire_via_filename): Return "UNKNOWN" for SEQUENTIAL, DIRECT,
|
|
|
|
FORAMATTED, and UNFORMATTED inquiries.
|
|
|
|
* io/unix.c (inquire_sequential): Return "UNKNOWN" when appropriate
|
|
|
|
for files that are not opened. (inquire_direct): Same.
|
|
|
|
(inquire_formatted): Same.
|
|
|
|
|
2008-01-18 23:19:15 +01:00
|
|
|
2008-01-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
2008-01-20 07:55:46 +01:00
|
|
|
PR libfortran/34782
|
2008-01-18 23:19:15 +01:00
|
|
|
* io/transfer.c (formatted_transfer_scalar): Set max_pos to the greater
|
|
|
|
of the current max_pos or the newly calculated position.
|
|
|
|
|
2008-01-18 22:43:08 +01:00
|
|
|
2008-01-18 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
* io/write.c (write_real): Increase default precision
|
|
|
|
for REAL(16) by one.
|
|
|
|
|
2008-01-16 10:13:39 +01:00
|
|
|
2008-01-16 Steven Bosscher <steven@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/34669
|
|
|
|
* mk-kinds-h.sh: Compile with -S to avoid calling the assembler,
|
|
|
|
to avoid piping the -fdump-parse-tree output to the assembler
|
|
|
|
when configuring with -pipe.
|
|
|
|
* mk-sik-inc.sh: Likewise.
|
|
|
|
* mk-srk-inc.sh: Likewise.
|
|
|
|
|
re PR libfortran/34671 (any(kind=1) and all(kind=1))
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* gfortran.am: Added _gfortran_all_l1, _gfortran_all_l2,
_gfortran_any_l1, _gfortran_any_l2, -28,15 _gfortran_count_1_l,
_gfortran_count_16_l, _gfortran_count_2_l, _gfortran_count_4_l and
_gfortran_count_8_l Removed _gfortran_count_16_l16,
_gfortran_count_16_l4, _gfortran_count_16_l8,
_gfortran_count_4_l16, _gfortran_count_4_l4, _gfortran_count_4_l8,
_gfortran_count_8_l16, _gfortran_count_8_l4 and
_gfortran_count_8_l8.
* Makefile.am: Added generated/any_l1.c and generated/any_l2.c to
i_any_c. Added generated/all_l1. and generated/all_l2.c to
i_all_c. Removed generated/count_4_l4.c, generated/count_8_l4.c,
generated/count_16_l4.c, generated/count_4_l8.c,
generated/count_8_l8.c, generated/count_16_l8.c,
generated/count_4_l16.c, generated/count_8_l16.c, and
generated/count_16_l16.c from i_count_c. Added count_1_l.c,
count_2_l.c, count_4_l.c, count_8_l.c and count_16_l.c to
i_count_c. I_M4_DEPS2 depends on ifunction_logical.m4, for
any of the files generated from all.m4, any.m4 and count.m4.
* Makefile.in: Regenerated.
* m4/ifunction_logical.m4: New file. Use
GFC_LOGICAL_1 pointer for access to source arrays.
* m4/any.m4: Include ifunction_logical.m4 instead of
ifunction.m4. Don't check atype_name.
* m4/all.m4: Likewise.
* m4/count.m4: Likewise.
* generated/any_l1.c: New file.
* generated/any_l2.c: New file.
* generated/all_l1.c: New file.
* generated/count_1_l.c: New file.
* generated/count_2_l.c: New file.
* generated/count_4_l.c: New file.
* generated/count_8_l.c: New file.
* generated/count_16_l.c: New file.
* generated/any_l4.c: Regenerated.
* generated/any_l8.c: Regenerated.
* generated/any_l16.c: Regenerated.
* generated/all_l4.c: Regenerated.
* generated/all_l8.c: Regenerated.
* generated/all_l16.c: Regenerated.
* generated/count_4_l4.c: Removed.
* generated/count_4_l8.c: Removed.
* generated/count_4_l16.c: Removed.
* generated/count_8_l4.c: Removed.
* generated/count_8_l8.c: Removed.
* generated/count_8_l16.c: Removed.
* generated/count_16_l4.c: Removed.
* generated/count_16_l8.c: Removed.
* generated/count_16_l16.c: Removed.
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* iresolve.c (gfc_resolve_all): Call resolve_mask_arg.
(gfc_resolve_any): Likewise.
(gfc_resolve_count): Likewise. Don't append kind of
argument to function name.
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* gfortran.dg/anyallcount_1.f90: New test.
From-SVN: r131553
2008-01-15 22:22:07 +01:00
|
|
|
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/34671
|
|
|
|
* gfortran.am: Added _gfortran_all_l1, _gfortran_all_l2,
|
|
|
|
_gfortran_any_l1, _gfortran_any_l2, -28,15 _gfortran_count_1_l,
|
|
|
|
_gfortran_count_16_l, _gfortran_count_2_l, _gfortran_count_4_l and
|
|
|
|
_gfortran_count_8_l Removed _gfortran_count_16_l16,
|
|
|
|
_gfortran_count_16_l4, _gfortran_count_16_l8,
|
|
|
|
_gfortran_count_4_l16, _gfortran_count_4_l4, _gfortran_count_4_l8,
|
|
|
|
_gfortran_count_8_l16, _gfortran_count_8_l4 and
|
|
|
|
_gfortran_count_8_l8.
|
|
|
|
* Makefile.am: Added generated/any_l1.c and generated/any_l2.c to
|
|
|
|
i_any_c. Added generated/all_l1. and generated/all_l2.c to
|
|
|
|
i_all_c. Removed generated/count_4_l4.c, generated/count_8_l4.c,
|
|
|
|
generated/count_16_l4.c, generated/count_4_l8.c,
|
|
|
|
generated/count_8_l8.c, generated/count_16_l8.c,
|
|
|
|
generated/count_4_l16.c, generated/count_8_l16.c, and
|
|
|
|
generated/count_16_l16.c from i_count_c. Added count_1_l.c,
|
|
|
|
count_2_l.c, count_4_l.c, count_8_l.c and count_16_l.c to
|
|
|
|
i_count_c. I_M4_DEPS2 depends on ifunction_logical.m4, for
|
|
|
|
any of the files generated from all.m4, any.m4 and count.m4.
|
|
|
|
* Makefile.in: Regenerated.
|
|
|
|
* m4/ifunction_logical.m4: New file. Use
|
|
|
|
GFC_LOGICAL_1 pointer for access to source arrays.
|
|
|
|
* m4/any.m4: Include ifunction_logical.m4 instead of
|
|
|
|
ifunction.m4. Don't check atype_name.
|
|
|
|
* m4/all.m4: Likewise.
|
|
|
|
* m4/count.m4: Likewise.
|
|
|
|
* generated/any_l1.c: New file.
|
|
|
|
* generated/any_l2.c: New file.
|
|
|
|
* generated/all_l1.c: New file.
|
|
|
|
* generated/count_1_l.c: New file.
|
|
|
|
* generated/count_2_l.c: New file.
|
|
|
|
* generated/count_4_l.c: New file.
|
|
|
|
* generated/count_8_l.c: New file.
|
|
|
|
* generated/count_16_l.c: New file.
|
|
|
|
* generated/any_l4.c: Regenerated.
|
|
|
|
* generated/any_l8.c: Regenerated.
|
|
|
|
* generated/any_l16.c: Regenerated.
|
|
|
|
* generated/all_l4.c: Regenerated.
|
|
|
|
* generated/all_l8.c: Regenerated.
|
|
|
|
* generated/all_l16.c: Regenerated.
|
|
|
|
* generated/count_4_l4.c: Removed.
|
|
|
|
* generated/count_4_l8.c: Removed.
|
|
|
|
* generated/count_4_l16.c: Removed.
|
|
|
|
* generated/count_8_l4.c: Removed.
|
|
|
|
* generated/count_8_l8.c: Removed.
|
|
|
|
* generated/count_8_l16.c: Removed.
|
|
|
|
* generated/count_16_l4.c: Removed.
|
|
|
|
* generated/count_16_l8.c: Removed.
|
|
|
|
* generated/count_16_l16.c: Removed.
|
|
|
|
|
2008-01-13 23:13:52 +01:00
|
|
|
2008-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/34746
|
|
|
|
* m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Use %ld
|
|
|
|
in printf format for all bounds checking; cast all
|
|
|
|
integer-like arguments to runtime_error() to long int.
|
|
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
(`s'name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
* m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
(`s'name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
* generated/all_l16.c: Regenerated.
|
|
|
|
* generated/all_l4.c: Regenerated.
|
|
|
|
* generated/all_l8.c: Regenerated.
|
|
|
|
* generated/any_l16.c: Regenerated.
|
|
|
|
* generated/any_l4.c: Regenerated.
|
|
|
|
* generated/any_l8.c: Regenerated.
|
|
|
|
* generated/count_16_l16.c: Regenerated.
|
|
|
|
* generated/count_16_l4.c: Regenerated.
|
|
|
|
* generated/count_16_l8.c: Regenerated.
|
|
|
|
* generated/count_4_l16.c: Regenerated.
|
|
|
|
* generated/count_4_l4.c: Regenerated.
|
|
|
|
* generated/count_4_l8.c: Regenerated.
|
|
|
|
* generated/count_8_l16.c: Regenerated.
|
|
|
|
* generated/count_8_l4.c: Regenerated.
|
|
|
|
* generated/count_8_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/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/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.
|
|
|
|
|
2008-01-11 21:21:05 +01:00
|
|
|
2008-01-11 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/34670
|
|
|
|
* m4/iparm.m4 (upcase): New macro (copied from the m4 manual).
|
|
|
|
(u_name): New macro for the upper case name of the intrinsic.
|
|
|
|
* m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Add
|
|
|
|
bounds checking and rank check, depending on
|
|
|
|
compile_options.bounds_check.
|
|
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
(`s'name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
* m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Add
|
|
|
|
bounds checking and rank check, depending on
|
|
|
|
compile_options.bounds_check.
|
|
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
(`s'name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
* generated/all_l16.c: Regenerated.
|
|
|
|
* generated/all_l4.c: Regenerated.
|
|
|
|
* generated/all_l8.c: Regenerated.
|
|
|
|
* generated/any_l16.c: Regenerated.
|
|
|
|
* generated/any_l4.c: Regenerated.
|
|
|
|
* generated/any_l8.c: Regenerated.
|
|
|
|
* generated/count_16_l16.c: Regenerated.
|
|
|
|
* generated/count_16_l4.c: Regenerated.
|
|
|
|
* generated/count_16_l8.c: Regenerated.
|
|
|
|
* generated/count_4_l16.c: Regenerated.
|
|
|
|
* generated/count_4_l4.c: Regenerated.
|
|
|
|
* generated/count_4_l8.c: Regenerated.
|
|
|
|
* generated/count_8_l16.c: Regenerated.
|
|
|
|
* generated/count_8_l4.c: Regenerated.
|
|
|
|
* generated/count_8_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/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/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.
|
|
|
|
|
2008-01-05 17:00:40 +01:00
|
|
|
2008-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/34676
|
|
|
|
* io/list_read.c (next_char): Only save the EOF condition for later if
|
|
|
|
advance="no".
|
|
|
|
|
2008-01-03 20:49:38 +01:00
|
|
|
2008-01-03 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
PR libfortran/34565
|
|
|
|
* io/io.h: Adjust protoypes for open_internal(),
|
|
|
|
next_array_record() and init_loop_spec().
|
|
|
|
* io/list_read.c (next_char): Use argument "finished"
|
|
|
|
of next_array_record to check for end on internal file.
|
|
|
|
* io/unit.c: Calculate the offset for an array
|
|
|
|
internal file and supply this informatin to open_internal().
|
|
|
|
* io/unix.c (open_internal): Set the offset for the internal
|
|
|
|
file on open.
|
|
|
|
* io/transfer.c (init_loop_spec): Calculate the starting
|
|
|
|
record in case of negative strides. Return size of 0 for
|
|
|
|
an empty array.
|
|
|
|
(next_array_record): Use an extra flag to signal that the
|
|
|
|
array is finished.
|
|
|
|
(next_record_r): Use the new flag to next_array_record().
|
|
|
|
(next_record_w): Likewise.
|