gcc/testsuite/gfortran.dg/unsigned_21.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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