gcc/testsuite/gfortran.dg/dependency_51.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   integer :: n
   8
   9   words=[character(len=3) :: 'one', 'two']
  10   n = 5
  11   words=[character(len=n) :: words, 'three']
  12   if (any(words /= [ "one  ", "two  ", "three"])) call abort
  13
  14 end program dusty_corner