Alternative VE Offloading  2.8.2
examples/VE/libvefortran.f90
1 SUBROUTINE sub1(x, ret)
2  implicit none
3  INTEGER, INTENT(IN) :: x
4  INTEGER, INTENT(OUT) :: ret
5  ret = x + 1
6 END SUBROUTINE sub1
7 
8 INTEGER FUNCTION func1(x, y)
9  implicit none
10  INTEGER, value :: x, y
11  func1 = x + y
12 END FUNCTION func1