! { dg-do run } | |
! { dg-options "-funsigned" } | |
! { dg-require-effective-target be } | |
program main | |
integer :: i | |
integer(2) :: j | |
unsigned :: u | |
i = -1 | |
u = transfer(i,u) | |
if (u /= huge(u)) error stop 1 | |
u = 4278058235u | |
j = transfer(u,j) | |
if (j /= -259) error stop 2 | |
end program main |