gcc/testsuite/gfortran.dg/associate_22.f90

   1 ! { dg-do run }
   2 program foo
   3
   4    implicit none
   5
   6    character(len=4) :: s
   7    character(len=10) :: a
   8
   9    ! This works.
  10    s = 'abc'
  11    associate(t => s)
  12       if (trim(t) /= 'abc') call abort
  13    end associate
  14
  15    ! This failed.
  16    associate(u => 'abc')
  17       if (trim(u) /= 'abc') call abort
  18    end associate
  19
  20    ! This failed.
  21    a = s // 'abc'
  22    associate(v => s // 'abc')
  23       if (trim(v) /= trim(a)) call abort
  24    end associate
  25
  26    ! This failed.
  27    ! This still doesn't work correctly, see PR 83344
  28 !   a = trim(s) // 'abc'
  29 !   associate(w => trim(s) // 'abc')
  30 !      if (trim(w) /= trim(a)) call abort
  31 !   end associate
  32
  33    ! This failed.
  34    associate(x => trim('abc'))
  35       if (trim(x) /= 'abc') call abort
  36    end associate
  37
  38 end program foo