Subversion Repositories openrisc

! { 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