gcc/testsuite/gfortran.dg/dependency_50.f90

   1 ! { dg-do  run }
   2 ! PR 83224 - dependency mishandling with an array constructor
   3 ! Original test case by Urban Jost
   4 program dusty_corner
   5   implicit none
   6   character(len=:),allocatable :: words(:)
   7
   8   words=[character(len=3) :: 'one', 'two']
   9   words=[character(len=5) :: words, 'three']
  10   if (any(words /= [ "one  ", "two  ", "three"])) call abort
  11
  12 end program dusty_corner