gcc/testsuite/gfortran.dg/write_fmt_trim.f90

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