diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-12-15 19:52:49 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-12-15 19:52:49 +0000 |
| commit | 92efdb0750ab63e9808604d2a496b23c5eb60fb8 (patch) | |
| tree | 2b82ad0ca449ad4deec14a4b74f99bde588a08c7 | |
| parent | 9341698a409acd6f762d40d547bd73488eecceb8 (diff) | |
| download | gcc-92efdb0750ab63e9808604d2a496b23c5eb60fb8.zip gcc-92efdb0750ab63e9808604d2a496b23c5eb60fb8.tar.gz gcc-92efdb0750ab63e9808604d2a496b23c5eb60fb8.tar.bz2 | |
re PR libfortran/30200 ([4.1 only] write(*,myfmt="(1X,a,'xyz')") "A" prints Az' instead of Axyz)
2006-12-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/30200
* gfortran.dg/write_fmt_trim.f90: New test.
From-SVN: r119941
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/write_fmt_trim.f90 | 10 |
2 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e66f910..af858cb 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 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" } + |