[Bug fortran/22497] New: Unable to access base type of derived types

["zed.three at gmail dot com" <sourceware-bugzilla at sourceware dot org>]

https://sourceware.org/bugzilla/show_bug.cgi?id=22497

            Bug ID: 22497
           Summary: Unable to access base type of derived types
           Product: gdb
           Version: 8.0.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
          Assignee: unassigned at sourceware dot org
          Reporter: zed.three at gmail dot com
  Target Milestone: ---

Given the program below, I get the following error when trying to print the
base type of "bar":

(gdb) p bar%my_type 
A syntax error in expression, near `my_type'.
(gdb) p bar%my_int 
There is no member named my_int.
(gdb) p bar%my_type%my_int
A syntax error in expression, near `my_type%my_int'.
(gdb) p bar
$1 = ( my_type = ( my_int = 1 ) )

Note that all of the expressions I'm trying to print are valid Fortran
expressions, and that `p foo%my_int` works

MVCE:

program mvce
  implicit none

  type :: my_type
     integer :: my_int
  end type my_type

  type, extends(my_type) :: extended_type
  end type extended_type

  type(my_type) :: foo
  type(extended_type) :: bar

  foo%my_int = 0
  bar%my_int = 1

  print*, foo, bar

end program mvce

-- 
You are receiving this mail because:
You are on the CC list for the bug.