gcc/testsuite/gfortran.dg/ieee/ieee_9.f90

   1 ! { dg-do run { xfail arm*-*-gnueabi arm*-*-gnueabihf } }
   2 program foo
   3    use ieee_arithmetic
   4    use iso_fortran_env
   5    integer i, p
   6    real x
   7    x = 4
   8    i = 4
   9
  10    if (int8 > 0) then
  11       if (real32 > 0) then
  12          p = int(ieee_scalb(real(x, real32), int(i, int8)))
  13          if (p /= 64) stop 1
  14       endif
  15       if (real64 > 0) then
  16          p = int(ieee_scalb(real(x, real64), int(i, int8)))
  17          if (p /= 64) stop 2
  18       endif
  19       if (real128 > 0) then
  20          p = int(ieee_scalb(real(x, real128), int(i, int8)))
  21          if (p /= 64) stop 3
  22       end if
  23    end if
  24
  25    if (int16 > 0) then
  26       if (real32 > 0) then
  27          p = int(ieee_scalb(real(x, real32), int(i, int16)))
  28          if (p /= 64) stop 4
  29       endif
  30       if (real64 > 0) then
  31          p = int(ieee_scalb(real(x, real64), int(i, int16)))
  32          if (p /= 64) stop 5
  33       endif
  34       if (real128 > 0) then
  35          p = int(ieee_scalb(real(x, real128), int(i, int16)))
  36          if (p /= 64) stop 6
  37       end if
  38    end if
  39
  40    if (int32 > 0) then
  41       if (real32 > 0) then
  42          p = int(ieee_scalb(real(x, real32), int(i, int32)))
  43          if (p /= 64) stop 7
  44       endif
  45       if (real64 > 0) then
  46          p = int(ieee_scalb(real(x, real64), int(i, int32)))
  47          if (p /= 64) stop 8
  48       endif
  49       if (real128 > 0) then
  50          p = int(ieee_scalb(real(x, real128), int(i, int32)))
  51          if (p /= 64) stop 9
  52       end if
  53    end if
  54
  55    if (int64 > 0) then
  56       if (real32 > 0) then
  57          p = int(ieee_scalb(real(x, real32), int(i, int64)))
  58          if (p /= 64) stop 10
  59       endif
  60       if (real64 > 0) then
  61          p = int(ieee_scalb(real(x, real64), int(i, int64)))
  62          if (p /= 64) stop 11
  63       endif
  64       if (real128 > 0) then
  65          p = int(ieee_scalb(real(x, real128), int(i, int64)))
  66          if (p /= 64) stop 12
  67       end if
  68    end if
  69
  70 end program foo