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