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) call abort
27 if (a
.ne
. 12 .or
. b
.ne
. -17) call abort
32 if (a
.ne
. 19 .or
. b
.ne
. 43) call abort
38 if (a
.ne
. 9 .or
. b
.ne
. -16) call abort