92d28cbb59
PR fortran/60928 * omp-low.c (lower_rec_input_clauses) <case OMP_CLAUSE_LASTPRIVATE>: Set lastprivate_firstprivate even if omp_private_outer_ref langhook returns true. <case OMP_CLAUSE_REDUCTION>: When calling omp_clause_default_ctor langhook, call unshare_expr on new_var and call build_outer_var_ref to get the last argument. gcc/c-family/ * c-pragma.c (omp_pragmas_simd): Move PRAGMA_OMP_TASK... (omp_pragmas): ... back here. gcc/fortran/ * f95-lang.c (gfc_init_builtin_functions): Handle -fopenmp-simd like -fopenmp. * openmp.c (resolve_omp_clauses): Remove allocatable components diagnostics. Add associate-name and intent(in) pointer diagnostics for various clauses, diagnose procedure pointers in reduction clause. * parse.c (match_word_omp_simd): New function. (matchs, matcho): New macros. (decode_omp_directive): Change match macros to either matchs or matcho. Handle -fopenmp-simd. (next_free, next_fixed): Handle -fopenmp-simd like -fopenmp. * scanner.c (skip_free_comments, skip_fixed_comments, include_line): Likewise. * trans-array.c (get_full_array_size): Rename to... (gfc_full_array_size): ... this. No longer static. (duplicate_allocatable): Adjust caller. Add NO_MEMCPY argument and handle it. (gfc_duplicate_allocatable, gfc_copy_allocatable_data): Adjust duplicate_allocatable callers. (gfc_duplicate_allocatable_nocopy): New function. (structure_alloc_comps): Adjust g*_full_array_size and duplicate_allocatable caller. * trans-array.h (gfc_full_array_size, gfc_duplicate_allocatable_nocopy): New prototypes. * trans-common.c (create_common): Call gfc_finish_decl_attrs. * trans-decl.c (gfc_finish_decl_attrs): New function. (gfc_finish_var_decl, create_function_arglist, gfc_get_fake_result_decl): Call it. (gfc_allocate_lang_decl): If DECL_LANG_SPECIFIC is already allocated, don't allocate it again. (gfc_get_symbol_decl): Set GFC_DECL_ASSOCIATE_VAR_P on associate-names. * trans.h (gfc_finish_decl_attrs): New prototype. (struct lang_decl): Add scalar_allocatable and scalar_pointer bitfields. (GFC_DECL_SCALAR_ALLOCATABLE, GFC_DECL_SCALAR_POINTER, GFC_DECL_GET_SCALAR_ALLOCATABLE, GFC_DECL_GET_SCALAR_POINTER, GFC_DECL_ASSOCIATE_VAR_P): Define. (GFC_POINTER_TYPE_P): Remove. * trans-openmp.c (gfc_omp_privatize_by_reference): Don't check GFC_POINTER_TYPE_P, instead test GFC_DECL_GET_SCALAR_ALLOCATABLE, GFC_DECL_GET_SCALAR_POINTER or GFC_DECL_CRAY_POINTEE on decl. (gfc_omp_predetermined_sharing): Associate-names are predetermined. (enum walk_alloc_comps): New. (gfc_has_alloc_comps, gfc_omp_unshare_expr_r, gfc_omp_unshare_expr, gfc_walk_alloc_comps): New functions. (gfc_omp_private_outer_ref): Return true for scalar allocatables or decls with allocatable components. (gfc_omp_clause_default_ctor, gfc_omp_clause_copy_ctor, gfc_omp_clause_assign_op, gfc_omp_clause_dtor): Fix up handling of allocatables, handle also OMP_CLAUSE_REDUCTION, handle scalar allocatables and decls with allocatable components. (gfc_trans_omp_array_reduction_or_udr): Don't handle allocatable arrays here. (gfc_trans_omp_reduction_list): Call gfc_trans_omp_array_reduction_or_udr even for allocatable scalars. (gfc_trans_omp_do_simd): If -fno-openmp, just expand it as OMP_SIMD. (gfc_trans_omp_parallel_do_simd): Likewise. * trans-types.c (gfc_sym_type): Don't set GFC_POINTER_TYPE_P. (gfc_get_derived_type): Call gfc_finish_decl_attrs. gcc/testsuite/ * gfortran.dg/gomp/allocatable_components_1.f90: Remove dg-error directives. * gfortran.dg/gomp/associate1.f90: New test. * gfortran.dg/gomp/intentin1.f90: New test. * gfortran.dg/gomp/openmp-simd-1.f90: New test. * gfortran.dg/gomp/openmp-simd-2.f90: New test. * gfortran.dg/gomp/openmp-simd-3.f90: New test. * gfortran.dg/gomp/proc_ptr_2.f90: New test. libgomp/ * testsuite/libgomp.fortran/allocatable9.f90: New test. * testsuite/libgomp.fortran/allocatable10.f90: New test. * testsuite/libgomp.fortran/allocatable11.f90: New test. * testsuite/libgomp.fortran/allocatable12.f90: New test. * testsuite/libgomp.fortran/alloc-comp-1.f90: New test. * testsuite/libgomp.fortran/alloc-comp-2.f90: New test. * testsuite/libgomp.fortran/alloc-comp-3.f90: New test. * testsuite/libgomp.fortran/associate1.f90: New test. * testsuite/libgomp.fortran/associate2.f90: New test. * testsuite/libgomp.fortran/procptr1.f90: New test. From-SVN: r211397
73 lines
2.7 KiB
Fortran
73 lines
2.7 KiB
Fortran
! { dg-do run }
|
|
! { dg-require-effective-target tls_runtime }
|
|
|
|
use omp_lib
|
|
integer, allocatable, save :: a, b(:), c(:,:)
|
|
integer :: p
|
|
!$omp threadprivate (a, b, c)
|
|
if (allocated (a) .or. allocated (b) .or. allocated (c)) call abort
|
|
|
|
call omp_set_dynamic (.false.)
|
|
call omp_set_num_threads (4)
|
|
|
|
!$omp parallel num_threads (4)
|
|
if (allocated (a) .or. allocated (b) .or. allocated (c)) call abort
|
|
!$omp end parallel
|
|
|
|
allocate (a, b(6:9), c(3, 8:9))
|
|
a = 4
|
|
b = 5
|
|
c = 6
|
|
if (.not.allocated (a)) call abort
|
|
if (.not.allocated (b) .or. size (b) /= 4) call abort
|
|
if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort
|
|
if (.not.allocated (c) .or. size (c) /= 6) call abort
|
|
if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort
|
|
if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort
|
|
if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort
|
|
|
|
!$omp parallel num_threads (4) copyin (a, b, c) private (p)
|
|
p = omp_get_thread_num ()
|
|
if (.not.allocated (a)) call abort
|
|
if (.not.allocated (b) .or. size (b) /= 4) call abort
|
|
if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort
|
|
if (.not.allocated (c) .or. size (c) /= 6) call abort
|
|
if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort
|
|
if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort
|
|
if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort
|
|
if (a /= 4 .or. any (b /= 5) .or. any (c /= 6)) call abort
|
|
deallocate (a, b, c)
|
|
if (allocated (a) .or. allocated (b) .or. allocated (c)) call abort
|
|
allocate (a, b(p:9), c(3, p:7))
|
|
a = p
|
|
b = p
|
|
c = p
|
|
if (.not.allocated (a)) call abort
|
|
if (.not.allocated (b) .or. size (b) /= (10 - p)) call abort
|
|
if (lbound (b, 1) /= p .or. ubound (b, 1) /= 9) call abort
|
|
if (.not.allocated (c) .or. size (c) /= (3 * (8 - p))) call abort
|
|
if (size (c, 1) /= 3 .or. size (c, 2) /= (8 - p)) call abort
|
|
if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort
|
|
if (lbound (c, 2) /= p .or. ubound (c, 2) /= 7) call abort
|
|
if (a /= p .or. any (b /= p) .or. any (c /= p)) call abort
|
|
!$omp end parallel
|
|
|
|
!$omp parallel num_threads (4) copyin (a, b, c)
|
|
if (.not.allocated (a)) call abort
|
|
if (.not.allocated (b) .or. size (b) /= 10) call abort
|
|
if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 9) call abort
|
|
if (.not.allocated (c) .or. size (c) /= 24) call abort
|
|
if (size (c, 1) /= 3 .or. size (c, 2) /= 8) call abort
|
|
if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort
|
|
if (lbound (c, 2) /= 0 .or. ubound (c, 2) /= 7) call abort
|
|
if (a /= 0 .or. any (b /= 0) .or. any (c /= 0)) call abort
|
|
!$omp end parallel
|
|
|
|
deallocate (a, b, c)
|
|
if (allocated (a) .or. allocated (b) .or. allocated (c)) call abort
|
|
|
|
!$omp parallel num_threads (4) copyin (a, b, c)
|
|
if (allocated (a) .or. allocated (b) .or. allocated (c)) call abort
|
|
!$omp end parallel
|
|
end
|