summaryrefslogtreecommitdiffstats
path: root/test/FrontendAda/negative_field_offset.adb
diff options
context:
space:
mode:
Diffstat (limited to 'test/FrontendAda/negative_field_offset.adb')
-rw-r--r--test/FrontendAda/negative_field_offset.adb16
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;
OpenPOWER on IntegriCloud