MASKL— Left justified mask
MASKL(I[, KIND])has its leftmost I bits set to 1, and the remaining bits set to 0.
RESULT = MASKL(I[, KIND])
|I||Shall be of type |
|KIND||Shall be a scalar constant expression of type
INTEGER. If KIND is present, it specifies the kind value of the return type; otherwise, it is of the default integer kind.