Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/pr49792-1.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! PR fortran/49792 ! { dg-do run } subroutine reverse(n, a) integer :: n real(kind=8) :: a(n) !$omp parallel workshare a(:) = a(n:1:-1) !$omp end parallel workshare end subroutine reverse program pr49792 real(kind=8) :: a(16) = [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16] real(kind=8) :: b(16) b(:) = a(16:1:-1) call reverse (16,a) if (any (a.ne.b)) stop 1 end program pr49792