diff options
Diffstat (limited to 'gcc/fortran/openmp.c')
-rw-r--r-- | gcc/fortran/openmp.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 09ec255974c..ffb5bf5b47a 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -190,7 +190,7 @@ cleanup: static match gfc_match_omp_clauses (gfc_omp_clauses **cp, int mask) { - gfc_omp_clauses *c = gfc_get_omp_clauses (); + gfc_omp_clauses *c = (gfc_omp_clauses *) gfc_get_omp_clauses (); locus old_loc; bool needs_space = true, first = true; @@ -589,7 +589,7 @@ gfc_match_omp_workshare (void) if (gfc_match_omp_eos () != MATCH_YES) return MATCH_ERROR; new_st.op = EXEC_OMP_WORKSHARE; - new_st.ext.omp_clauses = gfc_get_omp_clauses (); + new_st.ext.omp_clauses = (gfc_omp_clauses *) gfc_get_omp_clauses (); return MATCH_YES; } @@ -981,7 +981,7 @@ resolve_omp_atomic (gfc_code *code) if (expr2->expr_type == EXPR_OP) { gfc_expr *v = NULL, *e, *c; - gfc_intrinsic_op op = expr2->value.op.operator; + gfc_intrinsic_op op = expr2->value.op.foperator; gfc_intrinsic_op alt_op = INTRINSIC_NONE; switch (op) @@ -1044,8 +1044,8 @@ resolve_omp_atomic (gfc_code *code) else if ((c = is_conversion (e, true)) != NULL) q = &e->value.function.actual->expr; else if (e->expr_type != EXPR_OP - || (e->value.op.operator != op - && e->value.op.operator != alt_op) + || (e->value.op.foperator != op + && e->value.op.foperator != alt_op) || e->rank != 0) break; else @@ -1064,7 +1064,7 @@ resolve_omp_atomic (gfc_code *code) if (p != NULL) { e = *p; - switch (e->value.op.operator) + switch (e->value.op.foperator) { case INTRINSIC_MINUS: case INTRINSIC_DIVIDE: |