From f82924227324740320a5d483e1ca193603760957 Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Fri, 2 Jun 2017 09:10:10 +0200 Subject: [PATCH] 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: r248813 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/openmp.c | 2 +- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/gomp/pr80918.f90 | 10 ++++++++++ 4 files changed, 21 insertions(+), 1 deletion(-) create mode 100644 gcc/testsuite/gfortran.dg/gomp/pr80918.f90 diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 7907efbac23..9dc53781d8b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2017-06-02 Jakub Jelinek + + PR fortran/80918 + * openmp.c (resolve_omp_clauses): Fix a typo. + 2017-05-23 Jerry DeLisle Backport from trunk diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 89eecfa2ed1..7b88d6fbeba 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", diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index cb79dc748fc..14c4edbe282 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2017-06-02 Jakub Jelinek + + PR fortran/80918 + * gfortran.dg/gomp/pr80918.f90: New test. + 2017-05-31 Martin Jambor Backport from mainline diff --git a/gcc/testsuite/gfortran.dg/gomp/pr80918.f90 b/gcc/testsuite/gfortran.dg/gomp/pr80918.f90 new file mode 100644 index 00000000000..6c5b4d84e8c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/gomp/pr80918.f90 @@ -0,0 +1,10 @@ +! PR fortran/80918 +! { dg-do compile } + +subroutine foo (a) + integer :: a(*) + !$omp task depend(inout:a) + !$omp end task + !$omp task depend(inout:a) + !$omp end task +end subroutine foo