2 integer (kind
= 4) :: a
, a2
3 integer (kind
= 2) :: b
, b2
5 double precision :: d
, d2
, c2
6 integer, dimension (10) :: e
31 if (a2
.ne
. 1 .or
. b2
.ne
. -16 .or
. c2
.ne
. 3 .or
. d2
.ne
. 2) STOP 1
36 if (a2
.ne
. 5 .or
. b2
.ne
. -16 .or
. c2
.ne
. 6 .or
. d2
.ne
. 2) STOP 2