OSDN Git Service

PR fortran/44036
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / gomp / pr44036-1.f90
1 ! PR fortran/44036
2 ! { dg-do compile }
3 ! { dg-options "-fopenmp" }
4 subroutine foo(a, b)
5   integer, external :: a
6   integer, external, pointer :: b
7   integer, external :: c
8   integer, external, pointer :: d
9   integer :: x
10   x = 6
11 !$omp parallel default(none) private (x)
12   x = a(4)
13 !$omp end parallel
14 !$omp parallel default(none) private (x)        ! { dg-error "enclosing parallel" }
15   x = b(5)                                      ! { dg-error "not specified in" "" { target *-*-* } 11 }
16 !$omp end parallel
17 !$omp parallel default(none) private (x)
18   x = c(6)
19 !$omp end parallel
20   d => a
21 !$omp parallel default(none) private (x)        ! { dg-error "enclosing parallel" }
22   x = d(7)                                      ! { dg-error "not specified in" }
23 !$omp end parallel
24 end