diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-05-04 15:20:17 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-05-04 15:20:17 +0000 |
| commit | 70aa27669b01c03118b7e18596aafbb0b00f1cf1 (patch) | |
| tree | 290fef1a9b4c8794e65c357626a05445432be520 | |
| parent | e50443368c22ea4a2ec4e6585154b13cae31dc09 (diff) | |
| download | gcc-70aa27669b01c03118b7e18596aafbb0b00f1cf1.zip gcc-70aa27669b01c03118b7e18596aafbb0b00f1cf1.tar.gz gcc-70aa27669b01c03118b7e18596aafbb0b00f1cf1.tar.bz2 | |
re PR libfortran/31210 (I/O of string with (non-constant) zero length)
PR libfortran/31210
* gfortran.dg/zero_length_1.f90: New test.
From-SVN: r124429
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/zero_length_1.f90 | 18 |
2 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 577bdc9..cfcdf36 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-05-04 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR libfortran/31210 + * gfortran.dg/zero_length_1.f90: New test. + 2007-05-04 Tobias Burnus <burnus@net-b.de> PR fortran/31803 diff --git a/gcc/testsuite/gfortran.dg/zero_length_1.f90 b/gcc/testsuite/gfortran.dg/zero_length_1.f90 new file mode 100644 index 0000000..c76d079 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/zero_length_1.f90 @@ -0,0 +1,18 @@ +! { dg-do run } +! PR libfortran/31210 +program test + implicit none + integer :: l = 0 + character(len=20) :: s + + write(s,'(A,I1)') foo(), 0 + if (trim(s) /= "0") call abort + +contains + + function foo() + character(len=l) :: foo + foo = "XXXX" + end function + +end program test |