! { dg-do run } | |
! PR40638 Run Time Error: Unit number in I/O statement too large | |
program main | |
integer(kind=2) :: lun, anum | |
integer(kind=1) :: looney, bin | |
lun = 12 | |
anum = 5 | |
looney = 42 | |
bin = 23 | |
open (lun, status='scratch') | |
write(lun,*) anum | |
anum = 0 | |
rewind(lun) | |
read (lun, *) anum | |
if (anum.ne.5) STOP 1 | |
open (looney, status='scratch') | |
write(looney,*)bin | |
bin = 0 | |
rewind (looney) | |
read (looney,*)bin | |
if (bin.ne.23) STOP 2 | |
close (lun) | |
close (looney) | |
end |