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