Index: gcc/gcc/testsuite/gnat.dg/thin_pointer.ads |
diff --git a/gcc/gcc/testsuite/gnat.dg/thin_pointer.ads b/gcc/gcc/testsuite/gnat.dg/thin_pointer.ads |
deleted file mode 100644 |
index 6f528a51ed9ca033e3948a71afbadf88fc75e1db..0000000000000000000000000000000000000000 |
--- a/gcc/gcc/testsuite/gnat.dg/thin_pointer.ads |
+++ /dev/null |
@@ -1,22 +0,0 @@ |
-with System; |
- |
-package Thin_Pointer is |
- |
- type Stream is array (Integer range <>) of Character; |
- |
- type Stream_Ptr is access Stream; |
- for Stream_Ptr'Size use Standard'Address_Size; |
- |
- type Buf is record |
- A : System.Address; |
- end record; |
- |
- type Buf_Wrapper is record |
- B : Buf; |
- end record; |
- |
- type Buf_Ptr is access Buf_Wrapper; |
- |
- procedure Set_Buffer (AD : Buf_Ptr; Buffer : Stream_ptr); |
- |
-end Thin_Pointer; |