Skip to content

R
riscv-gcc-1
Commit 6956a6f3 by Paul Brook Committed by Paul Brook
Options

* intrinsic.c (add_sym_2s): Use correct function types. 

From-SVN: r83071
parent a9e7b9d3
Showing with 8 additions and 4 deletions
gcc/fortran/ChangeLog
2004-06-14 Paul Brook <paul@codesourcery.com>
* intrinsic.c (add_sym_2s): Use correct function types.
2004-06-12 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* Make-lang.in (F95_OBJS, F95_PARSER_OBJS): Alphabetize. Move data.c
......
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,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment