Unlike a lot of NEON instructions, vext isn't _actually_ parameterized by element...

[oota-llvm.git] / test / FrontendAda / negative_field_offset.adb

diff --git a/test/FrontendAda/negative_field_offset.adb b/test/FrontendAda/negative_field_offset.adb
index 02e3dac23aff70211cdd7a5a21ed3afc79468af0..f8b85108504dbe7530f6405aa0ffa04c925196c6 100644 (file)
--- a/test/FrontendAda/negative_field_offset.adb
+++ b/test/FrontendAda/negative_field_offset.adb
@@ -5,6 +5,12 @@ procedure Negative_Field_Offset (N : Integer) is
    --  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;