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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_empty.f90] - Blame information for rev 853

Go to most recent revision | Details | Compare with Previous | View Log


! 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

Line No.	Rev	Author	Line
1	149	jeremybenn	`! pr24584, segfault on namelist reading an empty string`
2			`! Contributed by Jerry DeLisle`
3			`implicit none`
4			`character*20 temp`
5			`character(len=10) var`
6			`namelist /input/ var`
7			`var = 'Howdy'`
8			`open(unit=7, status="scratch")`
9			`temp = ' var=''''' ! var='' in the file`
10			`write(7,'(A6)') '&INPUT'`
11			`write(7,'(A10)') temp`
12			`write(7,'(A1)') '/'`
13			`rewind(7)`
14			`read(7,NML=input)`
15			`close(7)`
16			`if (var.ne.'') call abort`
17			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_empty.f90] - Blame information for rev 853