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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR26509 : Writing beyond fixed length direct access records.
! Test case derived from PR.
! Submitted  by Jerry Delisle .
program testrecl
      implicit none
      open(unit = 10, form = 'unformatted', access = 'direct', recl = 4)
      write(unit=10,rec=1, err=100) 1d0
      call abort()
 100  continue
      close(unit=10, status='delete')
      end

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! PR26509 : Writing beyond fixed length direct access records.`
3			`! Test case derived from PR.`
4			`! Submitted by Jerry Delisle .`
5			`program testrecl`
6			`implicit none`
7			`open(unit = 10, form = 'unformatted', access = 'direct', recl = 4)`
8			`write(unit=10,rec=1, err=100) 1d0`
9			`call abort()`
10			`100 continue`
11			`close(unit=10, status='delete')`
12			`end`

Browse

Tools

Subversion Repositories openrisc

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