mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-22 03:30:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/30200 ([4.1 only] write(*,myfmt="(1X,a,'xyz')") "A" prints Az' instead of Axyz)

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

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

From-SVN: r119941
This commit is contained in:
Jerry DeLisle 2006-12-15 19:52:49 +00:00
parent 9341698a40
commit 92efdb0750
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

10
gcc/testsuite/gfortran.dg/write_fmt_trim.f90 Normal file
View File

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