Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
gomp
/
pr57089.f90
blob: 49eef78bff07568d658885e713476c2fd4795b3b [
file
] [
log
] [
blame
]
!
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