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, Ior(a,b)
End Program
Execution Results
C 1000D 107
FFFFFFFF 486 FFFFFFFD
FFFFFFFF 1048F FFFFFFFF
<Example Program>
| Program ior_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, Ior(a,b) End Program |
|
Execution Results
C 1000D 107
FFFFFFFF 486 FFFFFFFD
FFFFFFFF 1048F FFFFFFFF
|
|