From 7a932987012990a94bf54b025d6af6512e093156 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 15 Dec 2006 19:58:10 +0000 Subject: [PATCH] re PR fortran/30145 (Fortran 90: write statement fails to ignore zero-sized array...) 2006-12-15 Jerry DeLisle PR libfortran/30145 * gfortran.dg/write_zero_array: New test. From-SVN: r119943 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/write_zero_array.f90 | 17 +++++++++++++++++ 2 files changed, 22 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/write_zero_array.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index af858cb4e04..330e62a8e46 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2006-12-15 Jerry DeLisle + + PR libfortran/30145 + * gfortran.dg/write_zero_array: New test. + 2006-12-15 Jerry DeLisle PR fortran/30200 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 00000000000..da7afc1426c --- /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 +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 + -- 2.30.2