diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2016-05-26 21:12:27 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2016-05-26 21:12:27 +0200 |
| commit | 7211a0975c25b21baa8e31ebc2946f4d6d136fed (patch) | |
| tree | 7776f4844e8b9eae6129a9d2d8616ce108d89a5b /gcc/fortran/openmp.c | |
| parent | cac177cfad2b48c29870caeb0af51d7cee645fae (diff) | |
| download | gcc-7211a0975c25b21baa8e31ebc2946f4d6d136fed.zip gcc-7211a0975c25b21baa8e31ebc2946f4d6d136fed.tar.gz gcc-7211a0975c25b21baa8e31ebc2946f4d6d136fed.tar.bz2 | |
c-parser.c (c_parser_omp_clause_schedule): Warn if OMP_CLAUSE_SCHEDULE_CHUNK_EXPR is known not to be positive.
* c-parser.c (c_parser_omp_clause_schedule): Warn if
OMP_CLAUSE_SCHEDULE_CHUNK_EXPR is known not to be positive.
* semantics.c (finish_omp_clauses) <case OMP_CLAUSE_SCHEDULE>: Warn
if OMP_CLAUSE_SCHEDULE_CHUNK_EXPR is known not to be positive.
* openmp.c (resolve_omp_clauses): Warn if chunk_size is known not to
be positive.
* c-c++-common/gomp/schedule-1.c: New test.
* gfortran.dg/gomp/schedule-1.f90: New test.
* testsuite/libgomp.c/doacross-1.c (main): Use schedule(static)
instead of invalid schedule(static, 0).
* testsuite/libgomp.c/doacross-2.c (main): Likewise.
From-SVN: r236793
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 1481719..2689d30 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -3259,6 +3259,11 @@ resolve_omp_clauses (gfc_code *code, gfc_omp_clauses *omp_clauses, || expr->ts.type != BT_INTEGER || expr->rank != 0) gfc_error ("SCHEDULE clause's chunk_size at %L requires " "a scalar INTEGER expression", &expr->where); + else if (expr->expr_type == EXPR_CONSTANT + && expr->ts.type == BT_INTEGER + && mpz_sgn (expr->value.integer) <= 0) + gfc_warning (0, "INTEGER expression of SCHEDULE clause's chunk_size " + "at %L must be positive", &expr->where); } /* Check that no symbol appears on multiple clauses, except that |