Alternative VE Offloading
3.0.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
Generated by
1.8.5