blob: 4505e0cbc31e50a75df94b30cd53cf923659379d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
module mod
integer :: i
integer :: x(4)
real, dimension(2,3) :: a
real, allocatable, dimension(:,:) :: b
contains
subroutine foo
integer :: k
k = 1
a(1,2) = a(1,2)+3
end subroutine foo
end module mod
|