1! { dg-do compile }
2! { dg-options "-std=legacy" }
3!
4! Tests patch for PR29431, which arose from PR29373.
5!
6! Contributed by Tobias Schlueter  <tobi@gcc.gnu.org>
7!
8  implicit none
9  CHARACTER(len=6), DIMENSION(2,2)  :: a
10
11! Reporters original triggered another error:
12! gfc_todo: Not Implemented: complex character array
13! constructors.
14
15  a = reshape([to_string(1.0), trim("abcdef"), &
16               to_string(7.0), trim("hijklm")], &
17               [2, 2])
18  print *, a
19
20  CONTAINS
21    FUNCTION to_string(x)
22      character*6 to_string
23      REAL, INTENT(in) :: x
24      WRITE(to_string, FMT="(F6.3)") x
25    END FUNCTION
26end
27