https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83224
--- Comment #2 from urbanjost at comcast dot net ---
Thanks for checking on this so quickly. I did not reduce my example any further
than I did because it would just print without padding with blanks the way I
expected and not abort if I made it shorter; using your reduced test and just
trying a few times I see that the abort occurs when the new length is 9 and the
previous length was 8 or less. I added back a few lines to demonstrate just in
case that is significant, maybe a second problem (ignore otherwise)?
[one ][two ][three]
[GOT HERE][onetwtwo][twoththr][threethr][three ]
Program received signal SIGABRT: Process abort signal.
Backtrace for this error:
JSU@buzz ~
$ cat yyy.f90
program dusty_corner ! exercise f2008 CHARACTER features
implicit none
character(len=:),allocatable :: words(:)
character(len=:),allocatable :: words1(:), words2(:)
words1=[character(len=3) :: 'one', 'two']
words2=[character(len=5) :: words1, 'three']
write(*,'(5("[",a,"]":))')words2
words=[character(len=3) :: 'one', 'two']
words=[character(len=5) :: words, 'three']
words=[character(len=8) :: words, 'three'] ! ADD: ok with len=8
write(*,'(5("[",a,"]":))')'GOT HERE',words ! ADD: keeps going
words=[character(len=9) :: words, 'three'] ! ADD: actually crashes
write(*,'(5("[",a,"]":))')'DID NOT GET HERE',words ! ADD:
end program dusty_corner
