diff options
| author | Duncan Sands <baldrick@free.fr> | 2011-04-05 09:40:27 +0200 |
|---|---|---|
| committer | Duncan Sands <baldrick@gcc.gnu.org> | 2011-04-05 07:40:27 +0000 |
| commit | db7f455bc356573805e4f3858a3a2697a03cf09a (patch) | |
| tree | a12043559de7a2c5c18074fffe63078259c60a82 /gcc/fortran/f95-lang.c | |
| parent | d56e667993d46456e38c70d7e36c9be3c4dbf37f (diff) | |
| download | gcc-db7f455bc356573805e4f3858a3a2697a03cf09a.zip gcc-db7f455bc356573805e4f3858a3a2697a03cf09a.tar.gz gcc-db7f455bc356573805e4f3858a3a2697a03cf09a.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 3340dc4..728b631 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, |