1! { dg-do run }
2! PR40638 Run Time Error: Unit number in I/O statement too large
3      program main
4      integer(kind=2) ::  lun, anum
5      integer(kind=1) ::  looney, bin
6      lun  = 12
7      anum = 5
8      looney = 42
9      bin = 23
10      open (lun, status='scratch')
11      write(lun,*) anum
12      anum = 0
13      rewind(lun)
14      read (lun, *) anum
15      if (anum.ne.5) call abort
16      open (looney, status='scratch')
17      write(looney,*)bin
18      bin = 0
19      rewind (looney)
20      read (looney,*)bin
21      if (bin.ne.23) call abort
22      close (lun)
23      close (looney)
24      end
25