3 integer, parameter :: ik1
= 1, ik2
= 2
4 integer, parameter :: i
= kind(int((0.,0.), kind
=ik1
))
5 integer, parameter :: j
= kind(int((0.,0.), kind
=ik2
))
6 integer, parameter :: k
= kind(int(0., kind
=ik1
))
7 integer, parameter :: l
= kind(int(0., kind
=ik2
))
8 integer, parameter :: m
= kind(int(0, kind
=ik1
))
9 integer, parameter :: n
= kind(int(0, kind
=ik2
))