1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
/* { dg-do compile } */
/* { dg-options "-O2 -fcompare-debug -w" } */
typedef union tree_node *tree;
typedef unsigned int source_location;
enum tree_code
{
MINUS_EXPR,
MULT_EXPR,
};
struct tree_omp_clause
{
union omp_clause_subcode
{
enum tree_code reduction_code;
} subcode;
};
union tree_node
{
struct tree_omp_clause omp_clause;
};
enum tree_index
{
TI_ERROR_MARK,
};
typedef struct
{
unsigned allocatable:1;
unsigned dimension:1;
unsigned codimension:1;
unsigned external:1;
unsigned optional:1;
unsigned pointer:1;
unsigned contiguous:1;
unsigned referenced:1;
} symbol_attribute;
typedef unsigned int gfc_char_t;
typedef struct gfc_linebuf
{
source_location location;
} gfc_linebuf;
typedef struct
{
gfc_char_t *nextc;
gfc_linebuf *lb;
} locus;
typedef struct
{
struct gfc_symbol *sym;
struct gfc_namelist *next;
} gfc_namelist;
enum
{
OMP_LIST_PLUS,
OMP_LIST_REDUCTION_FIRST = OMP_LIST_PLUS,
OMP_LIST_MULT,
OMP_LIST_SUB,
OMP_LIST_NUM
};
typedef struct gfc_omp_clauses
{
gfc_namelist *lists[OMP_LIST_NUM];
} gfc_omp_clauses;
typedef struct gfc_symbol
{
symbol_attribute attr;
} gfc_symbol;
typedef struct gfc_code
{
locus loc;
union
{
gfc_omp_clauses *omp_clauses;
} ext;
} gfc_code;
typedef struct
{
} stmtblock_t;
static tree
gfc_trans_omp_reduction_list (gfc_namelist * namelist, tree list,
enum tree_code reduction_code, locus where)
{
for (; namelist != ((void *) 0); namelist = namelist->next)
if (namelist->sym->attr.referenced)
{
tree node = build_omp_clause (where.lb->location);
node->omp_clause.subcode.reduction_code = reduction_code;
gfc_trans_omp_array_reduction (namelist->sym, where);
}
}
static tree
gfc_trans_omp_clauses (stmtblock_t * block, gfc_omp_clauses * clauses,
locus where)
{
tree omp_clauses = (tree) ((void *) 0);
int list;
for (list = 0; list < OMP_LIST_NUM; list++)
{
gfc_namelist *n = clauses->lists[list];
enum tree_code reduction_code;
if (n == ((void *) 0))
continue;
switch (list)
{
case OMP_LIST_MULT:
reduction_code = MULT_EXPR;
break;
case OMP_LIST_SUB:
reduction_code = MINUS_EXPR;
}
gfc_trans_omp_reduction_list (n, omp_clauses, reduction_code, where);
}
}
void
gfc_trans_omp_parallel_workshare (gfc_code * code)
{
stmtblock_t block;
gfc_trans_omp_clauses (&block, code->ext.omp_clauses, code->loc);
}
|
