https://gcc.gnu.org/bugzilla/show_bug.cgi?id=105243
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |ice-on-invalid-code
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
$ cat z2.f90
program p
type t
character(3) :: c = '(a)'
end type
class(t), parameter :: x = 1.
print *, x%c
end
$ cat z3.f90
program p
type t
character(3) :: c = '(a)'
end type
class(t), parameter :: x = 1.
call s(x%c)
end
$ gfortran-12-20220410 -c z2.f90
z2.f90:5:27:
5 | class(t), parameter :: x = 1.
| 1
Error: CLASS variable 'x' at (1) cannot have the PARAMETER attribute
z2.f90:5:29:
5 | class(t), parameter :: x = 1.
| 1
Error: Cannot convert REAL(4) to CLASS() at (1)
f951: internal compiler error: Segmentation fault
0xe7751f crash_signal
../../gcc/toplev.cc:322
0x734da3 free_expr0
../../gcc/fortran/expr.cc:462
0x734e48 gfc_free_expr(gfc_expr*)
../../gcc/fortran/expr.cc:531
0x7cfd51 gfc_free_statement(gfc_code*)
../../gcc/fortran/st.cc:86
0x7cfef2 gfc_free_statements(gfc_code*)
../../gcc/fortran/st.cc:318
0x7cff14 gfc_free_statements(gfc_code*)
../../gcc/fortran/st.cc:317
0x7d6a24 gfc_free_namespace(gfc_namespace*&)
../../gcc/fortran/symbol.cc:4041
0x7d7159 gfc_symbol_done_2()
../../gcc/fortran/symbol.cc:4105
0x76e548 gfc_done_2()
../../gcc/fortran/misc.cc:382
0x798198 translate_all_program_units
../../gcc/fortran/parse.cc:6688
0x798198 gfc_parse_file()
../../gcc/fortran/parse.cc:6956
0x7e626f gfc_be_parse_file
../../gcc/fortran/f95-lang.cc:216
