https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67542
--- Comment #5 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de>
---
If not covered elsewhere, one problem is remaining.
Nondeterministic and depending on used options :
$ cat z4.f90
program p
character(1), parameter :: a(4) = ['a','b','c','d']
type t
integer :: n
character(2) :: c(3)
end type
type(t) :: x = t(4, [a])
print *, x
end
$ cat z5.f90
program p
character(1), parameter :: a(4) = ['a','b','c','d']
type t
integer :: n
character(2) :: c(3)
end type
type(t) :: x = t(4, [a(1:4)])
print *, x
end
$ cat z6.f90
program p
integer :: k
character(1), parameter :: a(4) = ['a','b','c','d']
type t
integer :: n
character(2) :: c(3)
end type
type(t) :: x = t(4, [(a(k),k=1,4)])
print *, x
end
$ gfortran-6 -O0 -g -Wall -fcheck=all z6.f90
internal compiler error: Segmentation fault
$ gfortran-7-20160501 -g z6.f90
internal compiler error: Segmentation fault
0xbf6ebf crash_signal
../../gcc/toplev.c:333
0x72f8c3 gfc_emit_parameter_debug_info
../../gcc/fortran/trans-decl.c:4894
0x6f9d3b do_traverse_symtree
../../gcc/fortran/symbol.c:3817
0x73eb65 gfc_generate_function_code(gfc_namespace*)
../../gcc/fortran/trans-decl.c:6328
0x6cabc0 translate_all_program_units
../../gcc/fortran/parse.c:5613
0x6cabc0 gfc_parse_file()
../../gcc/fortran/parse.c:5819
0x70ca32 gfc_be_parse_file
../../gcc/fortran/f95-lang.c:201
