]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - gcc/testsuite/g77.f-torture/execute/5122.f
Imported gcc-4.4.3
[msp430-gcc.git] / gcc / testsuite / g77.f-torture / execute / 5122.f
diff --git a/gcc/testsuite/g77.f-torture/execute/5122.f b/gcc/testsuite/g77.f-torture/execute/5122.f
deleted file mode 100644 (file)
index bdf955a..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-      CHARACTER*20 PARTD(6)
-      INTEGER*2 L
-      DATA (PARTD(L),L=1,6)/'A','B','C','D','E','F'/
-      IF (    PARTD(1) .NE. 'A' .OR. PARTD(2) .NE. 'B'
-     ,   .OR. PARTD(3) .NE. 'C' .OR. PARTD(4) .NE. 'D'
-     ,   .OR. PARTD(5) .NE. 'E' .OR. PARTD(6) .NE. 'F')
-     ,      CALL ABORT
-      END