codekingpro/portable-devtools
115k
1module mod
2 integer :: i
3 integer :: x(4)
4 real, dimension(2,3) :: a
5 real, allocatable, dimension(:,:) :: b
6contains
7 subroutine foo
8 integer :: k
9 k = 1
10 a(1,2) = a(1,2)+3
11 end subroutine foo
12end module mod
13 