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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [write_check3.f90] - Blame information for rev 708

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


! { dg-do run }
! PR29936 Missed constraint on RECL=specifier in unformatted sequential WRITE
! Submitted by Jerry DeLisle  
program us_recl
  real, dimension(5) :: array = 5.4321
  integer :: istatus
  open(unit=10, form="unformatted", access="sequential", RECL=16)
  write(10, iostat=istatus) array
  if (istatus == 0) call abort()
  close(10, status="delete")
end program us_recl

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR29936 Missed constraint on RECL=specifier in unformatted sequential WRITE`
3			`! Submitted by Jerry DeLisle`
4			`program us_recl`
5			`real, dimension(5) :: array = 5.4321`
6			`integer :: istatus`
7			`open(unit=10, form="unformatted", access="sequential", RECL=16)`
8			`write(10, iostat=istatus) array`
9			`if (istatus == 0) call abort()`
10			`close(10, status="delete")`
11			`end program us_recl`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [write_check3.f90] - Blame information for rev 708