https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70913
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de>
---
For completeness, these variants compile without errors :
$ cat z2.f90
program p
type t
character :: c
end type
type t2
character :: q = transfer(t('a'), 'b')
end type
type(t2) :: x
print *, x
end
$ cat z3.f90
program p
type t
character(4) :: c
end type
type t2
character :: q = transfer(t('abc'), 'b')
end type
type(t2) :: x
print *, x
end
