Fortran Coder

标题: GDB调试fortran程序，如何查看派生类型数据 [打印本页]

作者: 安靖 时间: 2015-5-22 19:17
标题: GDB调试fortran程序，如何查看派生类型数据
本帖最后由安靖于 2015-5-22 20:59 编辑

用gdb调试Fortran程序，如何查看派生类型数据？
例如，查看ndim就可以直接输入： p data%ndim但是要查看coorn里的数据是什么命令呢？ coorn是动态分配的数组
我输入 p data%coorn 提示 =<object is not allocated>
但是coorn明明已经分配好内存了

[Fortran] 纯文本查看 复制代码



!   test2.f90

program main

        use comm_data

        implicit none

        type(core_data) :: data





        call allo_core_data( data, 2, 4)

        data % coorn = 4.0



        write(*,*) data % coorn



        stop

end program main



! comm_data.f90

module comm_data

        implicit none

        

        save

        

        type core_data                

                integer ndim                

                integer npoint

                real,    allocatable, dimension(:,:) :: coorn                

        end type core_data        

        

        contains



subroutine allo_core_data(        data, ndim, npoint )

        implicit none

        type(core_data), intent(out) :: data

        integer, intent(in) :: npoint

        integer, intent(in) :: ndim

        

        data % ndim = ndim

        data % npoint = npoint

        

        allocate( data % coorn( data % ndim, data % npoint ) )

        data % coorn = 0.0

        

end subroutine allo_core_data





end module comm_data

makefile

TARGET  = test.out
GC       = ifort
CFLAGS  = -fpp -g
SOR       = comm_data.f90 test2.f90
OBJS       = test2.o comm_data.o
$(OBJS):
      @echo "-----------------------------------"
      @echo "Compiling..."
      @echo "-----------------------------------"
      @$(GC) $(CFLAGS) -c $(SOR) $(INCLUDE)
      @echo "-----------------------------------"
      @echo "Linking..."
      @echo "-----------------------------------"
      @$(GC) $(CFLAGS) -o $(TARGET) $(OBJS) $(LIBS)
      @echo "-----------------------------------"
      @echo "Deleting OBJ & MOD files..."
      @echo "-----------------------------------"
      @rm -fr *.o
      @echo "-----------------------------------"
clean:
      @rm -fr *.o *.mod
      @rm -fr $(TARGET)

test2.f90

174 Bytes, 下载次数: 0

comm_data.f90

547 Bytes, 下载次数: 0

作者: 安靖 时间: 2015-5-22 21:03
makefile文件不能添加附件，只能手工复制了

作者: 安靖 时间: 2015-5-23 17:34
看来用gdb的人不多啊

作者: 好小爱新 时间: 2015-6-15 08:57
您用ifort配合gdb?确实没试过，不过如果是windows版本的话，用打过董兄(xunxun)的补丁的gdb就可以用print显示结构内数据及动态数组数据了。

作者: fcode 时间: 2015-6-15 13:42
小爱，么么哒

作者: 安靖 时间: 2015-7-2 12:04

好小爱新发表于 2015-6-15 08:57
您用ifort配合gdb?确实没试过，不过如果是windows版本的话，用打过董兄(xunxun)的补丁的gdb就可以用print显 ...

linux版本的。后来也是没有解决掉，只靠write慢慢调试

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)