PR inline-asm/84742

[official-gcc.git] / gcc / testsuite / gfortran.dg / gomp / pr57089.f90

! PR middle-end/57089
! { dg-do compile }
! { dg-options "-O -fopenmp" }
  SUBROUTINE T()
    INTEGER            :: npoints, grad_deriv
    SELECT CASE(grad_deriv)
    CASE (0)
       !$omp do
       DO ii=1,npoints
       END DO
    END SELECT
  END SUBROUTINE