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
This commit is contained in:
parent
7b574b39f1
commit
f829242273
|
@ -1,3 +1,8 @@
|
||||||
|
2017-06-02 Jakub Jelinek <jakub@redhat.com>
|
||||||
|
|
||||||
|
PR fortran/80918
|
||||||
|
* openmp.c (resolve_omp_clauses): Fix a typo.
|
||||||
|
|
||||||
2017-05-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
2017-05-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
||||||
|
|
||||||
Backport from trunk
|
Backport from trunk
|
||||||
|
|
|
@ -4374,7 +4374,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",
|
||||||
|
|
|
@ -1,3 +1,8 @@
|
||||||
|
2017-06-02 Jakub Jelinek <jakub@redhat.com>
|
||||||
|
|
||||||
|
PR fortran/80918
|
||||||
|
* gfortran.dg/gomp/pr80918.f90: New test.
|
||||||
|
|
||||||
2017-05-31 Martin Jambor <mjambor@suse.cz>
|
2017-05-31 Martin Jambor <mjambor@suse.cz>
|
||||||
|
|
||||||
Backport from mainline
|
Backport from mainline
|
||||||
|
|
|
@ -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
|
Loading…
Reference in New Issue