PR fortran/32550
authorjakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 12 Jul 2007 12:16:54 +0000 (12:16 +0000)
committerjakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 12 Jul 2007 12:16:54 +0000 (12:16 +0000)
commit7ba2cc333dd01467a2a66705460d9cce9740d813
tree393a1c7458b43284abbfb7883e8b69cce2548c5f
parent1d4336dfdab0ff4b0da9f789543cf06f688535d3
PR fortran/32550
* trans.h (GFC_POINTER_TYPE_P): Define.
* trans-types.c (gfc_sym_type): Set it for types on attr->sym.pointer.
* trans-openmp.c (gfc_omp_privatize_by_reference): Return false
if GFC_POINTER_TYPE_P is set on the type.

* testsuite/libgomp.fortran/pr32550.f90: New test.
* testsuite/libgomp.fortran/crayptr2.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126583 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/trans-openmp.c
gcc/fortran/trans-types.c
gcc/fortran/trans.h
libgomp/ChangeLog
libgomp/testsuite/libgomp.fortran/crayptr2.f90 [new file with mode: 0644]
libgomp/testsuite/libgomp.fortran/pr32550.f90 [new file with mode: 0644]