codekingpro/portable-devtools

1        subroutine subb(k)
2          real(8), intent(inout) :: k(:)
3          k=k+1
4        endsubroutine
5
6        subroutine subc(w,k)
7          real(8), intent(in) :: w(:)
8          real(8), intent(out) :: k(size(w))
9          k=w+1
10        endsubroutine
11
12        function t0(value)
13          character value
14          character t0
15          t0 = value
16        endfunction
17