diff options
| author | Andrew Cagney <cagney@redhat.com> | 2002-12-16 19:33:54 +0000 |
|---|---|---|
| committer | Andrew Cagney <cagney@redhat.com> | 2002-12-16 19:33:54 +0000 |
| commit | b304d1300549d9bc27017556f561766fc2ca9156 (patch) | |
| tree | ec7f74c5887da8d2aa28087ce515852acdda858f /gdb/testsuite/gdb.chill/pr-8136.ch | |
| parent | 939ba9d0fcf7265d9c8920f8dcfda5263268b034 (diff) | |
| download | gdb-b304d1300549d9bc27017556f561766fc2ca9156.zip gdb-b304d1300549d9bc27017556f561766fc2ca9156.tar.gz gdb-b304d1300549d9bc27017556f561766fc2ca9156.tar.bz2 | |
Remove obsolete testsuite code.
Diffstat (limited to 'gdb/testsuite/gdb.chill/pr-8136.ch')
| -rw-r--r-- | gdb/testsuite/gdb.chill/pr-8136.ch | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/gdb/testsuite/gdb.chill/pr-8136.ch b/gdb/testsuite/gdb.chill/pr-8136.ch deleted file mode 100644 index b380110..0000000 --- a/gdb/testsuite/gdb.chill/pr-8136.ch +++ /dev/null @@ -1,34 +0,0 @@ --- NOTE: This test is used for pr-3134.exp as well as pr-8136. -func: MODULE - -<> USE_SEIZE_FILE "func1.grt" <> -SEIZE ALL; - -NEWMODE m_struct = STRUCT (i LONG, str CHARS(50) VARYING); -DCL insarr ARRAY (1:10) INT; - -DCL setrange m_setrange := e5; - -DCL ps m_ps := [ e3, e7:e9 ]; -DCL range_ps m_rangeps := [ 2, 3, 4, 28 ]; - -p1: PROC (first INT IN, last INT IN, s m_struct IN); - - DCL foo LONG := 3; - - startall: PROC () - DO FOR i := first to last; - insarr(i) := i; - OD; - DO FOR i := first TO last; - WRITETEXT (stdout, "insarr(%C) := %C%/", i, insarr(i)); - OD; - END startall; - - startall (); - -END p1; - -p1 (LOWER (insarr), UPPER (insarr), [ 10, "This is a string." ]); - -END func; |