Sign in
llvm
/
llvm-archive
/
67ca873b99b7e631820d261833301c41ad8006b1
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
appendix-a
/
a.21.3.f90
blob: 97ca8f45812b9fcd8cfd617ef77be9201fe4dc53 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
SUBROUTINE A21_GOOD
(
N
)
INTEGER N
!
$OMP DO ORDERED
DO I
=
1
,
N
IF
(
I
<=
10
)
THEN
!
$OMP ORDERED
CALL WORK
(
I
)
!
$OMP
END
ORDERED
ENDIF
IF
(
I
>
10
)
THEN
!
$OMP ORDERED
CALL WORK
(
I
+
1
)
!
$OMP
END
ORDERED
ENDIF
ENDDO
END
SUBROUTINE A21_GOOD