https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68155
--- Comment #7 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de>
---
Sequence changed, still ok :
$ cat zz3.f90
program p
character(3) :: c1(2) = ['b', 'c'] // ''
character(3) :: c2(2) = ['b', 'c'] // 'a'
character(3) :: c3(2) = ['b', 'c'] // 'ax'
character(3) :: c4(2) = ['b', 'c'] // 'axy'
print *, size(c1), len(c1), c1
print *, size(c2), len(c2), c2
print *, size(c3), len(c3), c3
print *, size(c4), len(c4), c4
end
$ gfortran-7-20161204 zz3.f90
$ a.out
2 3 b c
2 3 ba ca
2 3 baxcax
2 3 baxcax
---
Similar, embedded :
$ cat zz4.f90
program p
type t
character(3) :: c1(2) = ['b', 'c'] // ''
character(3) :: c2(2) = ['b', 'c'] // 'a'
character(3) :: c3(2) = ['b', 'c'] // 'ax'
character(3) :: c4(2) = ['b', 'c'] // 'axy'
end type
type(t) :: z
print *, size(z%c1), len(z%c1), z%c1
print *, size(z%c2), len(z%c2), z%c2
print *, size(z%c3), len(z%c3), z%c3
print *, size(z%c4), len(z%c4), z%c4
end
$ gfortran-7-20161204 zz4.f90
zz4.f90:13:0:
end
internal compiler error: in output_constructor_regular_field, at varasm.c:5017
0xf3fcc4 output_constructor_regular_field
../../gcc/varasm.c:5017
0xf3fcc4 output_constructor
../../gcc/varasm.c:5325
0xf3e7c1 output_constant
../../gcc/varasm.c:4702
0xf3e7c1 output_constructor_regular_field
../../gcc/varasm.c:5055
0xf3e7c1 output_constructor
../../gcc/varasm.c:5325
0xf40064 output_constant
../../gcc/varasm.c:4702
0xf40064 assemble_variable_contents
../../gcc/varasm.c:2083
0xf479c9 assemble_variable(tree_node*, int, int, int)
../../gcc/varasm.c:2259
0xf4d1e8 varpool_node::assemble_decl()
../../gcc/varpool.c:588
0xf4de75 varpool_node::assemble_decl()
../../gcc/cgraph.h:2631
0xf4de75 symbol_table::output_variables()
../../gcc/varpool.c:754
0x855a77 symbol_table::compile()
../../gcc/cgraphunit.c:2495
0x857ea2 symbol_table::compile()
../../gcc/cgraphunit.c:2558
0x857ea2 symbol_table::finalize_compilation_unit()
../../gcc/cgraphunit.c:2584
