From 6110b776bc55be34d41be51821d6723a94e120c0 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Sun, 26 Mar 2006 05:20:09 +0000 Subject: re PR fortran/26816 ([4.1 only] FLOAT Intrinsic does not work with Integer Halfword input) 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 --- gcc/fortran/intrinsic.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/intrinsic.c') diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index 56f92a2..707fe5b 100644 --- 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, -- cgit v1.1