[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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index b45197dd191bebe146b68020d6c6d970ae03ef28..7e3d5131d814d29267b84472c5445391c7e3e9a1 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c
index c80909f8f6cee986d13ef23306f8e3eba53ff9f2..14014a007a6237e242ecd5b63c18267672660890 100644 (file)
--- a/gcc/fortran/intrinsic.c
+++ b/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,

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 459f7b50cc7d0a532543ca5fbedbdaa4b237586e..e99a8cc825f3c563dca4c9bae968abc2a3930b01 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/testsuite/gfortran.dg/dfloat_1.f90 b/gcc/testsuite/gfortran.dg/dfloat_1.f90
new file mode 100644 (file)
index 0000000..098f22e
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/dfloat_1.f90
@@ -0,0 +1,15 @@
+! { 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