在C/C++中,如果我想将一个指针打印成数组,通常会使用
name@dimension
的格式。那么在Fortran中,该怎么做才能实现类似的效果呢?Fortran 90使用描述符来表示其数组的维度(即形状)并传递假设形状的数组参数。此外Fortran中的指针是特殊的,它们只能指向受限目标。这比C/C++在Fortran中允许更好的调试器内省。只需使用print arr(index)
或其中一个info
命令 - 不需要花俏的东西。
示例代码:
program arr
real, dimension(40) :: stack_array
real, allocatable, dimension(:), target :: heap_array
real, dimension(:), pointer :: ptr_array
integer :: i
! Interface required because of the assumed-shape array argument
interface
subroutine foo(bar, baz, qux, ptr)
real, dimension(:) :: bar
real, dimension(40) :: baz
real, dimension(*) :: qux
real, dimension(:), pointer :: ptr
end subroutine foo
end interface
allocate(heap_array(40))
forall(i = 1:40) stack_array(i) = i
heap_array = stack_array + 2
ptr_array => heap_array
print *, stack_array(1)
call foo(stack_array, stack_array, stack_array, ptr_array)
deallocate(heap_array)
end program arr
subroutine foo(bar, baz, qux, ptr)
real, dimension(:) :: bar
real, dimension(40) :: baz
real, dimension(*) :: qux
real, dimension(:), pointer :: ptr
print *, bar(1), baz(1), qux(1), ptr(1)
end subroutine foo
使用调试信息编译并在 gdb
中运行:
$ gfortran -g -o arr.x arr.f90 && gdb ./arr.x
...
(gdb) info locals
heap_array = (3, 4, 5, 6, 7, 8, 9, 10, 11, 12, ...
ptr_array = (3, 4, 5, 6, 7, 8, 9, 10, 11, 12, ...
stack_array = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, ...
(gdb) print heap_array
$1 = (3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ...
(gdb) print ptr_array(3:7)
$2 = (5, 6, 7, 8, 9)
...
(gdb) info args
bar = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, ...
baz = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, ...
qux = ()
ptr = (3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ...
由于明显的原因,它无法显示假定大小数组参数的内容,但您可以逐个打印每个元素:
(gdb) print qux(1)
$5 = 1
(gdb) print qux(2)
$6 = 2
(gdb) print qux(15)
$7 = 15
请注意,在假定大小的数组参数上打印数组部分无法正常工作,因为它们不是通过描述符传递的,gdb
会遇到麻烦:
(gdb) print qux(1:8)
$8 = (0, 0, 0, 0, 0, 0, 2.25609053e-43, 0)
(gdb) print qux(2:9)
$9 = (0, 0, 0, 0, 0, 0, 2.25609053e-43, 0)
在 gdb 7.7.1 版本中,以下方法对我有效:
print A(1)@N
A代表数组,N代表要打印的元素数量。对于二维数组:
print A(1,1)@N
我知道这是一个老问题,但是在谷歌查询"gdb打印Fortran数组"会跳转到这里。
gfortran 4.4.6
(也测试过4.7.0
)和gdb 7.2-50.e16
在Scientific Linux 6.2(RHEL 6.2)上。您是否使用调试信息进行编译?(修复了缺少的参数 - 感谢指出) - Hristo Iliev(0)
作为输出。 - steabertfoo
处中断后,show language
会显示当前源语言为“auto;当前为Fortran”。
- Hristo Iliev