gcc/testsuite/gnat.dg/warn6.adb

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