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