[gfortran,ping] support for large kinds in front-end and library

[Steve Kargl]

Comment 2.

> +#define DEFINE_MATH_BUILTIN(ID, NAME, ARGTYPE) \
> +  { GFC_ISYM_ ## ID, BUILT_IN_ ## ID ## F, BUILT_IN_ ## ID, \
> +    BUILT_IN_ ## ID ## L, BUILT_IN_ ## ID ## L, 0, 0, 0, 0, true, \
> +    false, true, NAME, NULL_TREE, NULL_TREE, NULL_TREE, NULL_TREE, \
> +    NULL_TREE, NULL_TREE, NULL_TREE, NULL_TREE},
> +//  BUILT_IN_FUNCTION (id, name, false)

Use /* ... */ for comments (here and elsewhere).

> @@ -469,10 +497,22 @@ gfc_build_intrinsic_lib_fndecls (void)
>    /* Add GCC builtin functions.  */
>    for (m = gfc_intrinsic_map; m->id != GFC_ISYM_NONE; m++)
>      {
> -      if (m->code4 != END_BUILTINS)
> -        m->real4_decl = built_in_decls[m->code4];
> -      if (m->code8 != END_BUILTINS)
> -	m->real8_decl = built_in_decls[m->code8];
> +      if (m->code_r4 != END_BUILTINS)
> +        m->real4_decl = built_in_decls[m->code_r4];
> +      if (m->code_r8 != END_BUILTINS)
> +	m->real8_decl = built_in_decls[m->code_r8];
> +      if (m->code_r10 != END_BUILTINS)
> +	m->real10_decl = built_in_decls[m->code_r10];
> +      if (m->code_r16 != END_BUILTINS)
> +	m->real16_decl = built_in_decls[m->code_r16];
> +      if (m->code_c4 != END_BUILTINS)
> +        m->complex4_decl = built_in_decls[m->code_c4];
> +      if (m->code_c8 != END_BUILTINS)
> +	m->complex8_decl = built_in_decls[m->code_c8];
> +      if (m->code_c10 != END_BUILTINS)
> +	m->complex10_decl = built_in_decls[m->code_c10];
> +      if (m->code_c16 != END_BUILTINS)
> +	m->complex16_decl = built_in_decls[m->code_c16];
>      }

The above has some issues withi whitespace formatting.

-- 
steve