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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [large_unit_2.f90] - Blame information for rev 310

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


! { dg-do run }
! PR31201 Too large unit number generates wrong code
! Test case by Francois-Xavier Coudert  
      integer :: i
      logical :: l
      character(len=60) :: s
      open(2_8*huge(0)+20_8,file="foo",iostat=i)
      if (i == 0) call abort
      open(2_8*huge(0)+20_8,file="foo",err=99)
      call abort
 99   inquire(unit=18,opened=l)
      if (l) call abort
      end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! PR31201 Too large unit number generates wrong code`
3			`! Test case by Francois-Xavier Coudert`
4			`integer :: i`
5			`logical :: l`
6			`character(len=60) :: s`
7			`open(2_8*huge(0)+20_8,file="foo",iostat=i)`
8			`if (i == 0) call abort`
9			`open(2_8*huge(0)+20_8,file="foo",err=99)`
10			`call abort`
11			`99 inquire(unit=18,opened=l)`
12			`if (l) call abort`
13			`end`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [large_unit_2.f90] - Blame information for rev 310