blob: 62ba245236b1a96c584f00f3092cb41f0f72804c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { dg-do compile }
SUBROUTINE WRONG6(N)
INTEGER N
!$OMP PARALLEL DEFAULT(SHARED)
!$OMP SINGLE
CALL WORK(N,1)
! incorrect nesting of barrier region in a single region
!$OMP BARRIER ! { dg-warning "may not be closely nested" }
CALL WORK(N,2)
!$OMP END SINGLE
!$OMP END PARALLEL
END SUBROUTINE WRONG6
|
