Integer,Parameter :: i8 = Selected_Int_Kind(2)
Integer(i8) :: a(3) = [ Int(z'f1',i8),Int(z'7a',i8),Int(z'0f',i8) ]
Print 1,Not(a)
1 Format(3(1X,Z2.2))
End Program
Execution Results0E 85 F0
<Example Program>
| Program not_example Integer,Parameter :: i8 = Selected_Int_Kind(2) Integer(i8) :: a(3) = [ Int(z'f1',i8),Int(z'7a',i8),Int(z'0f',i8) ] Print 1,Not(a) 1 Format(3(1X,Z2.2)) End Program |
|
| Execution Results 0E 85 F0 |
|