diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-12-15 19:58:10 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-12-15 19:58:10 +0000 |
| commit | 7a932987012990a94bf54b025d6af6512e093156 (patch) | |
| tree | ec3b0e4af0676a718dba44eda494201a83b8610b /gcc | |
| parent | 87cd572deea464224ca19b727a0fdb4ea1cb3f08 (diff) | |
| download | gcc-7a932987012990a94bf54b025d6af6512e093156.zip gcc-7a932987012990a94bf54b025d6af6512e093156.tar.gz gcc-7a932987012990a94bf54b025d6af6512e093156.tar.bz2 | |
re PR fortran/30145 (Fortran 90: write statement fails to ignore zero-sized array...)
2006-12-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/30145
* gfortran.dg/write_zero_array: New test.
From-SVN: r119943
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/write_zero_array.f90 | 17 |
2 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index af858cb..330e62a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2006-12-15 Jerry DeLisle <jvdelisle@gcc.gnu.org> + PR libfortran/30145 + * gfortran.dg/write_zero_array: New test. + +2006-12-15 Jerry DeLisle <jvdelisle@gcc.gnu.org> + PR fortran/30200 * gfortran.dg/write_fmt_trim.f90: New test. diff --git a/gcc/testsuite/gfortran.dg/write_zero_array.f90 b/gcc/testsuite/gfortran.dg/write_zero_array.f90 new file mode 100644 index 0000000..da7afc1 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/write_zero_array.f90 @@ -0,0 +1,17 @@ +! { dg-do run } +! PR30145 write statement fails to ignore zero-sized array +! Test case from PR, submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org> +program zeros + implicit none + character(20) :: msg = "" + integer :: itemp(10) = 0 + integer :: ics + !This was OK + write(msg,*) 'itemp(6:0) = ',itemp(6:0),'a' + if (msg /= " itemp(6:0) = a") call abort() + !This did not work before patch, segfaulted + ics=6 + write(msg,*) 'itemp(ics:0) = ',itemp(ics:0),'a' + if (msg /= " itemp(ics:0) = a") call abort() +end program zeros + |