14 lines
409 B
Fortran
14 lines
409 B
Fortran
! { dg-do run }
|
|
! PR31201 Too large unit number generates wrong code
|
|
! Test case by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
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
|