You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
55 lines
1.6 KiB
55 lines
1.6 KiB
! RUN: %S/test_errors.sh %s %t %f18
|
|
! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if
|
|
! it belongs to that construct or an outer construct.
|
|
|
|
subroutine do_concurrent_test1(n)
|
|
implicit none
|
|
integer :: n
|
|
integer :: j,k
|
|
mydoc: do concurrent(j=1:n)
|
|
mydo: do k=1,n
|
|
!ERROR: EXIT must not leave a DO CONCURRENT statement
|
|
if (k==5) exit mydoc
|
|
if (j==10) exit mydo
|
|
end do mydo
|
|
end do mydoc
|
|
end subroutine do_concurrent_test1
|
|
|
|
subroutine do_concurrent_test2(n)
|
|
implicit none
|
|
integer :: j,k,n
|
|
mydoc: do concurrent(j=1:n)
|
|
!ERROR: EXIT must not leave a DO CONCURRENT statement
|
|
if (k==5) exit
|
|
end do mydoc
|
|
end subroutine do_concurrent_test2
|
|
|
|
subroutine do_concurrent_test3(n)
|
|
implicit none
|
|
integer :: j,k,n
|
|
mytest3: if (n>0) then
|
|
mydoc: do concurrent(j=1:n)
|
|
do k=1,n
|
|
!ERROR: EXIT must not leave a DO CONCURRENT statement
|
|
if (j==10) exit mytest3
|
|
end do
|
|
end do mydoc
|
|
end if mytest3
|
|
end subroutine do_concurrent_test3
|
|
|
|
subroutine do_concurrent_test4(n)
|
|
implicit none
|
|
integer :: j,k,n
|
|
mytest4: if (n>0) then
|
|
mydoc: do concurrent(j=1:n)
|
|
do concurrent(k=1:n)
|
|
!ERROR: EXIT must not leave a DO CONCURRENT statement
|
|
if (k==5) exit
|
|
!ERROR: EXIT must not leave a DO CONCURRENT statement
|
|
!ERROR: EXIT must not leave a DO CONCURRENT statement
|
|
if (j==10) exit mytest4
|
|
end do
|
|
end do mydoc
|
|
end if mytest4
|
|
end subroutine do_concurrent_test4
|