b78fd58d22
Only some fortran source files in flang/test/Semantics have been modified. The remaining files will be cleaned up in subsequent commits.
21 lines
435 B
Fortran
21 lines
435 B
Fortran
! RUN: %python %S/../test_errors.py %s %flang -fopenacc -pedantic
|
|
|
|
module mm_acc_rout_function
|
|
contains
|
|
integer function dosomething(res)
|
|
!$acc routine seq
|
|
integer :: res
|
|
dosomething = res + 1
|
|
end function
|
|
end module
|
|
|
|
program main
|
|
use mm_acc_rout_function
|
|
implicit none
|
|
integer :: res = 1
|
|
!$acc serial default(none) copy(res)
|
|
res = dosomething(res)
|
|
!$acc end serial
|
|
end program
|
|
|