diff options
Diffstat (limited to 'test/FrontendAda/negative_field_offset.adb')
-rw-r--r-- | test/FrontendAda/negative_field_offset.adb | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/test/FrontendAda/negative_field_offset.adb b/test/FrontendAda/negative_field_offset.adb deleted file mode 100644 index ec8184d..0000000 --- a/test/FrontendAda/negative_field_offset.adb +++ /dev/null @@ -1,16 +0,0 @@ --- RUN: %llvmgcc -S %s -with System; -procedure Negative_Field_Offset (N : Integer) is - type String_Pointer is access String; - -- Force use of a thin pointer. - for String_Pointer'Size use System.Word_Size; - P : String_Pointer; - - procedure Q (P : String_Pointer) is - begin - P (1) := 'Z'; - end; -begin - P := new String (1 .. N); - Q (P); -end; |