Fix indentation for printing Fortran types with pointers
authorFrank Penczek <frank.penczek@intel.com>
Fri, 8 Sep 2017 13:11:47 +0000 (15:11 +0200)
committerTim Wiederhake <tim.wiederhake@intel.com>
Fri, 8 Sep 2017 13:11:47 +0000 (15:11 +0200)
commita5ad232b3e6f39cf2955a8ec3aa4355359a9f72e
treed9b5fbe52280838ba874a949f016a9895c653766
parent1de031c80b121db6f59d189d150ab2b69f6ede21
Fix indentation for printing Fortran types with pointers

Printing the prefix "PTR TO -> (" resp. "REF TO ->(" ignored the active
indentation level.  This caused inconsistent appearance of user-defined
Fortran types containing pointers.  Fix by using "fprintfi_filtered" with the
current indentation level for outputting the prefix string.  Add test case
ptr-indentation.

Example using 'ptype' on object of type:
  type TypeWithPointer
    integer i
    integer, pointer:: p
  end type TypeWithPointer

Before:
  type = Type typewithpointer
      integer(kind=4) :: i
  PTR TO -> ( integer(kind=4) :: p)
  End Type typewithpointer

After:
  type = Type typewithpointer
      integer(kind=4) :: i
      PTR TO -> ( integer(kind=4) :: p)
  End Type typewithpointer
gdb/ChangeLog
gdb/f-typeprint.c
gdb/testsuite/ChangeLog
gdb/testsuite/gdb.fortran/ptr-indentation.exp [new file with mode: 0644]
gdb/testsuite/gdb.fortran/ptr-indentation.f90 [new file with mode: 0644]