demo_bgt.f90

      program demo_bgt
      use,intrinsic :: iso_fortran_env, only : int8, int16, int32, int64
      implicit none
      integer            :: i
      integer(kind=int8) :: byte
        ! Compare some one-byte values to 64.
         ! Notice that the values are tested as bits not as integers
         ! so sign bits in the integer are treated just like any other
         write(*,'(a)') 'we will compare other values to 64'
         i=64
         byte=i
         write(*,'(sp,i0.4,*(1x,1l,1x,b0.8))')i,bgt(byte,64_int8),byte

         write(*,'(a)') "comparing at the bit level, not as whole numbers."
         write(*,'(a)') "so pay particular attention to the negative"
         write(*,'(a)') "values on this two's complement platform ..."
         do i=-128,127,32
            byte=i
            write(*,'(sp,i0.4,*(1x,1l,1x,b0.8))')i,bgt(byte,64_int8),byte
         enddo

         ! see the BGE() description for an extended description
         ! of related information

      end program demo_bgt