gcc/testsuite/gfortran.dg/associate_37.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fcoarray=single" }
   3 !
   4 ! Tests the fix for the regression PR83901.
   5 !
   6 ! Contributed by G Steinmetz  <gscfq@t-online.de>
   7 !
   8 program p
   9    character(8), allocatable :: x[:]
  10    allocate (x[*])
  11    x = 'abc'
  12    associate (y => x)
  13      if (y .ne. 'abc') stop 1
  14    end associate
  15 end