gcc/testsuite/gfortran.dg/int_conv_1.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=gnu" }
   3   integer(kind=2) :: i2, k2, l2
   4   integer(kind=8) :: i8
   5   real :: x
   6   complex :: z
   7
   8   i2 = huge(i2) / 3
   9   i8 = int8(i2)
  10   k2 = int2(i2)
  11   l2 = int2(i8)
  12
  13   if (i8 /= i2 .or. k2 /= i2 .or. l2 /= i2 ) STOP 1
  14
  15   x = i2
  16   i8 = int8(x)
  17   k2 = int2(x)
  18   if (i8 /= i2 .or. k2 /= i2) STOP 2
  19
  20   z = i2 + (0.,-42.)
  21   i8 = int8(z)
  22   k2 = int2(z)
  23   if (i8 /= i2 .or. k2 /= i2) STOP 3
  24
  25   end