diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2017-06-02 09:07:29 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2017-06-02 09:07:29 +0200 |
| commit | aad16012aa3bd5fe1c019bac5dc1c71537c5431c (patch) | |
| tree | 167f7bc297a4c69a7cd59efe1aa5593466e4f524 /gcc/fortran/openmp.c | |
| parent | 40ffd95f56ad178148612c19304a4409d0a7ebac (diff) | |
| download | gcc-aad16012aa3bd5fe1c019bac5dc1c71537c5431c.zip gcc-aad16012aa3bd5fe1c019bac5dc1c71537c5431c.tar.gz gcc-aad16012aa3bd5fe1c019bac5dc1c71537c5431c.tar.bz2 | |
re PR fortran/80918 (Assumed size whole array rejected in depend clause)
PR fortran/80918
* openmp.c (resolve_omp_clauses): Fix a typo.
* gfortran.dg/gomp/pr80918.f90: New test.
From-SVN: r248812
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 5a2b774..2b56558 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -4381,7 +4381,7 @@ resolve_omp_clauses (gfc_code *code, gfc_omp_clauses *omp_clauses, else resolve_oacc_data_clauses (n->sym, n->where, name); } - else if (list != OMP_CLAUSE_DEPEND + else if (list != OMP_LIST_DEPEND && n->sym->as && n->sym->as->type == AS_ASSUMED_SIZE) gfc_error ("Assumed size array %qs in %s clause at %L", |