1! { dg-do  run }
2! PR 83224 - dependency mishandling with an array constructor
3! Original test case by Urban Jost
4program 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"])) STOP 1
11
12end program dusty_corner
13