| Fixed:
(ladebug) c
[2] stopped at [main$l461:12 0x120001850]
12 d%a = 2
(ladebug) W
2
3 type t
4 integer a
5 type (t), pointer :: b
6 end type t
7
8 type (t) c
9 type (t), target :: d
10
11 c%a = 1
> 12 d%a = 2
13 NULLIFY(d%b)
14 c%b => d
15
16 print *,c%b%a
17 end
(ladebug) n
stopped at [main$l461:13 0x12000185c]
13 NULLIFY(d%b)
(ladebug) print c
type T
A = 1
B = 0x0
end type
(ladebug) print c%b
0x0
(ladebug) cont to 26
Warning: No executable code at source line 26 in file 'l461.f90'.
The "cont" command failed.
(ladebug) cont to 16
stopped at [main$l461:16 0x120001874]
16 print *,c%b%a
(ladebug) print c%b%a
2
(ladebug) n
2
stopped at [main$l461:17 0x1200018ac]
17 end
(ladebug)
|