projects
/
platform
/
upstream
/
gcc48.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
remove unused files
[platform/upstream/gcc48.git]
/
gcc
/
testsuite
/
gnat.dg
/
debug2.adb
1
-- { dg-do compile }
2
-- { dg-options "-g" }
3
4
with Debug2_Pkg; use Debug2_Pkg;
5
6
package body Debug2 is
7
8
procedure Proc is
9
10
function F return String_List_Ptr is
11
begin
12
return new String_List'(Singleton);
13
end;
14
15
A : String_List_Ptr := F;
16
17
begin
18
null;
19
end;
20
21
function Get return Integer is
22
begin
23
return 0;
24
end;
25
26
Failed : exception;
27
28
A: String_Ptr;
29
30
begin
31
32
declare
33
Server_Args : Integer;
34
begin
35
Server_Args := Get;
36
exception
37
when X : Failed => A := To_Heap;
38
end;
39
40
end Debug2;