URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [read_null_string.f90] - Blame information for rev 338

Details | Compare with Previous | View Log


! pr 16080, segfault on reading an empty string
      implicit none
      integer t
      character*20   temp_name
      character*2 quotes
      open(unit=7,status='SCRATCH')
      quotes = '""""'  ! "" in the file
      write(7,*)1
      write(7,'(A)')quotes
      temp_name = 'hello'  ! make sure the read overwrites it
      rewind(7)
      read(7, *) t
      read(7, *) temp_name
      if (temp_name.ne.'') call abort
      end

Line No.	Rev	Author	Line
1	303	jeremybenn	`! pr 16080, segfault on reading an empty string`
2			`implicit none`
3			`integer t`
4			`character*20 temp_name`
5			`character*2 quotes`
6			`open(unit=7,status='SCRATCH')`
7			`quotes = '""""' ! "" in the file`
8			`write(7,*)1`
9			`write(7,'(A)')quotes`
10			`temp_name = 'hello' ! make sure the read overwrites it`
11			`rewind(7)`
12			`read(7, *) t`
13			`read(7, *) temp_name`
14			`if (temp_name.ne.'') call abort`
15			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [read_null_string.f90] - Blame information for rev 338