From d82ef8754a35db281b7c4e508111da22c6970af0 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 2 Dec 2005 06:33:02 +0000 Subject: [PATCH] pr24489.f90: Delete, replaced by read_eor.f90. 2005-12-01 Jerry DeLisle * gfortran.dg/pr24489.f90: Delete, replaced by read_eor.f90. * gfortran.dg/pr24584.f90: Delete, replaced by namelist_empty.f90. From-SVN: r107874 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/pr24489.f90 | 14 -------------- gcc/testsuite/gfortran.dg/pr24584.f90 | 17 ----------------- 3 files changed, 5 insertions(+), 31 deletions(-) delete mode 100644 gcc/testsuite/gfortran.dg/pr24489.f90 delete mode 100644 gcc/testsuite/gfortran.dg/pr24584.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a7f9194f24a8..a55ca25889c7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-12-01 Jerry DeLisle + + * gfortran.dg/pr24489.f90: Delete, replaced by read_eor.f90. + * gfortran.dg/pr24584.f90: Delete, replaced by namelist_empty.f90. + 2005-12-01 Gabriel Dos Reis PR c/13384 diff --git a/gcc/testsuite/gfortran.dg/pr24489.f90 b/gcc/testsuite/gfortran.dg/pr24489.f90 deleted file mode 100644 index f33275502977..000000000000 --- a/gcc/testsuite/gfortran.dg/pr24489.f90 +++ /dev/null @@ -1,14 +0,0 @@ -! { dg-do run } -! PR24489 Assure that read does not go past the end of record. The width of -! the format specifier is 8, but the internal unit record length is 4 so only -! the first 4 characters should be read. -! Contributed by Jerry DeLisle . -program pr24489 - character*4, dimension(8) :: abuf = (/"0123","4567","89AB","CDEF", & - "0123","4567","89AB","CDEF"/) - character*4, dimension(2,4) :: buf - character*8 :: a - equivalence (buf,abuf) - read(buf, '(a8)') a - if (a.ne.'0123') call abort() -end program pr24489 diff --git a/gcc/testsuite/gfortran.dg/pr24584.f90 b/gcc/testsuite/gfortran.dg/pr24584.f90 deleted file mode 100644 index 12e72ae7e4da..000000000000 --- a/gcc/testsuite/gfortran.dg/pr24584.f90 +++ /dev/null @@ -1,17 +0,0 @@ -! pr24584, segfault on namelist reading an empty string -! Contributed by Jerry DeLisle - implicit none - character*20 temp - character(len=10) var - namelist /input/ var - var = 'Howdy' - open(unit=7, status="scratch") - temp = ' var=''''' ! var='' in the file - write(7,'(A6)') '&INPUT' - write(7,'(A10)') temp - write(7,'(A1)') '/' - rewind(7) - read(7,NML=input) - close(7) - if (var.ne.'') call abort - end -- 2.47.2