https://gcc.gnu.org/bugzilla/show_bug.cgi?id=60526
--- Comment #9 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Here is the AST dump.
Note the upcase letter in the symtree for the type.
We are probably missing an upcase string compare there...
Namespace: A-H: (REAL 4) I-N: (INTEGER 4) O-Z: (REAL 4)
procedure name = MAIN__
symtree: 'MAIN__' || symbol: 'MAIN__'
type spec : (UNKNOWN 0)
attributes: (PROGRAM PUBLIC SUBROUTINE)
symtree: 'X' || symbol: 'x'
type spec : (UNKNOWN 0)
attributes: (DERIVED )
hash: 6231993
Procedure bindings:
Operator bindings:
symtree: 'x' || symbol: 'x'
type spec : (DERIVED x)
attributes: (PROCEDURE FUNCTION)
Generic interfaces: x
code:
