21 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenacc -pedantic2 3module mm_acc_rout_function4contains5 integer function dosomething(res)6 !$acc routine seq7 integer :: res8 dosomething = res + 19 end function10end module11 12program main13 use mm_acc_rout_function14 implicit none15 integer :: res = 116 !$acc serial default(none) copy(res)17 res = dosomething(res)18 !$acc end serial19end program20 21