From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 15 Dec 2006 19:52:49 +0000 (+0000)
Subject: 2006-12-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=d26210a33c536d7f309bc8083ce8f986cb5d4868;p=thirdparty%2Fgcc.git

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 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" }
+