[gfortran] Partial fix for PR 19575

[Steve Kargl <sgk at troutmask dot apl dot washington dot edu>]

In intrinsic.c, we were using make_alias() to add symbols
to the list of intrinsicis, but we were not probably honoring
the standard.  Consider,

  add_sym_1 ("cabs", 1, 1, BT_REAL, dr, GFC_STD_F77,
	     NULL, gfc_simplify_abs, gfc_resolve_abs,
	     a, BT_COMPLEX, dz, REQUIRED);

  add_sym_1 ("zabs", 1, 1, BT_REAL, dd, GFC_STD_GNU, 
	     NULL, gfc_simplify_abs, gfc_resolve_abs, 
	     a, BT_COMPLEX, dd, REQUIRED);

  make_alias ("cdabs");

if we set -std=f77, then cdabs would be aliased to cabs,
which is not the intended behavior.  The attached fixes
this problem.

2005-01-22  Steven G. Kargl  <kargls@comcast.net>

       * intrinsic.c (make_alias):  Add standard argument. 
       (add_functions): Update make_alias calls.

-- 
Steve

Attachment: intrinsic.c.diff
Description: Text document