* gcc-interface/utils.c: Include diagnostic.h.

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / tf_interface_1.adb

--  { dg-do compile }
package body TF_Interface_1 is
   procedure Get_It (Handle : Stream_Access; It : out CF_Interface_1'class)
  is
  begin
     CF_Interface_1'Class'Read (Handle, It);
  end;
end;