gcc/testsuite/gfortran.dg/realloc_on_assign_5.f03

   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 !
   7 program 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
  18 end program main