https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78479
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de>
---
Whereas, these variants are ok :
$ cat z3.f90
program p
type t
character(2) :: c(1) = 'a' // ['b']
end type
type(t) :: z
print *, len(z%c), size(z%c), z
end
$ gfortran-7-20161120 z3.f90
$ a.out
2 1 ab
$ cat z4.f90
program p
type t
character(3) :: c(1)
end type
type(t) :: z
z%c = 'a' // ['b']
print *, len(z%c), size(z%c), z
end
$ gfortran-7-20161120 z4.f90
$ a.out
3 1 ab
