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