1! { dg-do compile }
2 SUBROUTINE A14()
3 INTEGER I
4 I=1
5!$OMP PARALLEL SECTIONS
6!$OMP SECTION
7!$OMP CRITICAL (NAME)
8!$OMP PARALLEL
9!$OMP SINGLE
10 I=I+1
11!$OMP END SINGLE
12!$OMP END PARALLEL
13!$OMP END CRITICAL (NAME)
14!$OMP END PARALLEL SECTIONS
15 END SUBROUTINE A14
16