2006-12-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR fortran/30200
	* gfortran.dg/write_fmt_trim.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@119941 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e66f910ca7ab6d26502b1c11b569b674df5db637..af858cb4e04930e2e9a629e1283d98369a21c8bc 100644 (file)
--- 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 (file)
index 0000000..62f1af1
--- /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" }
+