diff options
Diffstat (limited to 'gcc/fortran/openmp.cc')
| -rw-r--r-- | gcc/fortran/openmp.cc | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/fortran/openmp.cc b/gcc/fortran/openmp.cc index 2d5c430..d9ccae8 100644 --- a/gcc/fortran/openmp.cc +++ b/gcc/fortran/openmp.cc @@ -7857,9 +7857,12 @@ is_predefined_allocator (gfc_expr *expr) && expr->ts.kind == gfc_c_intptr_kind && expr->expr_type == EXPR_CONSTANT && ((mpz_sgn (expr->value.integer) > 0 - && mpz_cmp_si (expr->value.integer, 8) <= 0) - || (mpz_cmp_si (expr->value.integer, 200) >= 0 - && mpz_cmp_si (expr->value.integer, 200) <= 0))); + && mpz_cmp_si (expr->value.integer, + GOMP_OMP_PREDEF_ALLOC_MAX) <= 0) + || (mpz_cmp_si (expr->value.integer, + GOMP_OMPX_PREDEF_ALLOC_MIN) >= 0 + && mpz_cmp_si (expr->value.integer, + GOMP_OMPX_PREDEF_ALLOC_MAX) <= 0))); } /* Resolve declarative ALLOCATE statement. Note: Common block vars only appear |