[Bug fortran/82993] New: ICE free_expr0, at fortran/expr.c:445

["gscfq at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

            Bug ID: 82993
           Summary: ICE free_expr0, at fortran/expr.c:445
           Product: gcc
           Version: 8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

With a wrong parameter definition :

$ cat z1.f90
program p
   type t
      real :: a(3)
   end type
   type(t), parameter :: z = 1
   print *, z%a(1)
   print *, z%a
end


$ gfortran-8-20171112 -c z1.f90
f951: internal compiler error: Segmentation fault
0xb61c7f crash_signal
        ../../gcc/toplev.c:325
0x69268b free_expr0
        ../../gcc/fortran/expr.c:445
0x6926ad gfc_free_expr(gfc_expr*)
        ../../gcc/fortran/expr.c:518
0x6efd59 gfc_match_rvalue(gfc_expr**)
        ../../gcc/fortran/primary.c:3250
0x6c655e match_primary
        ../../gcc/fortran/matchexp.c:157
0x6c655e match_level_1
        ../../gcc/fortran/matchexp.c:211
0x6c655e match_mult_operand
        ../../gcc/fortran/matchexp.c:267
0x6c67a8 match_add_operand
        ../../gcc/fortran/matchexp.c:356
0x6c6a3c match_level_2
        ../../gcc/fortran/matchexp.c:480
0x6c6b92 match_level_3
        ../../gcc/fortran/matchexp.c:551
0x6c6ca4 match_level_4
        ../../gcc/fortran/matchexp.c:599
0x6c6ca4 match_and_operand
        ../../gcc/fortran/matchexp.c:693
0x6c6e62 match_or_operand
        ../../gcc/fortran/matchexp.c:722
0x6c6f52 match_equiv_operand
        ../../gcc/fortran/matchexp.c:765
0x6c7042 match_level_5
        ../../gcc/fortran/matchexp.c:811
0x6c63b1 gfc_match_expr(gfc_expr**)
        ../../gcc/fortran/matchexp.c:870
0x6af7a9 match_io_element
        ../../gcc/fortran/io.c:3542
0x6af9f3 match_io_list
        ../../gcc/fortran/io.c:3581
0x6b4214 match_io
        ../../gcc/fortran/io.c:4242
0x6b592a gfc_match_print()
        ../../gcc/fortran/io.c:4298