- const char *a2, bt type2, int kind2, int optional2,
- const char *a3, bt type3, int kind3, int optional3)
-{
- gfc_check_f cf;
- gfc_simplify_f sf;
- gfc_resolve_f rf;
-
- cf.f3 = check;
- sf.f3 = simplify;
- rf.s1 = resolve;
-
- add_sym (name, id, cl, ACTUAL_NO, type, kind, standard, cf, sf, rf,
- a1, type1, kind1, optional1, INTENT_IN,
- a2, type2, kind2, optional2, INTENT_IN,
- a3, type3, kind3, optional3, INTENT_IN,
- (void *) 0);
-}
-
-
-/* Add a symbol to the subroutine list where the subroutine takes
- 3 arguments, specifying the intent of the arguments. */
-
-static void
-add_sym_3s_intent (const char *name, gfc_isym_id id, enum klass cl, bt type,
- int kind, int standard,
- gfc_try (*check) (gfc_expr *, gfc_expr *, gfc_expr *),
- gfc_expr *(*simplify) (gfc_expr *, gfc_expr *, gfc_expr *),
- void (*resolve) (gfc_code *),
- const char *a1, bt type1, int kind1, int optional1,
- sym_intent intent1, const char *a2, bt type2, int kind2,
- int optional2, sym_intent intent2, const char *a3, bt type3,
- int kind3, int optional3, sym_intent intent3)
+ sym_intent intent1, const char *a2, bt type2, int kind2,
+ int optional2, sym_intent intent2, const char *a3, bt type3,
+ int kind3, int optional3, sym_intent intent3)