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

--- Comment #13 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
This still segfaults:

ig25@linux-d6cw:/tmp> cat a.f90 


  implicit none

  type Plane
    integer :: M(1,1)
  end type

  type(Plane), parameter :: planes(1) = [ Plane(1) ]
  integer                :: f(1,1)

  f = (planes(1)%M)
  if (f(1,1) /= 1) stop 1
end program
ig25@linux-d6cw:/tmp> gfortran a.f90 
f951: interner Compiler-Fehler: Speicherzugriffsfehler
0xd5b70f crash_signal
        ../../trunk/gcc/toplev.c:325
0x7db0db gfc_clear_shape(__mpz_struct (*) [1], int)
        ../../trunk/gcc/fortran/expr.c:412
0x7db0db gfc_free_shape(__mpz_struct (**) [1], int)
        ../../trunk/gcc/fortran/expr.c:422
0x7db217 free_expr0
        ../../trunk/gcc/fortran/expr.c:503
0x7db3d0 gfc_replace_expr(gfc_expr*, gfc_expr*)
        ../../trunk/gcc/fortran/expr.c:615
0x7de9c8 simplify_const_ref
        ../../trunk/gcc/fortran/expr.c:1796
0x7def2d gfc_simplify_expr(gfc_expr*, int)
        ../../trunk/gcc/fortran/expr.c:2004
0x7df04d simplify_parameter_variable
        ../../trunk/gcc/fortran/expr.c:1869
0x7def0e gfc_simplify_expr(gfc_expr*, int)
        ../../trunk/gcc/fortran/expr.c:1976
0x7dea92 simplify_intrinsic_op
        ../../trunk/gcc/fortran/expr.c:1105
0x7dea92 gfc_simplify_expr(gfc_expr*, int)
        ../../trunk/gcc/fortran/expr.c:1965
0x84a8a9 resolve_operator
        ../../trunk/gcc/fortran/resolve.c:4158
0x84a8a9 gfc_resolve_expr(gfc_expr*)
        ../../trunk/gcc/fortran/resolve.c:6702
0x841dc1 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../trunk/gcc/fortran/resolve.c:11092
0x844eef resolve_codes
        ../../trunk/gcc/fortran/resolve.c:16516
0x844fbe gfc_resolve(gfc_namespace*)
        ../../trunk/gcc/fortran/resolve.c:16551
0x832e20 resolve_all_program_units
        ../../trunk/gcc/fortran/parse.c:6060
0x832e20 gfc_parse_file()
        ../../trunk/gcc/fortran/parse.c:6310
0x87950f gfc_be_parse_file
        ../../trunk/gcc/fortran/f95-lang.c:204
Bitte senden Sie einen vollständigen Fehlerbericht auf Englisch ein;
inclusive vorverarbeitetem Quellcode, wenn es dienlich ist.
Please include the complete backtrace with any bug report.
Weitere Hinweise finden Sie unter »<https://gcc.gnu.org/bugs/>«.

So, a bit too early to commit a test case :-)

Reply via email to