mirror of
https://github.com/RPCS3/llvm.git
synced 2024-12-23 20:45:06 +00:00
9772acdb47
of the struct (!) works correctly. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@84853 91177308-0d34-0410-b5e6-96231b3b80d8
17 lines
361 B
Ada
17 lines
361 B
Ada
-- RUN: %llvmgcc -c %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;
|