blob: 0a388f148444bc48cb3b848cd623dc0905287267 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
-- { dg-do compile }
-- { dg-options "-O2" }
with Unchecked_Conversion;
with System;
package body Warn6 is
function Conv is new Unchecked_Conversion (System.Address, Q_T);
procedure Dummy is begin null; end;
end Warn6;
|