From aad16012aa3bd5fe1c019bac5dc1c71537c5431c Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Fri, 2 Jun 2017 09:07:29 +0200 Subject: 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 --- gcc/fortran/openmp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/openmp.c') 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", -- cgit v1.1