2 integer (kind
= 4) :: a
3 integer (kind
= 2) :: b
6 integer, dimension (10) :: e
21 if (a
.ne
. 5 .or
. b
.ne
. 2 .or
. c
.ne
. 6 .or
. d
.ne
. 0.5) STOP 1
27 if (a
.ne
. 12 .or
. b
.ne
. -17) STOP 2
32 if (a
.ne
. 19 .or
. b
.ne
. 43) STOP 3
38 if (a
.ne
. 9 .or
. b
.ne
. -16) STOP 4