4 ! Derived types with allocatable components
7 MODULE test_allocatable_components
9 integer, allocatable :: a(:)
13 SUBROUTINE test_copyin()
16 !$omp threadprivate(a)
17 !$omp parallel copyin(a) ! { dg-error "has ALLOCATABLE components" }
22 SUBROUTINE test_copyprivate()
25 !$omp single ! { dg-error "has ALLOCATABLE components" }
27 !$omp end single copyprivate (a)
30 SUBROUTINE test_firstprivate
33 !$omp parallel firstprivate(a) ! { dg-error "has ALLOCATABLE components" }
38 SUBROUTINE test_lastprivate
42 !$omp parallel do lastprivate(a) ! { dg-error "has ALLOCATABLE components" }
48 SUBROUTINE test_reduction
52 !$omp parallel do reduction(+: a) ! { dg-error "must be of numeric type" }
59 ! { dg-final { cleanup-modules "test_allocatable_components" } }