Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-fortran/routine-5.f90 @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! { dg-options "-fno-inline" } program main integer :: n n = 5 !$acc parallel copy (n) n = func (n) !$acc end parallel if (n .ne. 6) call abort contains function func (n) result (rc) !$acc routine integer, intent (in) :: n integer :: rc rc = n rc = rc + 1 end function end program