Commit aad16012 by Jakub Jelinek Committed by Jakub Jelinek

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
parent 40ffd95f
2017-06-02 Jakub Jelinek <jakub@redhat.com>
PR fortran/80918
* openmp.c (resolve_omp_clauses): Fix a typo.
2017-05-30 David Malcolm <dmalcolm@redhat.com> 2017-05-30 David Malcolm <dmalcolm@redhat.com>
* error.c (gfc_format_decoder): Update for new bool and * error.c (gfc_format_decoder): Update for new bool and
......
...@@ -4381,7 +4381,7 @@ resolve_omp_clauses (gfc_code *code, gfc_omp_clauses *omp_clauses, ...@@ -4381,7 +4381,7 @@ resolve_omp_clauses (gfc_code *code, gfc_omp_clauses *omp_clauses,
else else
resolve_oacc_data_clauses (n->sym, n->where, name); 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
&& n->sym->as->type == AS_ASSUMED_SIZE) && n->sym->as->type == AS_ASSUMED_SIZE)
gfc_error ("Assumed size array %qs in %s clause at %L", gfc_error ("Assumed size array %qs in %s clause at %L",
......
2017-06-02 Jakub Jelinek <jakub@redhat.com>
PR fortran/80918
* gfortran.dg/gomp/pr80918.f90: New test.
2017-06-02 Bernd Edlinger <bernd.edlinger@hotmail.de> 2017-06-02 Bernd Edlinger <bernd.edlinger@hotmail.de>
* c-c++-common/Wsizeof-pointer-div.c: New test. * c-c++-common/Wsizeof-pointer-div.c: New test.
......
! 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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment