Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
profile_warning_p.adb
blob: 455237a779ffa70d3314501ec00b424f3671ba63 [
file
] [
log
] [
blame
]
package
body profile_warning_p
is
procedure
Proc
is
begin
null
;
end
Proc
;
task type T
is
end
T
;
task body T
is
begin
null
;
end
;
type A_T
is
access T
;
procedure
Do_Stuff
is
P
:
A_T
;
begin
P
:=
new
T
;
end
Do_Stuff
;
end
;