! { dg-do run }
program foo
   implicit none
   integer(1) i1
   integer(2) i2
   integer(4) i4, j4
   integer(8) i8
   i1 = int(z'12', 1);      if (i1 /= 18)         stop 1
   i2 = int(z'1234', 2);    if (i2 /= 4660)       stop 2
   i4 = int(z'1234', 4);    if (i4 /= 4660)       stop 3
   j4 = int(z'1234');       if (i4 /= 4660)       stop 4
   i8 = int(z'1233456',8);  if (i8 /= 19084374_8) stop 5
end program