@@ -1,3 +1,7 @@
+2015-10-28 Thomas Schwinge <thomas@codesourcery.com>
+
+ * parser.c (require_positive_expr): Remove function.
+
2015-10-27 Cesar Philippidis <cesar@codesourcery.com>
* parser.c (cp_parser_oacc_shape_clause): Backport from trunk.
@@ -29642,23 +29642,6 @@ cp_parser_oacc_data_clause_deviceptr (cp_parser *parser, tree list)
return list;
}
-/* Attempt to statically determine when the number T isn't positive.
- Warn if we determined this and return positive one as the new
- expression. */
-static tree
-require_positive_expr (tree t, location_t loc, const char *str)
-{
- tree c = fold_build2_loc (loc, LE_EXPR, boolean_type_node, t,
- build_int_cst (TREE_TYPE (t), 0));
- if (c == boolean_true_node)
- {
- warning_at (loc, 0,
- "%<%s%> value must be positive", str);
- t = integer_one_node;
- }
- return t;
-}
-
/* OpenACC:
num_gangs ( expression )
num_workers ( expression )
@@ -1,3 +1,8 @@
+2015-10-28 Thomas Schwinge <thomas@codesourcery.com>
+
+ * openmp.c (gfc_match_oacc_declare): Remove oc local variable.
+ (gfc_resolve_oacc_declare): Remove list local variable.
+
2015-10-27 Cesar Philippidis <cesar@codesourcery.com>
* gfortran.h (gfc_omp_namelist): Add locus where member.
@@ -1446,7 +1446,7 @@ gfc_match_oacc_declare (void)
gfc_omp_clauses *c;
gfc_omp_namelist *n;
gfc_namespace *ns = gfc_current_ns;
- gfc_oacc_declare *new_oc, *oc;
+ gfc_oacc_declare *new_oc;
bool module_var = false;
if (gfc_match_omp_clauses (&c, OACC_DECLARE_CLAUSES, 0, false, false, true)
@@ -4915,7 +4915,6 @@ resolve_oacc_declare_map (gfc_oacc_declare *declare, int list)
void
gfc_resolve_oacc_declare (gfc_namespace *ns)
{
- int list;
gfc_omp_namelist *n;
locus loc;
gfc_oacc_declare *oc;