gcc/testsuite/gfortran.dg/pr55086_2_tfat.f90

   1 ! { dg-do run }
   2 ! { dg-options "-ftest-forall-temp" }
   3 !
   4   implicit none
   5
   6   character(len=7), pointer :: u
   7   character(len=7), pointer :: v
   8
   9   character(len=7), target  :: a
  10   character(len=7), target  :: b
  11
  12   integer :: j
  13
  14   b = "1234567"
  15   a = "abcdefg"
  16
  17   u => a
  18   v => b
  19
  20   forall (j = 1:2) a(j:j) = b(j:j)
  21
  22   if (a /= "12cdefg") call abort
  23
  24   forall (j = 2:3) a(j:j) = v(j:j)
  25   if (a /= "123defg") call abort
  26
  27   forall (j = 3:4) u(j:j) = b(j:j)
  28   if (a /= "1234efg") call abort
  29
  30   forall (j = 4:5) u(j:j) = v(j:j)
  31   if (a /= "12345fg") call abort
  32
  33 end