[tree-ssa] More arrays start at zero fixes for fortran front-end

law@redhat.com law@redhat.com
Thu Sep 4 21:40:00 GMT 2003


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.  */





More information about the Gcc-patches mailing list