1! { dg-do compile }
2      SUBROUTINE A9()
3!$OMP PARALLEL SECTIONS
4!$OMP SECTION
5        CALL XAXIS()
6!$OMP SECTION
7        CALL YAXIS()
8!$OMP SECTION
9        CALL ZAXIS()
10!$OMP END PARALLEL SECTIONS
11      END SUBROUTINE A9
12