1! { dg-do run }
2! { dg-options "-std=gnu" }
3program testbyte
4  integer(1) :: ii = 7
5  call foo(ii)
6end program testbyte
7
8subroutine foo(ii)
9  integer(1) ii
10  byte b
11  b = ii
12  call bar(ii,b)
13end subroutine foo
14
15subroutine bar(ii,b)
16  integer (1) ii
17  byte b
18  if (b.ne.ii) then
19!     print *,"Failed"
20     call abort
21  end if
22end subroutine bar
23