From: Duncan Sands Date: Tue, 5 Apr 2011 07:40:27 +0000 (+0200) Subject: The parameters for functions from the frexp family were the wrong way round. X-Git-Tag: releases/gcc-4.7.0~7748 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=db7f455bc356573805e4f3858a3a2697a03cf09a;p=thirdparty%2Fgcc.git The parameters for functions from the frexp family were the wrong way round. The parameters for functions from the frexp family were the wrong way round. Swap them. From-SVN: r171971 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 40b84dc04ab5..5d3a799075e5 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2011-04-05 Duncan Sands + + * f95-lang.c (build_builtin_fntypes): Swap frexp parameter types. + 2010-04-04 Thomas Koenig * frontend-passes: (optimize_lexical_comparison): New function. diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 3340dc4ee247..728b6311a97e 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -695,10 +695,9 @@ build_builtin_fntypes (tree *fntype, tree type) type, integer_type_node, NULL_TREE); /* type (*) (void) */ fntype[3] = build_function_type_list (type, NULL_TREE); - /* type (*) (&int, type) */ - fntype[4] = build_function_type_list (type, + /* type (*) (type, &int) */ + fntype[4] = build_function_type_list (type, type, build_pointer_type (integer_type_node), - type, NULL_TREE); /* type (*) (int, type) */ fntype[5] = build_function_type_list (type,