2 integer (kind
= 4) :: a
, a2
3 integer (kind
= 2) :: b
, b2
5 double precision :: d
, d2
, c2
6 integer, dimension (10) :: e
39 if (a2
.ne
. 5 .or
. b2
.ne
. 2 .or
. c2
.ne
. 6 .or
. d2
.ne
. 0.5) STOP 1
46 if (a
.ne
. 12 .or
. b
.ne
. -17) STOP 2
51 if (a
.ne
. 19 .or
. b
.ne
. 43) STOP 3
57 if (a
.ne
. 9 .or
. b
.ne
. -16) STOP 4