pr24489.f90: Delete, replaced by read_eor.f90.

2005-12-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* gfortran.dg/pr24489.f90: Delete, replaced by read_eor.f90.
	* gfortran.dg/pr24584.f90: Delete, replaced by namelist_empty.f90.

From-SVN: r107874

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a7f9194f24a851200c397494e2927056b16e6d28..a55ca25889c7162ecb93760d807442cb6f9ae877 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       * 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  <gdr@integrable-solutions.net>
 
         PR c/13384

diff --git a/gcc/testsuite/gfortran.dg/pr24489.f90 b/gcc/testsuite/gfortran.dg/pr24489.f90
deleted file mode 100644 (file)
index f332755..0000000
--- 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 <jvdelisle@verizon.net>.
-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 (file)
index 12e72ae..0000000
--- 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  <jvdelisle@verizon.net> 
-      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