diff options
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-06-02 07:10:10 +0000 |
|---|---|---|
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-06-02 07:10:10 +0000 |
| commit | 73c27d91d303601855c35acfca2a8c7e7af5a3ce (patch) | |
| tree | b42e20528b0eb68138eda16259dd0ffad7012f90 /gcc/fortran/openmp.c | |
| parent | 9cec16592ef6aca221b2f90332900e3ef8d5dd27 (diff) | |
PR fortran/80918
* openmp.c (resolve_omp_clauses): Fix a typo.
* gfortran.dg/gomp/pr80918.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-7-branch@248813 138bc75d-0d04-0410-961f-82ee72b054a4
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 89eecfa2ed17..7b88d6fbebaa 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -4374,7 +4374,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", |