diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-12-02 06:33:02 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-12-02 06:33:02 +0000 |
| commit | d82ef8754a35db281b7c4e508111da22c6970af0 (patch) | |
| tree | 4f4d1495bbb540b7f3cde314ac5d3ba893cf3192 | |
| parent | c54293c6e8b6e06d1f6eb7501402edbdda93786c (diff) | |
| download | gcc-d82ef8754a35db281b7c4e508111da22c6970af0.zip gcc-d82ef8754a35db281b7c4e508111da22c6970af0.tar.gz gcc-d82ef8754a35db281b7c4e508111da22c6970af0.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr24489.f90 | 14 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr24584.f90 | 17 |
3 files changed, 5 insertions, 31 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a7f9194..a55ca25 100644 --- 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 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 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 |