mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
9 lines
319 B
Fortran
9 lines
319 B
Fortran
! { 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) STOP 1
|
|
if (str.ne."Unit number in I/O statement too large") STOP 2
|
|
end |