1! { dg-do compile }
2! { dg-options "-fdump-tree-original" }
3!
4! PR fortran/44857
5!
6!
7
8  Type :: t
9    character (len=5) :: txt(2)
10  End Type
11  character (len=5) :: str(2) = [ "12345", "67890" ]
12  Type (t) :: tt = t( [str] ) ! { dg-error "does not reduce to a constant" }
13End
14