]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - gcc/testsuite/g77.dg/pr9258.f
Imported gcc-4.4.3
[msp430-gcc.git] / gcc / testsuite / g77.dg / pr9258.f
diff --git a/gcc/testsuite/g77.dg/pr9258.f b/gcc/testsuite/g77.dg/pr9258.f
deleted file mode 100644 (file)
index 1bae920..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-C Test case for PR fortran/9258
-C Origin: kmccarty@Princeton.EDU
-C
-C { dg-do compile }
-      SUBROUTINE FOO (B)
-
- 10   CALL BAR(A)
-      ASSIGN 20 TO M
-      IF(100.LT.A) GOTO 10
-      GOTO 40
-C
- 20   IF(B.LT.ABS(A)) GOTO 10
-      ASSIGN 30 TO M
-      GOTO 40
-C
- 30   ASSIGN 10 TO M
- 40   GOTO M,(10,20,30)
-      END