KJ16609/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2026-02-22 03:46:53 -05: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-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

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

From-SVN: r120042
This commit is contained in:
Jerry DeLisle
2006-12-19 06:32:09 +00:00
parent 59f8c0dd2c
commit af548c702d
2 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@@ -1,3 +1,8 @@
2006-12-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/30200
* gfortran.dg/write_fmt_trim.f90: New test.
2006-12-18 Bill Wendling <wendling@apple.com>
* g++.old-deja/g++.mike/p11144.C: Renamed id to ID because

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