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
