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
)