OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Jakub Jelinek 2017-06-02 09:10:10 +02:00 committed by Jakub Jelinek
parent 7b574b39f1
commit f829242273
4 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -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>
Backport from trunk

2
gcc/fortran/openmp.c
View File

@ -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",

5
gcc/testsuite/ChangeLog
View File

@ -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>
Backport from mainline

10
gcc/testsuite/gfortran.dg/gomp/pr80918.f90 Normal file
View File

@ -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