Searched refs:tbp (Results 1 - 10 of 10) sorted by relevance

/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/
H A Dspec_expr_6.f9016 procedure, nopass :: tbp => p1_type
21 integer, dimension(t1%p1(), t2%tbp()) :: table
38 procedure, nopass :: tbp => p1_type
44 integer, dimension(t2%tbp()) :: table2 ! { dg-error "must be PURE" }
H A Delemental_dependency_5.f9017 PROCEDURE(Fred_ifc), DEFERRED, PASS :: tbp
21 PROCEDURE :: tbp => Fred
48 array%f = array%tbp(index)
56 dummy%f = dummy%tbp(index)
H A Dcoarray_8.f9013 procedure :: tbp => sub
33 call x%tbp() ! OK
34 call x[1]%tbp ! OK, not polymorphic
40 call y%tbp() ! OK
41 call y[1]%tbp ! OK, coindexed polymorphic object but not poly. subobj.
47 call z%poly%tbp() ! OK
48 call z[1]%poly%tbp ! { dg-error "Polymorphic subobject of coindexed" }
/haiku-buildtools/gcc/gcc/fortran/
H A Dprimary.c1943 gfc_symtree *tbp; local
1952 tbp = gfc_find_typebound_proc (sym, &t, name, false, &gfc_current_locus);
1954 tbp = NULL;
1956 if (tbp)
1971 if (tbp->n.tb->is_generic)
1974 tbp_sym = tbp->n.tb->u.specific->n.sym;
1977 primary->value.compcall.tbp = tbp->n.tb;
1978 primary->value.compcall.name = tbp->name;
1988 m = gfc_match_actual_arglist (tbp
[all...]
H A Dresolve.c5407 gfc_typebound_proc* tbp; local
5409 tbp = e->value.compcall.tbp;
5411 if (tbp->error)
5418 if (tbp->nopass || e->value.compcall.ignore_pass)
5424 gcc_assert (tbp->pass_arg_num > 0);
5426 tbp->pass_arg_num,
5427 tbp->pass_arg);
5511 of ABSTRACT type (as in subobject%abstract_parent%tbp()). */
5538 if (e->value.compcall.tbp
9335 gfc_typebound_proc* tbp; local
[all...]
H A Dsymbol.c3246 gfc_typebound_proc *tbp; local
3259 FOR_EACH_VEC_ELT (latest_undo_chgset->tbps, i, tbp)
3260 tbp->error = 0;
H A Dgfortran.h2034 gfc_typebound_proc* tbp; /* Should overlap with esym. */ member in struct:gfc_expr::__anon120::__anon123
H A Dexpr.c380 q->value.compcall.tbp = p->value.compcall.tbp;
H A Dinterface.c3735 e->value.compcall.tbp = target;
H A Dtrans-expr.c8719 gcc_assert (!expr->value.compcall.tbp->is_generic);
8720 func_ifc = expr->value.compcall.tbp->u.specific->n.sym;

Completed in 364 milliseconds