3 INTEGER(kind
=1) IM5
, IZ
, IP5
4 INTEGER(kind
=2) IM1
, IP1
5 PARAMETER (IM5
=-5, IM1
=-1, IZ
=0, IP1
=1, IP5
=5)
6 DATA A
(IM5
) /-5./, A
(IM1
) /-1./
8 DATA A
(IP5
) /+5./, A
(IP1
) /+1./
9 IF (A
(IM5
) .NE
. -5. .OR
. A
(IM1
) .NE
. -1. .OR
.
11 , A
(IP5
) .NE
. +5. .OR
. A
(IP1
) .NE
. +1. )