1! { dg-do run } 2! Test the fix for PR47523 in which concatenations did not work 3! correctly with assignments to deferred character length scalars. 4! 5! Contributed by Thomas Koenig <tkoenig@gcc.gnu.org> 6! 7program main 8 implicit none 9 character(:), allocatable :: a, b 10 a = 'a' 11 if (a .ne. 'a') call abort 12 a = a // 'x' 13 if (a .ne. 'ax') call abort 14 if (len (a) .ne. 2) call abort 15 a = (a(2:2)) 16 if (a .ne. 'x') call abort 17 if (len (a) .ne. 1) call abort 18end program main 19