I'm really confused with what's happening here. I have a main program using a module:
dum.for:
program stest
use dum
implicit none
integer i
nFluids = 2
allocate(nTemps(2))
nTemps(1) = 3
nTemps(2) = 4
allocate(Fluids(nFluids))
do i = 1, nFluids
allocate(Fluids(i)%DataPoints(nTemps(i)))
enddo
Fluids(1)%DataPoints(1) = 1
Fluids(1)%DataPoints(2) = 2
Fluids(1)%DataPoints(3) = 3
end
and dum_mod.for:
module dum
integer :: nFluids
integer, pointer :: nTemps(:) => null()
type FluidType
sequence
integer, pointer :: DataPoints(:) => null()
end type FluidType
type(FluidType), pointer :: Fluids(:) => null()
end module
So I have 2 fluids, the first has 3 datapoints, the second should have 4 datapoints. When I run these in the debugger, just after the allocation of the Fluids array (before the do loop), if I open up Fluids in the watch window, and then open Fluids(1) and Fluids(2), it already shows 2 datapoint entries for each fluid. Firstly, it shouldn't show any entries there yet, since I haven't allocated the datapoint arrays yet. Secondly, after allocating them it still shows 2 and 2, but there are supposed to be 3 and 4 respectively. Why?
And then, later on when I try to assign values to the datapoints, the first gets its value of 1, but the second doesn't get its value of 2, and of course the 3rd isn't shown.
What's going on here? I upgraded to v28, but still have the problem.
Adrian
