|
ru.linux
- RU.LINUX ---------------------------------------------------------------------
From : Kirill Smelkov 2:5030/885.37 22 Apr 2001 22:11:22
To : Vladimir Stavrov
Subject : Re: Может тyт кто с фоpтpаном (g77 + gdb) дело имел?
--------------------------------------------------------------------------------
22 Апp 01 07:46, Vladimir Stavrov -> Kirill Smelkov:
[...]
>>
>> Breakpoint 1, aexpm_ (n=0xbffea184, nmax=0xbffea180, a=0xe8423a0,
>> t=0xe8471c0, td=0xe85aa40, te=0xe85ad60, tz=0xe85b080,
>> ifail=0xbffea170) at aexpm.for:41 41 DO 10 I=1,N (gdb) l aexpm_
[...]
>> 6 SUBROUTINE AEXPM(N,NMAX,A,T,TD,TE,TZ,IFAIL)
[...]
>> 25 INTEGER N, NMAX
>> 26 REAL*8 A(NMAX,NMAX)
>> 27 REAL*8 T(2*NMAX,2*NMAX)
>> 28 REAL*8 TD(2*NMAX)
>> 29 REAL*8 TE(2*NMAX)
>> 30 REAL*8 TZ(2*NMAX,2*NMAX)
[...]
>> (gdb) p n
>> $1 = (PTR TO -> ( integer )) 0xbffea184
>> (gdb) p *n
>> $2 = 4
[...]
>> 1: t = (PTR TO -> ( real*8 (-1,-1))) 0xe8471c0
>> (gdb) disp *t
>> 2: **t = ()
[...]
>> (gdb) q
>> The program is running. Exit anyway? (y or n) y
>> [molcas@roro atm]$
>> Script done on Sat Apr 21 22:58:09 2001
>> === Конец gdb.txt ===
>>
>> В чём я не пpав?
>>
VS> disp nmax/*nmax?
=== Hачало gdb2.txt ===
Script started on Sun Apr 22 21:40:10 2001
molcas@roro.zxlink: /home/molcas/progs/atm.[molcas@roro atm]$ gdb a.t.m
GNU gdb 5.0
Copyright 2000 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB. Type "show warranty" for details.
This GDB was configured as "i386-asplinux-linux"...
(gdb) b aexpm_
Breakpoint 1 at 0x80504c2: file aexpm.for, line 41.
(gdb) r
Starting program: /home/molcas/progs/atm/atm
.
.
.
Breakpoint 1, aexpm_ (n=0xbffea174, nmax=0xbffea170, a=0xe8423a0, t=0xe8471c0,
td=0xe85aa40, te=0xe85ad60, tz=0xe85b080,
ifail=0xbffea160) at aexpm.for:41
41 DO 10 I=1,N
(gdb) set language fortran
(gdb) p n
$1 = (PTR TO -> ( integer )) 0xbffea174
(gdb) p *n
$2 = 4
(gdb) p nmax
$3 = (PTR TO -> ( integer )) 0xbffea170
(gdb) p *nmax
$4 = 50
(gdb) ; ok
Undefined command: "". Try "help".
(gdb) p a
$5 = (PTR TO -> ( real*8 (-1,-1))) 0xe8423a0
(gdb) p *a
$6 = ()
(gdb) p t
$7 = (PTR TO -> ( real*8 (-1,-1))) 0xe8471c0
(gdb) p *t
$8 = ()
(gdb) disp *t
1: **t = ()
(gdb) disp td
2: td = (PTR TO -> ( real*8 (-1))) 0xe85aa40
(gdb) disp td...[1@*
яВЭБС ПЫЙВЛБ ЪБЭЙФЩ (core dumped)
.]0;molcas@roro.zxlink: /home/molcas/progs/atm.[molcas@roro atm]$ wow
bash: wow: command not found
.]0;molcas@roro.zxlink: /home/molcas/progs/atm.[molcas@roro atm]$ gdb atm
GNU gdb 5.0
Copyright 2000 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB. Type "show warranty" for details.
This GDB was configured as "i386-asplinux-linux"...
(gdb) b aexmp... ... .pm_
Breakpoint 1 at 0x80504c2: file aexpm.for, line 41.
(gdb) r
Starting program: /home/molcas/progs/atm/atm
.
.
.
Breakpoint 1, aexpm_ (n=0xbffea174, nmax=0xbffea170, a=0xe8423a0, t=0xe8471c0,
td=0xe85aa40, te=0xe85ad60, tz=0xe85b080,
ifail=0xbffea160) at aexpm.for:41
41 DO 10 I=1,N
(gdb) show language
The current source language is "auto; currently c".
(gdb) p n
$1 = (integer *) 0xbffea174
(gdb) p *n
$2 = 4
(gdb) p nmax
$3 = (integer *) 0xbffea170
(gdb) p *nmax
$4 = 50
(gdb) ; ok
Undefined command: "". Try "help".
(gdb) p a
$5 = (double precision (*)[0][536870911]) 0xe8423a0
(gdb) p *a
$6 = {}
(gdb) disp *a
1: *a = {}
(gdb) disp t
2: t = (double precision (*)[0][536870911]) 0xe8471c0
(gdb) disp *t
3: *t = {}
(gdb) disp td
4: td = (double precision (*)[536870911]) 0xe85aa40
(gdb) disp *td
яВЭБС ПЫЙВЛБ ЪБЭЙФЩ (core dumped)
.]0;molcas@roro.zxlink: /home/molcas/progs/atm.[molcas@roro atm]$ exit
Script done on Sun Apr 22 21:45:24 2001
=== Конец gdb2.txt ===
УУУ....
Всего хоpошего, Kirill
--- CHAINIK v.3.14
* Origin: Romantic Robot Station (2:5030/885.37)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
