| This problem has been corrected.
(ladebug) stop in p
[#1: stop in subroutine p() ]
(ladebug) stop in a
[#2: stop in subroutine a(real*4) ]
(ladebug) stop in c
[#3: stop in subroutine C(real*4) ]
(ladebug) run
[1] stopped at [p:10 0x12000191c]
10 call a(3.14)
(ladebug) c
[2] stopped at [a:2 0x1200018dc]
2 call c(b)
(ladebug) c
[3] stopped at [C:5 0x120001854]
5 print *, b, d
(ladebug) t
>0 0x120001854 in C(D=3.14) l275.f90:5
#1 0x1200018e4 in a(B=3.14) l275.f90:2
#2 0x120001924 in p() l275.f90:10
#3 0x12000180c in main() for_main.c:203
(ladebug) W
1 subroutine a(b)
2 call c(b)
3 contains
4 subroutine c(d)
> 5 print *, b, d
6 end subroutine
7 end subroutine
8
9 program p
10 call a(3.14)
11 end program
12
(ladebug) whatis b
real*4 b
(ladebug) print b
3.14
(ladebug) print c
(function [0x120001840])
(ladebug) print d
3.14
(ladebug) whereis c
"l275.f90"`a`C
(ladebug) whereis d
"l275.f90"`a`C`D
(ladebug) whereis b
"l275.f90"`a`B
(ladebug)
|