[multiple changes]

2004-08-11  Paul Brook  <paul@codeourcery.com>

	PR fortran/16917
	* intrinsic.c (add_functions): Add dfloat as an alias for dble.

2004-08-11  Steven G. Kargl  <kargls@comcast.net>

	* gfortran.dg/dfloat_1.f90: New test.

From-SVN: r85805

gcc/fortran/ChangeLog

+2004-08-11  Paul Brook  <paul@codeourcery.com>
+
+	PR fortran/16917
+	* intrinsic.c (add_functions): Add dfloat as an alias for dble.
+
 2004-08-10  Richard Henderson  <rth@redhat.com>
 
 	* f95-lang.c (gfc_init_builtin_functions): Remove

gcc/fortran/intrinsic.c

@@ -1048,6 +1048,8 @@ add_functions (void)
 	     gfc_check_dble, gfc_simplify_dble, gfc_resolve_dble,
 	     a, BT_REAL, dr, 0);
 
+  make_alias ("dfloat");
+
   make_generic ("dble", GFC_ISYM_DBLE);
 
   add_sym_1 ("digits", 0, 1, BT_INTEGER, di,

gcc/testsuite/ChangeLog

+2004-08-11  Steven G. Kargl  <kargls@comcast.net>
+
+	PR fortran/16917
+	* gfortran.dg/dfloat_1.f90: New test.
+
 2004-08-09  Mark Mitchell  <mark@codesourcery.com>
 
 	* gcc.dg/testsuite/gcc.dg/arm-eabi1.c: New test.

gcc/testsuite/gfortran.dg/dfloat_1.f90

+! { dg-do run }
+! Progam to test the dfloat intrinsic.
+program dfloat_1
+   implicit none
+   integer(2) i2
+   integer(4) i4
+   integer(8) i8
+   i2 = -4_2
+   i4 = 4_4
+   i8 = 10_8
+   if (dfloat(i2) /= -4.d0) call abort()
+   if (dfloat(i4) /= 4.d0) call abort()
+   if (dfloat(i8) /= 10.d0) call abort()
+   if (dfloat(i4*i2) /= -16.d0) call abort()
+end program dfloat_1