codekingpro/portable-devtools
114k
1function gh17797(f, y) result(r)
2 external f
3 integer(8) :: r, f
4 integer(8), dimension(:) :: y
5 r = f(0)
6 r = r + sum(y)
7end function gh17797
8 1function gh17797(f, y) result(r)
2 external f
3 integer(8) :: r, f
4 integer(8), dimension(:) :: y
5 r = f(0)
6 r = r + sum(y)
7end function gh17797
8