Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-fortran/routine-3.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! { dg-options "-fno-inline" } integer, parameter :: n = 10 integer :: a(n), i integer, external :: fact !$acc routine (fact) !$acc parallel !$acc loop do i = 1, n a(i) = fact (i) end do !$acc end parallel do i = 1, n if (a(i) .ne. fact(i)) call abort end do end recursive function fact (x) result (res) !$acc routine integer, intent(in) :: x integer :: res if (x < 1) then res = 1 else res = x * fact (x - 1) end if end function fact