re PR fortran/26816 ([4.1 only] FLOAT Intrinsic does not work with Integer Halfword...

	PR fortran/26816
	* intrinsic.c (add_functions): Allow FLOAT to accept all integer kinds.
	* intrinsic.texi: Document FLOAT.

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

From-SVN: r112392

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5937e09a45f5fabc7467f5866e1612a7700c5c76..e5245db20f7d1014805679ee096dfe1f40a3ee76 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2006-03-25  Steven G. Kargl  <kargls@comcast.net>
+
+       PR fortran/26816
+       * intrinsic.c (add_functions): Allow FLOAT to accept all integer kinds.
+       * intrinsic.texi: Document FLOAT.
+
 2006-03-25  Thomas Koenig  <Thomas.Koenig@online.de>
 
        PR fortran/26769

diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c
index 56f92a2dca33861d7d2b6b831c6464711a6e3af1..707fe5b456a03abf75ab184044514368c5595f9d 100644 (file)
--- a/gcc/fortran/intrinsic.c
+++ b/gcc/fortran/intrinsic.c
@@ -1899,7 +1899,7 @@ add_functions (void)
             a, BT_UNKNOWN, dr, REQUIRED);
 
   add_sym_1 ("float", 1, 0, BT_REAL, dr, GFC_STD_F77,
-            NULL, gfc_simplify_float, NULL,
+            gfc_check_i, gfc_simplify_float, NULL,
             a, BT_INTEGER, di, REQUIRED);
 
   add_sym_1 ("sngl", 1, 0, BT_REAL, dr, GFC_STD_F77,

diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi
index 81a56f5fb40a8b7515384fcb4c2c51825f78468d..5942329be8c2cc4344d9dc23dd6ed6210bd2433f 100644 (file)
--- a/gcc/fortran/intrinsic.texi
+++ b/gcc/fortran/intrinsic.texi
@@ -88,6 +88,7 @@ and editing.  All contributions and corrections are strongly encouraged.
 * @code{EXP}:           EXP,       Exponential function
 * @code{EXPONENT}:      EXPONENT,  Exponent function
 * @code{FDATE}:         FDATE,     Subroutine (or function) to get the current time as a string
+* @code{FLOAT}:         FLOAT,     Convert integer to default real
 * @code{FLOOR}:         FLOOR,     Integer floor function
 * @code{FNUM}:          FNUM,      File number function
 * @code{FREE}:          FREE,      Memory de-allocation subroutine
@@ -2842,6 +2843,41 @@ end program test_fdate
 @end smallexample
 @end table
 
+@node FLOAT
+@section @code{FLOAT} --- Convert integer to default real
+@findex @code{FLOAT} intrinsic
+@cindex floor
+
+@table @asis
+@item @emph{Description}:
+@code{FLOAT(I)} converts the integer @var{I} to a default real value.
+
+@item @emph{Option}:
+gnu
+
+@item @emph{Class}:
+function
+
+@item @emph{Syntax}:
+@code{X = FLOAT(I)}
+
+@item @emph{Arguments}:
+@multitable @columnfractions .15 .80
+@item @var{I} @tab The type shall be @code{INTEGER(*)}.
+@end multitable
+
+@item @emph{Return value}:
+The return value is of type default @code{REAL}
+
+@item @emph{Example}:
+@smallexample
+program test_float
+    integer :: i = 1
+    if (float(i) /= 1.) call abort
+end program test_float
+@end smallexample
+@end table
+
 
 @node FLOOR
 @section @code{FLOOR} --- Integer floor function

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 30d523ea9166b2c853fc33a0662c39fd90e717ba..2a9840b89792579b82a565d6e3ed768adec5b5cf 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-25  Steven G. Kargl  <kargls@comcast.net>
+
+       PR fortran/26816 
+       * gfortran.dg/float_1.f90: New test.
+
 2006-03-25  Steven G. Kargl  <kargsl@comcast.net>
 
        * gfortran.dg/transfer_array_intrinsic_1.f90: Restrict to i?86 and

diff --git a/gcc/testsuite/gfortran.dg/float_1.f90 b/gcc/testsuite/gfortran.dg/float_1.f90
new file mode 100644 (file)
index 0000000..224d31d
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/float_1.f90
@@ -0,0 +1,12 @@
+! { dg-do run }
+! PR fortran/26816
+program test_float
+   integer(1) :: i1 = 1
+   integer(2) :: i2 = 1
+   integer(4) :: i4 = 1
+   integer(8) :: i8 = 1
+   if (float(i1) /= 1.) call abort
+   if (float(i2) /= 1.) call abort
+   if (float(i4) /= 1.) call abort
+   if (float(i8) /= 1.) call abort
+end program test_float