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

[tkoenig at gcc dot gnu.org]

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



--- Comment #4 from Thomas Koenig <tkoenig at gcc dot gnu.org> 2013-05-01 
19:45:13 UTC ---

Other functions returning characters have a bogus

typespec:



ig25@linux-fd1f:~/Krempel/Dump> cat b.f90

program main

  print *,adjustl("   a")

end

ig25@linux-fd1f:~/Krempel/Dump> gfortran -fdump-fortran-original b.f90 



Namespace: A-H: (REAL 4) I-N: (INTEGER 4) O-Z: (REAL 4)

procedure name = main

  symtree: 'adjustl'     || symbol: 'adjustl'      

    type spec : (REAL 4)

    attributes: (PROCEDURE  FUNCTION IMPLICIT-TYPE)

    result: adjustl

  symtree: 'main'        || symbol: 'main'         

    type spec : (UNKNOWN 0)

    attributes: (PROGRAM PUBLIC  SUBROUTINE)



  code:

  WRITE UNIT=6 FMT=-1

  TRANSFER 'a   '

  DT_END