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

   1       CHARACTER*20 PARTD(6)
   2       INTEGER*2 L
   3       DATA (PARTD(L),L=1,6)/'A','B','C','D','E','F'/
   4       IF (    PARTD(1) .NE. 'A' .OR. PARTD(2) .NE. 'B'
   5      ,   .OR. PARTD(3) .NE. 'C' .OR. PARTD(4) .NE. 'D'
   6      ,   .OR. PARTD(5) .NE. 'E' .OR. PARTD(6) .NE. 'F')
   7      ,      CALL ABORT
   8       END