Home | History | Annotate | Download | only in fortran

Lines Matching defs:fcn

383   gfc_expr *fcn, *e = c->expr;
385   fcn = gfc_copy_expr (e);
398       new_c = gfc_constructor_append_expr (&newbase, fcn, &(e->where));
403       fcn = new_expr;
406   if (fcn->rank != 0)
411 	fcn = gfc_build_intrinsic_call (current_ns, id,
413 					fn->where, 3, fcn, NULL, NULL);
415 	fcn = gfc_build_intrinsic_call (current_ns, id,
417 					fn->where, 2, fcn, NULL);
421       fcn->symtree->n.sym->attr.access = ACCESS_PRIVATE;
424   return fcn;
723   gfc_expr *fcn;
726   fcn = gfc_get_expr ();
727   fcn->expr_type = EXPR_FUNCTION;
728   fcn->value.function.isym = gfc_intrinsic_function_by_id (GFC_ISYM_LEN);
732   fcn->value.function.actual = actual_arglist;
733   fcn->where = str->where;
734   fcn->ts.type = BT_INTEGER;
735   fcn->ts.kind = gfc_charlen_int_kind;
737   gfc_get_sym_tree ("__internal_len", current_ns, &fcn->symtree, false);
738   fcn->symtree->n.sym->ts = fcn->ts;
739   fcn->symtree->n.sym->attr.flavor = FL_PROCEDURE;
740   fcn->symtree->n.sym->attr.function = 1;
741   fcn->symtree->n.sym->attr.elemental = 1;
742   fcn->symtree->n.sym->attr.referenced = 1;
743   fcn->symtree->n.sym->attr.access = ACCESS_PRIVATE;
744   gfc_commit_symbol (fcn->symtree->n.sym);
746   return fcn;
947 		newvar = create_var (*ei, "fcn");
1964   gfc_expr *fcn;
1967   fcn = gfc_get_expr ();
1968   fcn->expr_type = EXPR_FUNCTION;
1969   fcn->value.function.isym = gfc_intrinsic_function_by_id (GFC_ISYM_LEN_TRIM);
1976   fcn->value.function.actual = actual_arglist;
1977   fcn->where = str->where;
1978   fcn->ts.type = BT_INTEGER;
1979   fcn
1981   gfc_get_sym_tree ("__internal_len_trim", current_ns, &fcn->symtree, false);
1982   fcn->symtree->n.sym->ts = fcn->ts;
1983   fcn->symtree->n.sym->attr.flavor = FL_PROCEDURE;
1984   fcn->symtree->n.sym->attr.function = 1;
1985   fcn->symtree->n.sym->attr.elemental = 1;
1986   fcn->symtree->n.sym->attr.referenced = 1;
1987   fcn->symtree->n.sym->attr.access = ACCESS_PRIVATE;
1988   gfc_commit_symbol (fcn->symtree->n.sym);
1990   return fcn;
2048 	  gfc_expr *fcn;
2060 	  fcn = get_len_trim_call (str, gfc_charlen_int_kind);
2068 	  op1 = fcn;
2070 	  e->value.op.op1 = fcn;
2201   gfc_expr *fcn;
2255   fcn = get_len_trim_call (gfc_copy_expr (e), gfc_charlen_int_kind);
2259   ref->u.ss.end = fcn;
3228   gfc_expr *fcn;
3264   fcn = gfc_build_intrinsic_call (current_ns, id, name, e->where, 3,
3266   gfc_simplify_expr (fcn, 0);
3267   fcn->no_bounds_check = 1;
3268   return fcn;