gcc/testsuite/gfortran.dg/derived_constructor_char_2.f90

   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" }
  13 End