2 ! { dg-options "-std=legacy" }
4 ! Tests patch for PR29431, which arose from PR29373.
6 ! Contributed by Tobias Schlueter <tobi@gcc.gnu.org>
9 CHARACTER(len=6), DIMENSION(2,2) :: a
11 ! Reporters original triggered another error:
12 ! gfc_todo: Not Implemented: complex character array
15 a = reshape([to_string(1.0), trim("abcdef"), &
16 to_string(7.0), trim("hijklm")], &
24 WRITE(to_string, FMT="(F6.3)") x