OpenGrok
Home
Sort by:
relevance
|
last modified time
|
path
Full Search
in project(s):
src
xsrc
Definition
Symbol
File Path
History
|
|
Help
Searched
refs:CLASS_DATA
(Results
1 - 25
of
49
) sorted by relevancy
1
2
/src/external/gpl3/gcc.old/dist/gcc/fortran/
primary.cc
2078
|| (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)
2079
&&
CLASS_DATA
(sym)->attr.dimension))
2086
|| (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)
2087
&& !
CLASS_DATA
(sym)->attr.codimension))
2154
&& sym->ts.u.derived &&
CLASS_DATA
(sym)
2155
&& (
CLASS_DATA
(sym)->attr.dimension
2156
||
CLASS_DATA
(sym)->attr.codimension)))
2169
else if (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym))
2170
as =
CLASS_DATA
(sym)->as;
2524
&&
CLASS_DATA
(component)->as && !component->attr.proc_pointer
[
all
...]
match.cc
4392
b2 = !(
CLASS_DATA
(sym)->attr.allocatable
4393
||
CLASS_DATA
(sym)->attr.class_pointer);
4804
b2 = !(
CLASS_DATA
(sym) && (
CLASS_DATA
(sym)->attr.allocatable
4805
||
CLASS_DATA
(sym)->attr.class_pointer));
5786
&&
CLASS_DATA
(sym)
5787
&& !gfc_add_in_equivalence (&
CLASS_DATA
(sym)->attr,
6267
&&
CLASS_DATA
(selector)
6268
&&
CLASS_DATA
(selector)->as
6269
&&
CLASS_DATA
(selector)->as->type == AS_ASSUMED_RANK
[
all
...]
resolve.cc
337
?
CLASS_DATA
(sym)->as : sym->as;
351
&& !(
CLASS_DATA
(sym)->attr.class_pointer
352
||
CLASS_DATA
(sym)->attr.allocatable)))
364
&& (
CLASS_DATA
(sym)->attr.class_pointer
365
||
CLASS_DATA
(sym)->attr.allocatable
366
||
CLASS_DATA
(sym)->attr.target))
455
|| (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)
456
&&
CLASS_DATA
(sym)->attr.codimension))
463
if (sym->as || (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)
464
&&
CLASS_DATA
(sym)->as)
[
all
...]
interface.cc
787
?
CLASS_DATA
(s1)->as : s1->as;
790
?
CLASS_DATA
(s2)->as : s2->as;
1231
CLASS_DATA
(s1)->attr.allocatable : s1->attr.allocatable;
1234
CLASS_DATA
(s2)->attr.class_pointer : s2->attr.pointer;
1317
if (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym))
1318
as =
CLASS_DATA
(sym)->as;
2193
|| (formal->ts.type == BT_CLASS &&
CLASS_DATA
(formal)->attr.allocatable))
2216
|| (formal->ts.type == BT_CLASS &&
CLASS_DATA
(formal)
2217
&&
CLASS_DATA
(formal)->attr.class_pointer))
2467
CLASS_DATA
(actual)->ts.u.derived))
[
all
...]
trans-expr.cc
489
&&
CLASS_DATA
(ref->u.c.component)->attr.allocatable)
1712
&&
CLASS_DATA
(code->expr1)->attr.dimension)
1715
*tmparr = *
CLASS_DATA
(code->expr1)->as;
1777
tree
class_data
;
local
1819
class_data
= gfc_class_data_get (rse_expr);
1822
is_descriptor = GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (
class_data
));
1824
class_data
= gfc_conv_descriptor_data_get (
class_data
);
1825
class_data
= gfc_evaluate_now (
class_data
, block)
[
all
...]
expr.cc
1175
&&
CLASS_DATA
(sym)->attr.dimension
1176
&&
CLASS_DATA
(sym)->attr.class_pointer)
4398
target =
CLASS_DATA
(sym)->attr.target;
4589
pointer = comp->ts.type == BT_CLASS &&
CLASS_DATA
(comp)
4590
?
CLASS_DATA
(comp)->attr.class_pointer : comp->attr.pointer;
4595
pointer = sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)
4596
?
CLASS_DATA
(sym)->attr.class_pointer : sym->attr.pointer;
5019
return comp->ts.type == BT_CLASS && comp->attr.class_ok &&
CLASS_DATA
(comp)
5020
&&
CLASS_DATA
(comp)->attr.allocatable;
5026
return comp->ts.type == BT_CLASS && comp->attr.class_ok &&
CLASS_DATA
(comp
[
all
...]
class.cc
266
int rank =
CLASS_DATA
(e)->as->rank;
267
gfc_array_spec *as =
CLASS_DATA
(e)->as;
347
&&
CLASS_DATA
(e->symtree->n.sym)
348
&&
CLASS_DATA
(e->symtree->n.sym)->attr.dimension
357
&&
CLASS_DATA
(ref->u.c.component)->attr.dimension
382
&&
CLASS_DATA
(e->symtree->n.sym)
383
&& !
CLASS_DATA
(e->symtree->n.sym)->attr.dimension
395
&&
CLASS_DATA
(ref->u.c.component)
396
&& !
CLASS_DATA
(ref->u.c.component)->attr.dimension
942
else if (comp->ts.type == BT_CLASS &&
CLASS_DATA
(comp
[
all
...]
trans-decl.cc
730
&&
CLASS_DATA
(sym)->ts.u.derived->attr.has_dtio_procs)))
984
array_attr = is_classarray ? &
CLASS_DATA
(sym)->attr : &sym->attr;
985
as = is_classarray ?
CLASS_DATA
(sym)->as : sym->as;
1206
as = is_classarray ?
CLASS_DATA
(sym)->as : sym->as;
1207
array_attr = is_classarray ? &
CLASS_DATA
(sym)->attr : &sym->attr;
1214
|| (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)->attr.class_pointer)
1307
if ((sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)->attr.optional)
1568
gfc_component *c =
CLASS_DATA
(sym);
1853
(
CLASS_DATA
(sym)->attr.dimension
1854
||
CLASS_DATA
(sym)->attr.allocatable)
[
all
...]
gfortran.h
3896
#define
CLASS_DATA
(sym) sym->ts.u.derived->components
3899
&&
CLASS_DATA
(sym) \
3900
&&
CLASS_DATA
(sym)->ts.u.derived \
3901
&&
CLASS_DATA
(sym)->ts.u.derived->attr.unlimited_polymorphic)
3904
&&
CLASS_DATA
(sym) \
3905
&&
CLASS_DATA
(sym)->attr.dimension \
3906
&& !
CLASS_DATA
(sym)->attr.class_pointer)
3908
(sym->ts.type == BT_CLASS && sym->attr.class_ok &&
CLASS_DATA
(sym) \
3909
?
CLASS_DATA
(sym)->attr.class_pointer : sym->attr.pointer)
parse.cc
3234
&&
CLASS_DATA
(c)->attr.allocatable)
3245
&&
CLASS_DATA
(c)->attr.class_pointer)
3261
&&
CLASS_DATA
(c)->attr.codimension))
3279
&&
CLASS_DATA
(c)->ts.u.derived->from_intmod
3281
&&
CLASS_DATA
(c)->ts.u.derived->intmod_sym_id
3296
&&
CLASS_DATA
(c)->ts.u.derived->from_intmod
3298
&&
CLASS_DATA
(c)->ts.u.derived->intmod_sym_id
4978
if (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym))
4980
if ((!
CLASS_DATA
(sym)->as && rank != 0)
4981
|| (
CLASS_DATA
(sym)->a
[
all
...]
trans-types.cc
1378
array_attr = is_classarray ? &
CLASS_DATA
(sym)->attr : &sym->attr;
1379
as = is_classarray ?
CLASS_DATA
(sym)->as : sym->as;
1385
|| (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)->attr.class_pointer)
2376
if ((sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)->attr.optional)
2488
&& (!
CLASS_DATA
(from_cm)->attr.class_pointer || from_gsym))
2791
&& (c->ts.type != BT_CLASS || (
CLASS_DATA
(c)->ts.u.derived
2792
&& !gfc_compare_derived_types (derived,
CLASS_DATA
(c)->ts.u.derived))))
3063
is_class = f->sym->ts.type == BT_CLASS &&
CLASS_DATA
(f->sym)
3065
is_pointer = is_class ?
CLASS_DATA
(f->sym)->attr.class_pointer
3075
&& (
CLASS_DATA
(f->sym)->ts.u.derived->attr.proc_pointer_com
[
all
...]
trans-stmt.cc
1817
if (
CLASS_DATA
(sym)->as &&
CLASS_DATA
(sym)->as->rank > 0)
1818
rank =
CLASS_DATA
(sym)->as->rank;
1876
&& (
CLASS_DATA
(sym)->attr.allocatable
1877
||
CLASS_DATA
(sym)->attr.pointer)))
2039
if (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)->attr.dimension)
2095
&&
CLASS_DATA
(e)->attr.dimension)
2222
&&
CLASS_DATA
(sym)->ts.u.derived
2223
&&
CLASS_DATA
(sym)->ts.u.derived->attr.pdt_type)
2226
tmp = gfc_deallocate_pdt_comp (
CLASS_DATA
(sym)->ts.u.derived
[
all
...]
trans-array.cc
1005
&&
CLASS_DATA
(sym)->attr.dimension)
1582
tree
class_data
;
local
1592
class_data
= gfc_class_data_get (tmp);
1595
gfc_add_modify (pre,
class_data
, tmp);
1599
tmp = gfc_conv_descriptor_dtype (
class_data
);
1603
desc =
class_data
;
2858
? &
CLASS_DATA
(expr)->ts : &expr->ts);
6484
as = IS_CLASS_ARRAY (sym) ?
CLASS_DATA
(sym)->as : sym->as;
6527
as = IS_CLASS_ARRAY (sym) ?
CLASS_DATA
(sym)->as : sym->as;
6774
if ((sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)->attr.optional
[
all
...]
/src/external/gpl3/gcc/dist/gcc/fortran/
primary.cc
2094
|| (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)
2095
&&
CLASS_DATA
(sym)->attr.dimension))
2102
|| (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)
2103
&& !
CLASS_DATA
(sym)->attr.codimension))
2183
&& sym->ts.u.derived &&
CLASS_DATA
(sym)
2184
&& (
CLASS_DATA
(sym)->attr.dimension
2185
||
CLASS_DATA
(sym)->attr.codimension)))
2198
else if (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym))
2199
as =
CLASS_DATA
(sym)->as;
2646
&&
CLASS_DATA
(component)->as && !component->attr.proc_pointer
[
all
...]
match.cc
4400
b2 = !(
CLASS_DATA
(sym)->attr.allocatable
4401
||
CLASS_DATA
(sym)->attr.class_pointer);
4812
b2 = !(
CLASS_DATA
(sym) && (
CLASS_DATA
(sym)->attr.allocatable
4813
||
CLASS_DATA
(sym)->attr.class_pointer));
5833
&&
CLASS_DATA
(sym)
5834
&& !gfc_add_in_equivalence (&
CLASS_DATA
(sym)->attr,
6342
&&
CLASS_DATA
(selector)
6343
&&
CLASS_DATA
(selector)->as
6344
&&
CLASS_DATA
(selector)->as->type == AS_ASSUMED_RANK
[
all
...]
resolve.cc
352
?
CLASS_DATA
(sym)->as : sym->as;
369
&& !(
CLASS_DATA
(sym)->attr.class_pointer
370
||
CLASS_DATA
(sym)->attr.allocatable)))
382
&& (
CLASS_DATA
(sym)->attr.class_pointer
383
||
CLASS_DATA
(sym)->attr.allocatable
384
||
CLASS_DATA
(sym)->attr.target))
473
|| (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)
474
&&
CLASS_DATA
(sym)->attr.codimension))
481
if (sym->as || (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)
482
&&
CLASS_DATA
(sym)->as)
[
all
...]
interface.cc
833
?
CLASS_DATA
(s1)->as : s1->as;
836
?
CLASS_DATA
(s2)->as : s2->as;
1277
CLASS_DATA
(s1)->attr.allocatable : s1->attr.allocatable;
1280
CLASS_DATA
(s2)->attr.class_pointer : s2->attr.pointer;
1363
if (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym))
1364
as =
CLASS_DATA
(sym)->as;
2245
|| (formal->ts.type == BT_CLASS &&
CLASS_DATA
(formal)->attr.allocatable))
2268
|| (formal->ts.type == BT_CLASS &&
CLASS_DATA
(formal)
2269
&&
CLASS_DATA
(formal)->attr.class_pointer))
2520
CLASS_DATA
(actual)->ts.u.derived))
[
all
...]
trans-expr.cc
491
&&
CLASS_DATA
(ref->u.c.component)->attr.allocatable)
1786
&&
CLASS_DATA
(code->expr1)->attr.dimension)
1789
*tmparr = *
CLASS_DATA
(code->expr1)->as;
1853
tree
class_data
;
local
1895
class_data
= gfc_class_data_get (rse_expr);
1898
is_descriptor = GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (
class_data
));
1900
class_data
= gfc_conv_descriptor_data_get (
class_data
);
1901
class_data
= gfc_evaluate_now (
class_data
, block)
[
all
...]
expr.cc
1188
&&
CLASS_DATA
(sym)->attr.dimension
1189
&&
CLASS_DATA
(sym)->attr.class_pointer)
4414
target =
CLASS_DATA
(sym)->attr.target;
4605
pointer = comp->ts.type == BT_CLASS &&
CLASS_DATA
(comp)
4606
?
CLASS_DATA
(comp)->attr.class_pointer : comp->attr.pointer;
4611
pointer = sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)
4612
?
CLASS_DATA
(sym)->attr.class_pointer : sym->attr.pointer;
5035
return comp->ts.type == BT_CLASS && comp->attr.class_ok &&
CLASS_DATA
(comp)
5036
&&
CLASS_DATA
(comp)->attr.allocatable;
5042
return comp->ts.type == BT_CLASS && comp->attr.class_ok &&
CLASS_DATA
(comp
[
all
...]
class.cc
266
int rank =
CLASS_DATA
(e)->as->rank;
267
gfc_array_spec *as =
CLASS_DATA
(e)->as;
347
&&
CLASS_DATA
(e->symtree->n.sym)
348
&&
CLASS_DATA
(e->symtree->n.sym)->attr.dimension
357
&&
CLASS_DATA
(ref->u.c.component)->attr.dimension
382
&&
CLASS_DATA
(e->symtree->n.sym)
383
&& !
CLASS_DATA
(e->symtree->n.sym)->attr.dimension
395
&&
CLASS_DATA
(ref->u.c.component)
396
&& !
CLASS_DATA
(ref->u.c.component)->attr.dimension
1008
else if (comp->ts.type == BT_CLASS &&
CLASS_DATA
(comp
[
all
...]
trans-decl.cc
745
&&
CLASS_DATA
(sym)->ts.u.derived->attr.has_dtio_procs)))
1032
array_attr = is_classarray ? &
CLASS_DATA
(sym)->attr : &sym->attr;
1033
as = is_classarray ?
CLASS_DATA
(sym)->as : sym->as;
1254
as = is_classarray ?
CLASS_DATA
(sym)->as : sym->as;
1255
array_attr = is_classarray ? &
CLASS_DATA
(sym)->attr : &sym->attr;
1262
|| (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)->attr.class_pointer)
1355
if ((sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)->attr.optional)
1620
gfc_component *c =
CLASS_DATA
(sym);
1926
(
CLASS_DATA
(sym)->attr.dimension
1927
||
CLASS_DATA
(sym)->attr.allocatable)
[
all
...]
gfortran.h
4034
#define
CLASS_DATA
(sym) sym->ts.u.derived->components
4037
&&
CLASS_DATA
(sym) \
4038
&&
CLASS_DATA
(sym)->ts.u.derived \
4039
&&
CLASS_DATA
(sym)->ts.u.derived->attr.unlimited_polymorphic)
4042
&&
CLASS_DATA
(sym) \
4043
&&
CLASS_DATA
(sym)->attr.dimension \
4044
&& !
CLASS_DATA
(sym)->attr.class_pointer)
4046
(sym->ts.type == BT_CLASS && sym->attr.class_ok &&
CLASS_DATA
(sym) \
4047
?
CLASS_DATA
(sym)->attr.class_pointer : sym->attr.pointer)
4049
(sym->ts.type == BT_CLASS && sym->attr.class_ok &&
CLASS_DATA
(sym)
[
all
...]
parse.cc
840
alloc_ptr = (
CLASS_DATA
(n->sym)->attr.allocatable
841
||
CLASS_DATA
(n->sym)->attr.class_pointer);
3465
&&
CLASS_DATA
(c)->attr.allocatable)
3476
&&
CLASS_DATA
(c)->attr.class_pointer)
3492
&&
CLASS_DATA
(c)->attr.codimension))
3510
&&
CLASS_DATA
(c)->ts.u.derived->from_intmod
3512
&&
CLASS_DATA
(c)->ts.u.derived->intmod_sym_id
3527
&&
CLASS_DATA
(c)->ts.u.derived->from_intmod
3529
&&
CLASS_DATA
(c)->ts.u.derived->intmod_sym_id
5206
if (
CLASS_DATA
(sym)->as
[
all
...]
trans-types.cc
1384
array_attr = is_classarray ? &
CLASS_DATA
(sym)->attr : &sym->attr;
1385
as = is_classarray ?
CLASS_DATA
(sym)->as : sym->as;
1391
|| (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)->attr.class_pointer)
2388
if ((sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)->attr.optional)
2497
&& (!
CLASS_DATA
(from_cm)->attr.class_pointer || from_gsym))
2800
&& (c->ts.type != BT_CLASS || (
CLASS_DATA
(c)->ts.u.derived
2801
&& !gfc_compare_derived_types (derived,
CLASS_DATA
(c)->ts.u.derived))))
3094
is_class = f->sym->ts.type == BT_CLASS &&
CLASS_DATA
(f->sym)
3096
is_pointer = is_class ?
CLASS_DATA
(f->sym)->attr.class_pointer
3106
&& (
CLASS_DATA
(f->sym)->ts.u.derived->attr.proc_pointer_com
[
all
...]
trans-stmt.cc
1822
if (
CLASS_DATA
(sym)->as &&
CLASS_DATA
(sym)->as->rank > 0)
1823
rank =
CLASS_DATA
(sym)->as->rank;
1881
&& (
CLASS_DATA
(sym)->attr.allocatable
1882
||
CLASS_DATA
(sym)->attr.pointer)))
2061
else if (sym->ts.type == BT_CLASS &&
CLASS_DATA
(sym)->attr.dimension)
2117
&&
CLASS_DATA
(e)->attr.dimension)
2170
||
CLASS_DATA
(e)->attr.class_pointer))
2292
&&
CLASS_DATA
(sym)->ts.u.derived
2293
&&
CLASS_DATA
(sym)->ts.u.derived->attr.pdt_type
[
all
...]
Completed in 84 milliseconds
1
2
Indexes created Thu Oct 22 00:27:13 UTC 2026