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