＜IEOR Example Program＞

Program ieor_example
  Integer :: a(3), b(3)
  a = [ 12,65549,263 ]
  b = [ -1,1158,-3 ]
  Print 1, a
1 Format(3(1X,Z8))
  Print 1, b
  Print 1, Ieor(a,b)
End Program

■ Execution Results

        C    1000D      107
 FFFFFFFF      486 FFFFFFFD
 FFFFFFF3    1048B FFFFFEFA