[Bug fortran/78122] [5/6/7 Regression] ICE in get, at cgraph.h:395

[physiker at toast2 dot net]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78122

--- Comment #3 from physiker at toast2 dot net ---
(In reply to Martin Liška from comment #2)
> Not being a fortran expert, however ifort rejects the source code:
> 
> /tmp/pi.f90(5): error #6592: This symbol must be a defined parameter, an
> enumerator, or an argument of an inquiry function that evaluates to a
> compile-time constant.   [A]
>     real, pointer :: p => a
> --------------------------^
> /tmp/pi.f90(5): error #6973: This is not a valid initialization expression. 
> [A]
>     real, pointer :: p => a
> --------------------------^
> 
> Problem is that symtab_node::get is called for a local symbol.

Ifort version 17 (linux) compiles pi.f90.
ifort -o pi pi.f90 -warn all -check all 
 ./pi
 a:   1.000000    
 p:  0.0000000E+00
 T
ifort -v
ifort version 17.0.0