git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages 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: r248812
This commit is contained in:
Jakub Jelinek 2017-06-02 09:07:29 +02:00 committed by Jakub Jelinek
parent 40ffd95f56
commit aad16012aa
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-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

2
gcc/fortran/openmp.c
View File

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

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

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