[gomp] Fix handling of non-array POINTER vars in OpenMP directives (PR fortran/32550)

FX Coudert fxcoudert@gmail.com
Tue Jul 3 09:02:00 GMT 2007


> 2007-07-02  Jakub Jelinek  <jakub@redhat.com>
>
> 	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.

OK for trunk. IIRC, OpenMP was introduced in 4.2.0 so it's not a  
regression, is it?

FX



More information about the Fortran mailing list