[gfortran] Adding quite a few intrinsics

[Steve Kargl]

On Wed, Nov 09, 2005 at 03:38:51PM +0100, FX Coudert wrote:
> 
> Built and tested this on ppc-darwin (I compared the behaviour with g77 
> behaviour to be sure). I apologize for not being able to make a proper 
> regtesting (i only do have a laptop, not much horsepower and few 
> occasions to charge the battery).
> 

I haven't regression tested this, yet.  A few small fixes
and from my reading of the patch it appears OK.

+  add_sym_2 ("xor", 1, 0, BT_UNKNOWN, 0, GFC_STD_F95,

GFC_STD_GNU instead of GFC_STD_F95.

+	     gfc_check_and, gfc_simplify_xor, gfc_resolve_xor,
+	     i, BT_UNKNOWN, 0, REQUIRED, j, BT_UNKNOWN, 0, REQUIRED);
+
+  make_generic ("xor", GFC_ISYM_XOR, GFC_STD_GNU);


+  add_sym_2 ("or", 1, 0, BT_UNKNOWN, 0, GFC_STD_F95,

GFC_STD_GNU instead of GFC_STD_F95.

+	     gfc_check_and, gfc_simplify_or, gfc_resolve_or,
+	     i, BT_UNKNOWN, 0, REQUIRED, j, BT_UNKNOWN, 0, REQUIRED);
+
+  make_generic ("or", GFC_ISYM_OR, GFC_STD_GNU);


+gfc_simplify_and (gfc_expr * x, gfc_expr * y)
+{
+
+  return range_check (result, "IAND");

AND instead of IAND

At some point, we'll need to move g77.texi documentation into
gfortran.texi.  I won't require this prior to committing the
patch, but if you have nothing better to do ... :-)

-- 
Steve