Bitwise 'OR' over two integer of kind 8
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=8), | intent(in) | :: | a | |||
| integer(kind=8), | intent(in) | :: | b | 
        function int8_or_int8(a, b) result(r)
          !< Bitwise 'OR' over two integer of kind 8
            implicit none
            integer(kind=8), intent(in) :: a
            integer(kind=8), intent(in) :: b
            integer(kind=8) :: r
            r = ior(a, b)
        end function int8_or_int8