1! PR middle-end/57089
2! { dg-do compile }
3! { dg-options "-O -fopenmp" }
4  SUBROUTINE T()
5    INTEGER            :: npoints, grad_deriv
6    SELECT CASE(grad_deriv)
7    CASE (0)
8       !$omp do
9       DO ii=1,npoints
10       END DO
11    END SELECT
12  END SUBROUTINE
13