! { 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) STOP 1 | |
open(2_8*huge(0)+20_8,file="foo",err=99) | |
STOP 2 | |
99 inquire(unit=18,opened=l) | |
if (l) STOP 3 | |
end |