1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
module module_nullify_03
implicit none
integer, parameter, private :: mxdim = 3
type :: rp1d
real(8), dimension(:), pointer :: f
end type
type :: sds
integer :: ndim
integer, dimension(mxdim) :: dims
logical :: hdf32
type(rp1d), dimension(mxdim) :: scales
real(8), dimension(:,:,:), pointer :: f
end type
end module
program nullify_03
use module_nullify_03
implicit none
type(sds) :: s
! allocate(s%scales(1)%f(2))
! s%scales(1)%f=[1,2]
! print *, 'Scale 0:', s%scales(1)%f
nullify(s%scales(1)%f)
end program
|
