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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR31201 Too large unit number generates wrong code
! This tests initialization of the IOSTAT variable
  integer :: i
  character(len=50) :: str
  write (2_8*int(huge(0_4),kind=8)+9_8, iostat=i, iomsg=str) 555
  if (i.ne.5005) call abort
  if (str.ne."Unit number in I/O statement too large") call abort
  end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR31201 Too large unit number generates wrong code`
3			`! This tests initialization of the IOSTAT variable`
4			`integer :: i`
5			`character(len=50) :: str`
6			`write (2_8*int(huge(0_4),kind=8)+9_8, iostat=i, iomsg=str) 555`
7			`if (i.ne.5005) call abort`
8			`if (str.ne."Unit number in I/O statement too large") call abort`
9			`end`

Browse

Tools

Subversion Repositories openrisc

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