PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / realloc_on_assign_5.f03
blobaf5ce4a9b4c134b171f3a8ebb3538df9805c87fb
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.
5 ! Contributed by Thomas Koenig  <tkoenig@gcc.gnu.org>
7 program main
8   implicit none
9   character(:), allocatable :: a, b
10   a = 'a'
11   if (a .ne. 'a') STOP 1
12   a = a // 'x'
13   if (a .ne. 'ax') STOP 2
14   if (len (a) .ne. 2) STOP 3
15   a = (a(2:2))
16   if (a .ne. 'x') STOP 4
17   if (len (a) .ne. 1) STOP 5
18 end program main