18 lines
293 B
Fortran
18 lines
293 B
Fortran
|
! RUN: %python %S/../test_errors.py %s %flang -fopenacc
|
||
|
|
|
||
|
|
! Check acc routine in the top level.
|
||
|
|
|
||
|
|
subroutine sub1(a, n)
|
||
|
|
integer :: n
|
||
|
|
real :: a(n)
|
||
|
|
end subroutine sub1
|
||
|
|
|
||
|
|
!$acc routine(sub1)
|
||
|
|
|
||
|
|
!dir$ value=1
|
||
|
|
program test
|
||
|
|
integer, parameter :: N = 10
|
||
|
|
real :: a(N)
|
||
|
|
call sub1(a, N)
|
||
|
|
end program
|