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