2個の32bit整数から1個の64bit整数を作成する

test_20201114_01.f08

program memorandum

    use, intrinsic :: iso_fortran_env

    implicit none

    integer(INT32) :: input_front = -17_INT32
    integer(INT32) :: input_rear  = +32_INT32
    integer(INT64) :: retval

    ! operation
    retval = ior(i=Z'FFFFFFFF00000000', j=input_front)
    retval = ishftc(i= retval, shift=32)
    retval = iand(i=retval, j=ior(i=Z'FFFFFFFF00000000', j=input_rear))

    ! show the result
    print '(1B64.64)', retval
    print '(2B32.32)', input_front, input_rear

end program memorandum