blob: 64fecd9cd4a508e16292d873f56c1d9f773b8c2b [file] [log] [blame]
! { 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