diff options
| author | Paul Brook <paul@codesourcery.com> | 2004-06-13 23:23:24 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-06-13 23:23:24 +0000 |
| commit | 6956a6f38abed183071e192fb84f4f8bfd090eb9 (patch) | |
| tree | 71d6d6b23ca90d248c082ac023479fd006ecb205 /gcc/fortran/intrinsic.c | |
| parent | a9e7b9d395c19da3ee99fae73d4d0f3e3a3121f5 (diff) | |
| download | gcc-6956a6f38abed183071e192fb84f4f8bfd090eb9.zip gcc-6956a6f38abed183071e192fb84f4f8bfd090eb9.tar.gz gcc-6956a6f38abed183071e192fb84f4f8bfd090eb9.tar.bz2 | |
* intrinsic.c (add_sym_2s): Use correct function types.
From-SVN: r83071
Diffstat (limited to 'gcc/fortran/intrinsic.c')
| -rw-r--r-- | gcc/fortran/intrinsic.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index 7247d89..bf72947 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -434,8 +434,8 @@ static void add_sym_2 (const char *name, int elemental, int actual_ok, bt type, static void add_sym_2s (const char *name, int elemental, int actual_ok, bt type, int kind, - try (*check)(gfc_expr *,gfc_expr *,gfc_expr *), - gfc_expr *(*simplify)(gfc_expr *,gfc_expr *,gfc_expr *), + try (*check)(gfc_expr *,gfc_expr *), + gfc_expr *(*simplify)(gfc_expr *,gfc_expr *), void (*resolve)(gfc_code *), const char* a1, bt type1, int kind1, int optional1, const char* a2, bt type2, int kind2, int optional2 @@ -444,8 +444,8 @@ static void add_sym_2s (const char *name, int elemental, int actual_ok, bt type, gfc_simplify_f sf; gfc_resolve_f rf; - cf.f3 = check; - sf.f3 = simplify; + cf.f2 = check; + sf.f2 = simplify; rf.s1 = resolve; add_sym (name, elemental, actual_ok, type, kind, cf, sf, rf, |