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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/pr24489.f90

-! { 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

gcc/testsuite/gfortran.dg/pr24584.f90

-! 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