This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[tree-ssa] More arrays start at zero fixes for fortran front-end
- From: law at redhat dot com
- To: gcc-patches at gcc dot gnu dot org
- Date: Thu, 04 Sep 2003 15:40:16 -0600
- Subject: [tree-ssa] More arrays start at zero fixes for fortran front-end
- Reply-to: law at redhat dot com
This fixes about 20 failures in the gfortran testsuite.
* f95-lang.c (DEFINE_MATH_BUILTIN): C arrays start at
index zero!
Index: f95-lang.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/Attic/f95-lang.c,v
retrieving revision 1.1.2.4
diff -c -3 -p -r1.1.2.4 f95-lang.c
*** f95-lang.c 3 Sep 2003 23:07:45 -0000 1.1.2.4
--- f95-lang.c 4 Sep 2003 21:38:46 -0000
*************** gfc_define_builtin (const char * name,
*** 787,795 ****
#define DEFINE_MATH_BUILTIN(code, name, nargs) \
! gfc_define_builtin ("__builtin_" name, mfunc_double[nargs], \
BUILT_IN_ ## code, name); \
! gfc_define_builtin ("__builtin_" name "f", mfunc_float[nargs], \
BUILT_IN_ ## code ## F, name "f");
/* Initialisation of builtin function nodes. */
--- 787,795 ----
#define DEFINE_MATH_BUILTIN(code, name, nargs) \
! gfc_define_builtin ("__builtin_" name, mfunc_double[nargs-1], \
BUILT_IN_ ## code, name); \
! gfc_define_builtin ("__builtin_" name "f", mfunc_float[nargs-1], \
BUILT_IN_ ## code ## F, name "f");
/* Initialisation of builtin function nodes. */