[Bug fortran/57042] [4.7/4.8 Regression] ICE/Segfault with -fdump-parse-tree

[janus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57042

--- Comment #7 from janus at gcc dot gnu.org ---
(In reply to Thomas Koenig from comment #4)
> Other functions returning characters have a bogus
> typespec:

Huh. Problem with implicit typing?

Adding 'implicit none' yields an unknown type for 'adjustl':


Namespace: A-Z: (UNKNOWN 0)
procedure name = main
  symtree: 'adjustl'     || symbol: 'adjustl'      
    type spec : (UNKNOWN 0)
    attributes: (PROCEDURE  FUNCTION)
    result: adjustl
  symtree: 'main'        || symbol: 'main'         
    type spec : (UNKNOWN 0)
    attributes: (PROGRAM PUBLIC  SUBROUTINE)

  code:
  WRITE UNIT=6 FMT=-1
  TRANSFER 'a   '
  DT_END