From 44e2e9a51b6ada43a9fb706ad6c6875c5fabf395 Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Fri, 15 Dec 2006 19:58:10 +0000 Subject: [PATCH] 2006-12-15 Jerry DeLisle PR libfortran/30145 * gfortran.dg/write_zero_array: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@119943 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 af858cb4e049..330e62a8e46d 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 000000000000..da7afc1426cd --- /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.47.3