mirror of
https://review.haiku-os.org/buildtools
synced 2025-02-07 14:34:51 +01:00
92b3138b83
Updated dependencies: * GMP 6.2.1 * ISL 0.24 * MPL 1.2.1 * MPFR 4.1.0 The dependencies were pulled in by running the ./contrib/download_prerequisites script and then manually removing the symbolic links and archives, and renaming the directories (i.e mv isl-0.24 to isl)
30 lines
596 B
Fortran
30 lines
596 B
Fortran
! PR90030.
|
|
! Test if the array data associated with c is properly aligned
|
|
! on the accelerator. If it is not, this program will crash.
|
|
|
|
! This is also included from '../libgomp.fortran/pr90030.f90'.
|
|
|
|
! { dg-do run }
|
|
|
|
program routine_align_main
|
|
implicit none
|
|
integer :: i, n
|
|
real*8, dimension(:), allocatable :: c
|
|
|
|
n = 10
|
|
|
|
allocate (c(n))
|
|
|
|
!$omp target map(to: n) map(from: c(1:n))
|
|
!$acc parallel copyin(n) copyout(c(1:n))
|
|
do i = 1, n
|
|
c(i) = i
|
|
enddo
|
|
!$acc end parallel
|
|
!$omp end target
|
|
|
|
do i = 1, n
|
|
if (c(i) .ne. i) stop i
|
|
enddo
|
|
end program routine_align_main
|