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

re PR fortran/77666 (ICE in gfc_omp_clause_default_ctor, at fortran/trans-openmp.c:471)

Browse Source 
PR fortran/77666
	* trans-openmp.c (gfc_omp_private_outer_ref): Return true even for
	references to allocatable arrays.

	* gfortran.dg/gomp/pr77666.f90: New test.

From-SVN: r240522
This commit is contained in:
Jakub Jelinek 2016-09-27 09:52:28 +02:00 committed by Jakub Jelinek
parent 0fbac2d130
commit f2e0c4e1ce
4 changed files with 40 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2016-09-27 Jakub Jelinek <jakub@redhat.com>
PR fortran/77666
* trans-openmp.c (gfc_omp_private_outer_ref): Return true even for
references to allocatable arrays.
2016-09-26 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77420

6
gcc/fortran/trans-openmp.c
View File

@ -207,6 +207,9 @@ gfc_omp_private_outer_ref (tree decl)
{
tree type = TREE_TYPE (decl);
if (gfc_omp_privatize_by_reference (decl))
type = TREE_TYPE (type);
if (GFC_DESCRIPTOR_TYPE_P (type)
&& GFC_TYPE_ARRAY_AKIND (type) == GFC_ARRAY_ALLOCATABLE)
return true;
@ -214,9 +217,6 @@ gfc_omp_private_outer_ref (tree decl)
if (GFC_DECL_GET_SCALAR_ALLOCATABLE (decl))
return true;
if (gfc_omp_privatize_by_reference (decl))
type = TREE_TYPE (type);
if (gfc_has_alloc_comps (type, decl))
return true;

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2016-09-27 Jakub Jelinek <jakub@redhat.com>
PR fortran/77666
* gfortran.dg/gomp/pr77666.f90: New test.
2016-09-27 Kugan Vivekanandarajah <kuganv@linaro.org>
PR ipa/77677

26
gcc/testsuite/gfortran.dg/gomp/pr77666.f90 Normal file
View File

@ -0,0 +1,26 @@
! PR fortran/77666
! { dg-do compile }
subroutine foo(x)
interface
subroutine baz(x, y)
integer, allocatable :: x(:), y
end subroutine
end interface
integer, allocatable :: x(:), y
!$omp parallel private(x, y)
call baz (x, y)
!$omp end parallel
end
subroutine bar
interface
subroutine baz(x, y)
integer, allocatable :: x(:), y
end subroutine
end interface
integer, allocatable :: x(:), y
call baz (x, y)
!$omp parallel private(x, y)
call baz (x, y)
!$omp end parallel
end