Fortran 90 構造型の表示

構造体、f90 構造型を dbx で表示できます。

demo% f90 -g DebStruct.f90
demo% dbx a.out
a.out の読み込み中
ld.so.1 の読み込み中
  ......
(dbx) list 1,$
    1   Program Struct  ! Debug a Structure
    2       TYPE product
    3           INTEGER         id
    4           CHARACTER*16    name
    5           CHARACTER*8     model
    6           REAL            cost
    7           REAL            price
    8       END TYPE product
    9
   10       TYPE(product) :: prod1
   11
   12       prod1%id = 82
   13       prod1%name = "Coffe  Cup"
   14       prod1%model = "XL"
   15       prod1%cost = 24.0
   16       prod1%price = 104.0
   17       WRITE (*, *) prod1%name
   18   END
(dbx) stop at 17
(2) stop at "DebStruct.f90":17
(dbx) run
実行中: a.out
(プロセス id 23677)
MAIN で停止しました 行番号 17  ファイル "DebStruct.f90"
   17       WRITE (*, *) prod1%name
(dbx) whatis prod1
product  prod1
(dbx) whatis -t product
type product
    INTEGER*4 id
    character*16 name
    character*8 model
    REAL*4 cost
    REAL*4 price
end type product
(dbx) n
 Coffe  Cup
MAIN で停止しました 行番号 18  ファイル "DebStruct.f90"
   18   END
(dbx) print prod1
prod1 = (
    id    = 82
    name  = "Coffe  Cup      "
    model = "XL      "
    cost  = 24.0
    price = 104.0
)