2 ! PR30200 write(*,myfmt="(1X,a,'xyz')") "A" prints Az' instead of Axyz
3 ! Test case from PR, submitted by <jvdelisle@gcc.gnu.org>
5 character (len
=20) format
6 format = "(1X,a,'xyz')"
7 write(*,fmt
=trim(format)) "A" ! Problem arose when trim was included here
9 ! { dg-output " Axyz" }