Re: gfortran gdb updates

[Mathew Yeates <myeates at jpl dot nasa dot gov>]

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?

Mathew

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?
>
>
> Thanks,
> Jan
>   
>
> ------------------------------------------------------------------------
>
> Subject:
> Re: which branch supports gfortran
> From:
> Jan Kratochvil <jan.kratochvil@redhat.com>
> Date:
> Thu, 22 Jan 2009 13:58:22 -0800
> To:
> "Yeates, Matthew C" <mathew.c.yeates@jpl.nasa.gov>
>
> To:
> "Yeates, Matthew C" <mathew.c.yeates@jpl.nasa.gov>
>
>
> 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
> 8	
> 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'
>