This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [gfortran] PATCH Fix the broken INT() intrinsic


On Tue, Feb 01, 2005 at 10:43:53AM -0800, Steve Kargl wrote:
> The attached patch fixes the INT() intrinsic.  The
> test case will not run without this patch.
> 
> 2005-02-01  Steven G. Kargl  <kargls@comcast.com>
> 
>       * check.c (gfc_check_int): improve checking of optional kind
>       * simplify.c (gfc_simplify_int): Change BT_REAL to BT_INTEGER
> 
> -  kind = get_kind (BT_REAL, k, "INT", gfc_default_real_kind);
> +  kind = get_kind (BT_INTEGER, k, "INT", gfc_default_real_kind);

Crude.  gfc_default_real_kind should have been gfc_default_integer_kind.

-- 
Steve

Attachment: int.diff
Description: Text document


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]