[Bug fortran/78122] New: internal compiler error: in get, at cgraph.h:395

["physiker at toast2 dot net" <gcc-bugzilla at gcc dot gnu dot org>]

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

            Bug ID: 78122
           Summary: internal compiler error: in get, at cgraph.h:395
           Product: gcc
           Version: 7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: physiker at toast2 dot net
  Target Milestone: ---

Compiling the file pi.f90 causes an internal compiler error in get, at
cgraph.h:395. When the program-name pi (after the program statement) is
replaced by p, the code compiles without triggering an ice (see below).   

pi.f90
program pi
    implicit none

    real, target  :: a
    real, pointer :: p => a

    a = 1.

    write(*, *)  'a:', a
    write(*, *)  'p:', p

end program pi


LANG=C gfortran-7 -o pi pi.f90 -W -Wall -v
Driving: gfortran-7 -o pi pi.f90 -W -Wall -v -mmacosx-version-min=10.9.4 -l
gfortran -shared-libgcc
Using built-in specs.
COLLECT_GCC=gfortran-7
COLLECT_LTO_WRAPPER=/usr/local/libexec/gcc/x86_64-apple-darwin13.4.0/7.0.0/lto-wrapper
Target: x86_64-apple-darwin13.4.0
Configured with: ../gcc/configure --enable-languages=c,c++,fortran,lto
--with-gmp=/sw --with-libiconv-prefix=/sw --with-isl=/sw --with-mpc=/sw
--with-system-zlib --program-suffix=-7
Thread model: posix
gcc version 7.0.0 20161025 (experimental) (GCC) 
COLLECT_GCC_OPTIONS='-o' 'pi' '-Wextra' '-Wall' '-v'
'-mmacosx-version-min=10.9.4' '-shared-libgcc' '-mtune=core2'
 /usr/local/libexec/gcc/x86_64-apple-darwin13.4.0/7.0.0/f951 pi.f90 -fPIC
-quiet -dumpbase pi.f90 -mmacosx-version-min=10.9.4 -mtune=core2 -auxbase pi
-Wextra -Wall -version -fintrinsic-modules-path
/usr/local/lib/gcc/x86_64-apple-darwin13.4.0/7.0.0/finclude -o
/var/folders/97/4qnhjhtn25s86s9hkz0h37_m0000gn/T//ccA3BI7y.s
GNU Fortran (GCC) version 7.0.0 20161025 (experimental)
(x86_64-apple-darwin13.4.0)
        compiled by GNU C version 7.0.0 20161025 (experimental), GMP version
6.1.0, MPFR version 3.1.4, MPC version 1.0.3, isl version 0.15
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
GNU Fortran2008 (GCC) version 7.0.0 20161025 (experimental)
(x86_64-apple-darwin13.4.0)
        compiled by GNU C version 7.0.0 20161025 (experimental), GMP version
6.1.0, MPFR version 3.1.4, MPC version 1.0.3, isl version 0.15
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
f951: internal compiler error: in get, at cgraph.h:395

f951: internal compiler error: Abort trap: 6
gfortran-7: internal compiler error: Abort trap: 6 (program f951)
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.

s/pi/p

LANG=C gfortran-7 -o pi pi.f90 -W -Wall 
pi.f90:5:22:

     real, pointer :: p => a
                      1
Error: Symbol 'p' at (1) cannot have a type
pi.f90:10:24:

     write(*, *)  'p:', p
                        1
Error: Symbol at (1) is not appropriate for an expression