-- " " ) ( .. .all := /= => = <> << >> >= <= > < & + - / ** * 'access 'address 'adjacent 'aft 'alignment 'base 'bit_order 'body_version 'callable 'caller 'ceiling 'class 'component_size 'composed 'constrained 'copy_size 'count 'definite 'delta 'denorm 'digits 'exponent 'external_tag 'first 'first_bit 'floor 'fore 'fraction 'genetic 'identity 'image 'input 'last 'last_bit 'leading_part 'length 'machine 'machine_emax 'machine_emin 'machine_mantissa 'machine_overflows 'machine_radix 'machine_rounds 'max 'max_size_in_storage_elements 'min 'model 'model_emin 'model_epsilon 'model_mantissa 'model_small 'modulus 'output 'partition_id 'pos 'position 'pred 'range 'read 'remainder 'round 'rounding 'safe_first 'safe_last 'scale 'scaling 'signed_zeros 'size 'small 'storage_pool 'storage_size 'succ 'tag 'terminated 'truncation 'unbiased_rounding 'unchecked_access 'val 'valid 'value 'version 'wide_image 'wide_value 'wide_width 'width 'write ' ' entry function procedure abort abs abstract accept access aliased all and array at begin body case constant declare delay delta digits do else elsif end exception exit for goto if in is limited loop mod new not or others out package pragma private protected raise range record rem renames requeue return select separate string subtype tagged task terminate then type until use when while with xor address boolean character duration float integer latin_1 natural positive string time false null true