! { dg-do compile } | |
! { dg-options " -std=f95" } | |
program testbyte | |
integer(1) :: ii = 7 | |
call foo(ii) | |
end program testbyte | |
subroutine foo(ii) | |
integer(1) ii | |
byte b ! { dg-error "BYTE type" } | |
b = ii | |
call bar(ii,b) | |
end subroutine foo | |
subroutine bar(ii,b) | |
integer (1) ii | |
byte b ! { dg-error "BYTE type" } | |
if (b.ne.ii) then | |
! print *,"Failed" | |
STOP 1 | |
end if | |
end subroutine bar |