gcc/testsuite/gfortran.dg/associate_35.f90

   1 ! { dg-do run }
   2 !
   3 ! Test the fix for PR84115 comment #1.
   4 !
   5 ! Contributed by G Steinmetz  <gscfq@t-online.de>
   6 !
   7   character(:), allocatable :: dum
   8   dum = "s1"
   9   call s1 (dum)
  10   dum = "s2"
  11   call s2 (dum)
  12   dum = "s3"
  13   call s3 (dum)
  14 contains
  15   subroutine s1(x)
  16     character(:), allocatable :: x
  17     associate (y => x//x)
  18       if (y .ne. x//x) stop 1
  19     end associate
  20   end
  21
  22   subroutine s2(x)
  23     character(:), allocatable :: x
  24     associate (y => [x])
  25       if (any(y .ne. [x])) stop 2
  26     end associate
  27   end
  28
  29   subroutine s3(x)
  30     character(:), allocatable :: x
  31     associate (y => [x,x])
  32       if (any(y .ne. [x,x])) stop 3
  33     end associate
  34   end
  35 end