2 ! Tests patch for PR29431, which arose from PR29373.
4 ! Contributed by Tobias Schlueter <tobi@gcc.gnu.org>
7 CHARACTER(len
=6), DIMENSION(2,2) :: a
9 ! Reporters original triggered another error:
10 ! gfc_todo: Not Implemented: complex character array
13 a
= reshape([to_string(1.0), trim("abcdef"), &
14 to_string(7.0), trim("hijklm")], &
22 WRITE(to_string
, FMT
="(F6.3)") x