File: pr-8136.ch

package info (click to toggle)
gnat-gdb 5.3.gnat.0.0.20030225-8
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 75,144 kB
  • ctags: 101,348
  • sloc: ansic: 873,511; exp: 46,950; sh: 16,123; makefile: 11,757; yacc: 6,092; asm: 5,027; cpp: 4,044; perl: 2,624; lex: 877; sed: 550; lisp: 394; awk: 170; pascal: 57; java: 7; fortran: 5
file content (34 lines) | stat: -rw-r--r-- 694 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
-- 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;