Re: gfortran gdb updates

[Jan Kratochvil <jan dot kratochvil at redhat dot com>]

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

--- Begin Message ---

• From: Jan Kratochvil <jan dot kratochvil at redhat dot com>
• To: Mathew Yeates <myeates at jpl dot nasa dot gov>
• Date: Thu, 22 Jan 2009 22:58:22 +0100
• Subject: Re: which branch supports gfortran
• References: <49779892.6090508@jpl.nasa.gov> <20090121225857.GA25359@host0.dyn.jankratochvil.net> <4977D1D2.8050505@jpl.nasa.gov> <20090122085918.GA19280@host0.dyn.jankratochvil.net> <4978ADA3.8030506@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'

program main
  type bar
    integer :: a
    character*7 :: str
  end type
  type(bar) :: p
  integer :: index = 2

  p = bar(1, "abcdefg")
  print *,p%str(index:index)
end program main

--- End Message ---