diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/gomp/allocatable_components_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/gomp/allocatable_components_1.f90 | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/gomp/allocatable_components_1.f90 b/gcc/testsuite/gfortran.dg/gomp/allocatable_components_1.f90 new file mode 100644 index 000000000..225d0a2b5 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/gomp/allocatable_components_1.f90 @@ -0,0 +1,59 @@ +! { dg-do compile } +! +! PR fortran/32467 +! Derived types with allocatable components +! + +MODULE test_allocatable_components + type :: t + integer, allocatable :: a(:) + end type + +CONTAINS + SUBROUTINE test_copyin() + TYPE(t), SAVE :: a + + !$omp threadprivate(a) + !$omp parallel copyin(a) ! { dg-error "has ALLOCATABLE components" } + ! do something + !$omp end parallel + END SUBROUTINE + + SUBROUTINE test_copyprivate() + TYPE(t) :: a + + !$omp single ! { dg-error "has ALLOCATABLE components" } + ! do something + !$omp end single copyprivate (a) + END SUBROUTINE + + SUBROUTINE test_firstprivate + TYPE(t) :: a + + !$omp parallel firstprivate(a) ! { dg-error "has ALLOCATABLE components" } + ! do something + !$omp end parallel + END SUBROUTINE + + SUBROUTINE test_lastprivate + TYPE(t) :: a + INTEGER :: i + + !$omp parallel do lastprivate(a) ! { dg-error "has ALLOCATABLE components" } + DO i = 1, 1 + END DO + !$omp end parallel do + END SUBROUTINE + + SUBROUTINE test_reduction + TYPE(t) :: a(10) + INTEGER :: i + + !$omp parallel do reduction(+: a) ! { dg-error "must be of numeric type" } + DO i = 1, SIZE(a) + END DO + !$omp end parallel do + END SUBROUTINE +END MODULE + +! { dg-final { cleanup-modules "test_allocatable_components" } } |