This is the mail archive of the mailing list for the Archer project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: gfortran gdb updates

Hi Jan
Sorry I din't follow up with you on this. The example I gave shows that if the declaration is in the same file as the code, everything is okay. But if I have the declaration in a different module, and use the "use" statement,it fails. When I discovered this I remembered that you were still working on cross module stuff and dropped it.

How is the cross module stuff going?


Jan Kratochvil wrote:
Hi Mathew,

On Wed, 18 Feb 2009 18:37:13 +0100, Mathew Yeates wrote:
Any updates on gfortran support? Jan?

I still have no reproducer of any gfortran non-module problem.

Some time ago I have sent the attached mail where I failed to reproduce the
described problem. You later replied by:
On Thu, 22 Jan 2009 23:25:08 +0100, Mathew Yeates wrote:
okay, I just tried something like
character(len=MAX_LINE_LENGTH) :: spec_name

and it worked!

Therefore could you please send some reproducer (for gfortran) of the problem?



Re: which branch supports gfortran
Jan Kratochvil <>
Thu, 22 Jan 2009 13:58:22 -0800
"Yeates, Matthew C" <>

"Yeates, Matthew C" <>

Hi Mathew,

On Thu, 22 Jan 2009 18:32:19 +0100, Mathew Yeates wrote:
hmmm. I'm still getting
(gdb) p micro_win%n_mw(spec)
Cannot perform substring on this type

Any hint on the declaration of micro_win, n_mw and spec?

Thanks, Jan

$ .../archer-jankratochvil-misc/gdb/gdb -q ./substring
(gdb) l
1 program main
2 type bar
3 integer :: a
4 character*7 :: str
5 end type
6 type(bar) :: p
7 integer :: index = 2
9 p = bar(1, "abcdefg")
10 print *,p%str(index:index)
(gdb) b 10
Breakpoint 1 at 0x4007b2: file substring.f90, line 10.
(gdb) r
Starting program: /tmp/substring

Breakpoint 1, main () at substring.f90:10
10 print *,p%str(index:index)
Current language: auto; currently fortran
(gdb) p p
$1 = ( 1, 'abcdefg' )
(gdb) p p%str
$2 = 'abcdefg'
(gdb) p p%str(index:index)
$3 = 'b'
(gdb) p p%str(index)
$4 = 98 'b'

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]