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