gcc/testsuite/g77.f-torture/execute/947.f

   1       DIMENSION A(-5:5)
   2       INTEGER*1 IM5, IZ, IP5
   3       INTEGER*2 IM1, IP1
   4       PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)
   5       DATA A(IM5) /-5./, A(IM1) /-1./
   6       DATA A(IZ)  /0./
   7       DATA A(IP5) /+5./, A(IP1) /+1./
   8       IF (A(IM5) .NE. -5. .OR. A(IM1) .NE. -1. .OR.
   9      ,    A(IZ)  .NE.  0. .OR.
  10      ,    A(IP5) .NE. +5. .OR. A(IP1) .NE. +1. )
  11      ,  CALL ABORT
  12       END