------- Additional Comments From sgk at troutmask dot apl dot washington dot
edu 2005-01-22 19:25 -------
Part of the problem is due to the following from intrinsic.c
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");
make_alias() does not set the GFC_STD_GNU flag. If you change
cdabs to zabs, you get
kargl[216] gfc -o y -std=f95 y.f90
In file y.f90:3
intrinsic zabs
1
Error: Intrinsic at (1) does not exist
which is the expected behavior. We still get the
NaN if -std=f95 is removed from the command line.
NAG's compiler states
kargl[224] f95 -o y -dcfuns y.f90
Error: y.f90, line 5: Intrinsic CDABS cannot be an actual argument
[f95 error termination]
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=19575
