OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [do_concurrent_1.f90] - Rev 694

Compare with Previous | Blame | View Log

! { dg-do compile }
! { dg-options "-fcoarray=single" }
!
! PR fortran/44646
!
! DO CONCURRENT
!
implicit none
integer :: i, j

outer: do, concurrent ( i = 1 : 4)
  do j = 1, 5
    if (j == 1) cycle ! OK
    cycle outer ! OK: C821   FIXME
    exit outer ! { dg-error "EXIT statement at .1. leaves DO CONCURRENT construct" }
  end do
end do outer

do concurrent (j = 1:5)
  cycle ! OK
end do

outer2: do j = 1, 7
  do concurrent (j=1:5:2) ! cycle outer2 - bad: C821
    cycle outer2 ! { dg-error "leaves DO CONCURRENT construct" }
  end do
end do outer2

do concurrent ( i = 1 : 4)
  exit ! { dg-error "EXIT statement at .1. leaves DO CONCURRENT construct" }
end do
end

subroutine foo()
  do concurrent ( i = 1 : 4)
    return   ! { dg-error "Image control statement RETURN" }
    sync all ! { dg-error "Image control statement SYNC" }
    call test () ! { dg-error "Subroutine call to .test. in DO CONCURRENT block at .1. is not PURE" }
    stop ! { dg-error "Image control statement STOP" }
  end do
  do concurrent ( i = 1 : 4)
    critical ! { dg-error "Image control statement CRITICAL at .1. in DO CONCURRENT block" }
      print *, i
!    end critical
  end do

  critical
    do concurrent ( i = 1 : 4) ! OK
    end do
  end critical
end

subroutine caf()
  use iso_fortran_env
  implicit none
  type(lock_type), allocatable :: lock[:]
  integer :: i
  do, concurrent (i = 1:3)
    allocate (lock[*]) ! { dg-error "ALLOCATE of coarray at .1. in DO CONCURRENT block" }
    lock(lock) ! { dg-error "Image control statement LOCK" }
    unlock(lock) ! { dg-error "Image control statement UNLOCK" }
    deallocate (lock) ! { dg-error "DEALLOCATE of coarray at .1. in DO CONCURRENT block" }
  end do

  critical
    allocate (lock[*]) ! { dg-error "ALLOCATE of coarray at .1. in CRITICAL block" }
    lock(lock) ! { dg-error "Image control statement LOCK" }
    unlock(lock) ! { dg-error "Image control statement UNLOCK" }
    deallocate (lock) ! { dg-error "DEALLOCATE of coarray at .1. in CRITICAL block" }
  end critical
end subroutine caf

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.