diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e66f910ca7ab..af858cb4e049 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/30200
+	* gfortran.dg/write_fmt_trim.f90: New test.
+
 2006-12-14  Diego Novillo  <dnovillo@redhat.com>
 
 	PR 30194
diff --git a/gcc/testsuite/gfortran.dg/write_fmt_trim.f90 b/gcc/testsuite/gfortran.dg/write_fmt_trim.f90
new file mode 100644
index 000000000000..62f1af17444f
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/write_fmt_trim.f90
@@ -0,0 +1,10 @@
+! { dg-do run }
+! PR30200 write(*,myfmt="(1X,a,'xyz')") "A"  prints  Az' instead of Axyz
+! Test case from PR, submitted by <jvdelisle@gcc.gnu.org>
+program main
+  character (len=20) format
+  format = "(1X,a,'xyz')"
+  write(*,fmt=trim(format)) "A"  ! Problem arose when trim was included here
+end
+! { dg-output " Axyz" }
+