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