1! { dg-do compile }
2! { dg-options "-fall-intrinsics -std=f95" }
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          ! { dg-error "BYTE type" }
11  b = ii
12  call bar(ii,b)
13end subroutine foo
14
15subroutine bar(ii,b)
16  integer (1) ii
17  byte b          ! { dg-error "BYTE type" }
18  if (b.ne.ii) then
19!     print *,"Failed"
20     call abort
21  end if
22end subroutine bar
23