ory-oathkeeper-client 0.40.8 → 25.4.0

data/vendor/bundle/ruby/3.1.0/gems/ffi-1.17.0/ext/ffi_c/libffi/testsuite/emscripten/build.sh

@@ -1,63 +0,0 @@
-#!/usr/bin/env bash
-command -v emcc >/dev/null 2>&1 || {
-  echo >&2 "emsdk could not be found.  Aborting."
-  exit 1
-}
-
-set -e
-
-SOURCE_DIR=$PWD
-
-# Working directories
-TARGET=$SOURCE_DIR/target
-mkdir -p "$TARGET"
-
-# Define default arguments
-
-# JS BigInt to Wasm i64 integration, disabled by default
-# This needs to test false if there exists an environment variable called
-# WASM_BIGINT whose contents are empty. Don't use +x.
-if [ -n "${WASM_BIGINT}" ]; then
-  WASM_BIGINT=true
-else
-  WASM_BIGINT=false
-fi
-
-# Parse arguments
-while [ $# -gt 0 ]; do
-  case $1 in
-  --wasm-bigint) WASM_BIGINT=true ;;
-  --debug) DEBUG=true ;;
-  *)
-    echo "ERROR: Unknown parameter: $1" >&2
-    exit 1
-    ;;
-  esac
-  shift
-done
-
-# Common compiler flags
-export CFLAGS="-O3 -fPIC"
-if [ "$WASM_BIGINT" = "true" ]; then
-  # We need to detect WASM_BIGINT support at compile time
-  export CFLAGS+=" -DWASM_BIGINT"
-fi
-if [ "$DEBUG" = "true" ]; then
-  export CFLAGS+=" -DDEBUG_F"
-fi
-export CXXFLAGS="$CFLAGS"
-
-# Build paths
-export CPATH="$TARGET/include"
-export PKG_CONFIG_PATH="$TARGET/lib/pkgconfig"
-export EM_PKG_CONFIG_PATH="$PKG_CONFIG_PATH"
-
-# Specific variables for cross-compilation
-export CHOST="wasm32-unknown-linux" # wasm32-unknown-emscripten
-
-autoreconf -fiv
-emconfigure ./configure --host=$CHOST --prefix="$TARGET" --enable-static --disable-shared --disable-dependency-tracking \
-  --disable-builddir --disable-multi-os-directory --disable-raw-api --disable-docs
-make install
-cp fficonfig.h target/include/
-cp include/ffi_common.h target/include/

data/vendor/bundle/ruby/3.1.0/gems/ffi-1.17.0/ext/ffi_c/libffi/testsuite/emscripten/node-tests.sh

@@ -1,48 +0,0 @@
-#!/bin/bash
-
-# JS BigInt to Wasm i64 integration, disabled by default
-WASM_BIGINT=false
-
-emcc_exists="$(command -v emcc)"
-if [ ! "${emcc_exists}" ]; then
-  echo "Emscripten not on path"
-  exit 1
-fi
-
-# Parse arguments
-while [ $# -gt 0 ]; do
-  case $1 in
-  --wasm-bigint) WASM_BIGINT=true ;;
-  *)
-    echo "ERROR: Unknown parameter: $1" >&2
-    exit 1
-    ;;
-  esac
-  shift
-done
-
-# Common compiler flags
-export CFLAGS="-fPIC $EXTRA_CFLAGS"
-if [ "$WASM_BIGINT" = "true" ]; then
-  # We need to detect WASM_BIGINT support at compile time
-  export CFLAGS+=" -DWASM_BIGINT"
-fi
-export CXXFLAGS="$CFLAGS -sNO_DISABLE_EXCEPTION_CATCHING $EXTRA_CXXFLAGS"
-export LDFLAGS="-sEXPORTED_FUNCTIONS=_main,_malloc,_free -sALLOW_TABLE_GROWTH -sASSERTIONS -sNO_DISABLE_EXCEPTION_CATCHING"
-if [ "$WASM_BIGINT" = "true" ]; then
-  export LDFLAGS+=" -sWASM_BIGINT"
-else
-  export LDFLAGS+=" -sEXPORTED_RUNTIME_METHODS='getTempRet0,setTempRet0'"
-fi
-
-# Specific variables for cross-compilation
-export CHOST="wasm32-unknown-linux" # wasm32-unknown-emscripten
-
-autoreconf -fiv
-emconfigure ./configure --prefix="$(pwd)/target" --host=$CHOST --enable-static --disable-shared \
-  --disable-builddir --disable-multi-os-directory --disable-raw-api --disable-docs ||
-  (cat config.log && exit 1)
-make
-
-EMMAKEN_JUST_CONFIGURE=1 emmake make check \
-  RUNTESTFLAGS="LDFLAGS_FOR_TARGET='$LDFLAGS'" || (cat testsuite/libffi.log && exit 1)

data/vendor/bundle/ruby/3.1.0/gems/ffi-1.17.0/ext/ffi_c/libffi/testsuite/libffi.call/callback.c

@@ -1,99 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check structures with array and callback.
-   Limitations:	none.
-   PR:		none.
-   Originator:	David Tenty <daltenty@ibm.com>  */
-
-/* { dg-do run } */
-#include "ffitest.h"
-
-int i=5;
-
-void callback(void) { i++; }
-
-typedef struct
-{
-  unsigned char c1;
-  double s[2];
-  unsigned char c2;
-} test_structure_12;
-
-static test_structure_12 ABI_ATTR struct12 (test_structure_12 ts, void (*func)(void))
-{
-  ts.c1 += 1;
-  ts.c2 += 1;
-  ts.s[0] += 1;
-  ts.s[1] += 1;
-
-  func();
-  return ts;
-}
-
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[MAX_ARGS];
-  void *values[MAX_ARGS];
-  ffi_type ts12_type,ts12a_type;
-  ffi_type *ts12_type_elements[4];
-  ffi_type *ts12a_type_elements[3];
-
-  test_structure_12 ts12_arg;
-  void (*ptr)(void)=&callback;
-
-  test_structure_12 *ts12_result =
-    (test_structure_12 *) malloc (sizeof(test_structure_12));
-
-  ts12a_type.size = 0;
-  ts12a_type.alignment = 0;
-  ts12a_type.type = FFI_TYPE_STRUCT;
-  ts12a_type.elements = ts12a_type_elements;
-  ts12a_type_elements[0] = &ffi_type_double;
-  ts12a_type_elements[1] = &ffi_type_double;
-  ts12a_type_elements[2] = NULL;
-
-  ts12_type.size = 0;
-  ts12_type.alignment = 0;
-  ts12_type.type = FFI_TYPE_STRUCT;
-  ts12_type.elements = ts12_type_elements;
-  ts12_type_elements[0] = &ffi_type_uchar;
-  ts12_type_elements[1] = &ts12a_type;
-  ts12_type_elements[2] = &ffi_type_uchar;
-  ts12_type_elements[3] = NULL;
-
-
-  args[0] = &ts12_type;
-  args[1] = &ffi_type_pointer;
-  values[0] = &ts12_arg;
-  values[1] = &ptr;
-
-  CHECK(ffi_prep_cif(&cif, ABI_NUM, 2, &ts12_type, args) == FFI_OK);
-
-  ts12_arg.c1 = 5;
-  ts12_arg.c2 = 6;
-  ts12_arg.s[0] = 7.77;
-  ts12_arg.s[1] = 8.88;
-
-  printf ("%u\n", ts12_arg.c1);
-  printf ("%u\n", ts12_arg.c2);
-  printf ("%g\n", ts12_arg.s[0]);
-  printf ("%g\n", ts12_arg.s[1]);
-  printf ("%d\n", i);
-
-  ffi_call(&cif, FFI_FN(struct12), ts12_result, values);
-
-  printf ("%u\n", ts12_result->c1);
-  printf ("%u\n", ts12_result->c2);
-  printf ("%g\n", ts12_result->s[0]);
-  printf ("%g\n", ts12_result->s[1]);
-  printf ("%d\n", i);
-  CHECK(ts12_result->c1 == 5 + 1);
-  CHECK(ts12_result->c2 == 6 + 1);
-  CHECK(ts12_result->s[0] == 7.77 + 1);
-  CHECK(ts12_result->s[1] == 8.88 + 1);
-  CHECK(i == 5 + 1);
-  CHECK(ts12_type.size == sizeof(test_structure_12));
-
-  free (ts12_result);
-  exit(0);
-}

data/vendor/bundle/ruby/3.1.0/gems/ffi-1.17.0/ext/ffi_c/libffi/testsuite/libffi.call/callback2.c

@@ -1,108 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check structures with nested array and callback.
-   Limitations:	none.
-   PR:		none.
-   Originator:	David Tenty <daltenty@ibm.com>  */
-
-/* { dg-do run } */
-#include "ffitest.h"
-
-int i=5;
-
-void callback(void) { i++; }
-
-typedef struct
-{
-  struct { double d; } s1;
-  double s[2];
-  unsigned char c2;
-} test_structure_12;
-
-static test_structure_12 ABI_ATTR struct12 (test_structure_12 ts, void (*func)(void))
-{
-  ts.s1.d += 1;
-  ts.c2 += 1;
-  ts.s[0] += 1;
-  ts.s[1] += 1;
-
-  func();
-  return ts;
-}
-
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[MAX_ARGS];
-  void *values[MAX_ARGS];
-  ffi_type ts12_type,ts12a_type, ts12b_type;
-  ffi_type *ts12_type_elements[4];
-  ffi_type *ts12a_type_elements[2];
-  ffi_type *ts12b_type_elements[3];
-
-
-  test_structure_12 ts12_arg;
-  void (*ptr)(void)=&callback;
-
-  test_structure_12 *ts12_result =
-    (test_structure_12 *) malloc (sizeof(test_structure_12));
-
-  ts12a_type.size = 0;
-  ts12a_type.alignment = 0;
-  ts12a_type.type = FFI_TYPE_STRUCT;
-  ts12a_type.elements = ts12a_type_elements;
-  ts12a_type_elements[0] = &ffi_type_double;
-  ts12a_type_elements[1] = NULL;
-
-  ts12b_type.size = 0;
-  ts12b_type.alignment = 0;
-  ts12b_type.type = FFI_TYPE_STRUCT;
-  ts12b_type.elements = ts12b_type_elements;
-  ts12b_type_elements[0] = &ffi_type_double;
-  ts12b_type_elements[1] = &ffi_type_double;
-  ts12b_type_elements[2] = NULL;
-
-  ts12_type.size = 0;
-  ts12_type.alignment = 0;
-  ts12_type.type = FFI_TYPE_STRUCT;
-  ts12_type.elements = ts12_type_elements;
-  ts12_type_elements[0] = &ts12a_type;
-  ts12_type_elements[1] = &ts12b_type;
-  ts12_type_elements[2] = &ffi_type_uchar;
-  ts12_type_elements[3] = NULL;
-
-
-  args[0] = &ts12_type;
-  args[1] = &ffi_type_pointer;
-  values[0] = &ts12_arg;
-  values[1] = &ptr;
-
-  CHECK(ffi_prep_cif(&cif, ABI_NUM, 2, &ts12_type, args) == FFI_OK);
-
-  ts12_arg.s1.d = 5.55;
-  ts12_arg.c2 = 6;
-  ts12_arg.s[0] = 7.77;
-  ts12_arg.s[1] = 8.88;
-
-  printf ("%g\n", ts12_arg.s1.d);
-  printf ("%u\n", ts12_arg.c2);
-  printf ("%g\n", ts12_arg.s[0]);
-  printf ("%g\n", ts12_arg.s[1]);
-  printf ("%d\n", i);
-
-  ffi_call(&cif, FFI_FN(struct12), ts12_result, values);
-
-  printf ("%g\n", ts12_result->s1.d);
-  printf ("%u\n", ts12_result->c2);
-  printf ("%g\n", ts12_result->s[0]);
-  printf ("%g\n", ts12_result->s[1]);
-  printf ("%d\n", i);
-  CHECK(ts12_result->s1.d == 5.55 + 1);
-  CHECK(ts12_result->c2 == 6 + 1);
-  CHECK(ts12_result->s[0] == 7.77 + 1);
-  CHECK(ts12_result->s[1] == 8.88 + 1);
-  CHECK(i == 5 + 1);
-  CHECK(ts12_type.size == sizeof(test_structure_12));
-
-  free (ts12_result);
-  exit(0);
-}

data/vendor/bundle/ruby/3.1.0/gems/ffi-1.17.0/ext/ffi_c/libffi/testsuite/libffi.call/callback3.c

@@ -1,114 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check structures with array and callback.
-   Limitations:	none.
-   PR:		none.
-   Originator:	David Tenty <daltenty@ibm.com>  */
-
-/* { dg-do run } */
-#include "ffitest.h"
-
-int i=5;
-
-void callback(void) { i++; }
-
-
-typedef struct
-{
-  struct { unsigned char c; double d; } s1;
-  double s[2];
-  unsigned char c2;
-} test_structure_12;
-
-static test_structure_12 ABI_ATTR struct12 (test_structure_12 ts, void (*func)(void))
-{
-  ts.s1.c += 1;
-  ts.s1.d += 1;
-  ts.c2 += 1;
-  ts.s[0] += 1;
-  ts.s[1] += 1;
-
-  func();
-  return ts;
-}
-
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[MAX_ARGS];
-  void *values[MAX_ARGS];
-  ffi_type ts12_type,ts12b_type, ts12a_type;
-  ffi_type *ts12_type_elements[4];
-  ffi_type *ts12b_type_elements[3];
-  ffi_type *ts12a_type_elements[3];
-
-  test_structure_12 ts12_arg;
-  void (*ptr)(void)=&callback;
-
-  test_structure_12 *ts12_result =
-    (test_structure_12 *) malloc (sizeof(test_structure_12));
-
-  ts12a_type.size = 0;
-  ts12a_type.alignment = 0;
-  ts12a_type.type = FFI_TYPE_STRUCT;
-  ts12a_type.elements = ts12a_type_elements;
-  ts12a_type_elements[0] = &ffi_type_uchar;
-  ts12a_type_elements[1] = &ffi_type_double;
-  ts12a_type_elements[2] = NULL;
-
-  ts12b_type.size = 0;
-  ts12b_type.alignment = 0;
-  ts12b_type.type = FFI_TYPE_STRUCT;
-  ts12b_type.elements = ts12b_type_elements;
-  ts12b_type_elements[0] = &ffi_type_double;
-  ts12b_type_elements[1] = &ffi_type_double;
-  ts12b_type_elements[2] = NULL;
-
-  ts12_type.size = 0;
-  ts12_type.alignment = 0;
-  ts12_type.type = FFI_TYPE_STRUCT;
-  ts12_type.elements = ts12_type_elements;
-  ts12_type_elements[0] = &ts12a_type;
-  ts12_type_elements[1] = &ts12b_type;
-  ts12_type_elements[2] = &ffi_type_uchar;
-  ts12_type_elements[3] = NULL;
-
-
-  args[0] = &ts12_type;
-  args[1] = &ffi_type_pointer;
-  values[0] = &ts12_arg;
-  values[1] = &ptr;
-
-  CHECK(ffi_prep_cif(&cif, ABI_NUM, 2, &ts12_type, args) == FFI_OK);
-
-  ts12_arg.s1.c = 5;
-  ts12_arg.s1.d = 5.55;
-  ts12_arg.c2 = 6;
-  ts12_arg.s[0] = 7.77;
-  ts12_arg.s[1] = 8.88;
-
-  printf ("%d\n", ts12_arg.s1.c);
-  printf ("%g\n", ts12_arg.s1.d);
-  printf ("%u\n", ts12_arg.c2);
-  printf ("%g\n", ts12_arg.s[0]);
-  printf ("%g\n", ts12_arg.s[1]);
-  printf ("%d\n", i);
-
-  ffi_call(&cif, FFI_FN(struct12), ts12_result, values);
-
-  printf ("%d\n", ts12_result->s1.c);
-  printf ("%g\n", ts12_result->s1.d);
-  printf ("%u\n", ts12_result->c2);
-  printf ("%g\n", ts12_result->s[0]);
-  printf ("%g\n", ts12_result->s[1]);
-  printf ("%d\n", i);
-  CHECK(ts12_result->s1.c == 5 + 1);
-  CHECK(ts12_result->s1.d == 5.55 + 1);
-  CHECK(ts12_result->c2 == 6 + 1);
-  CHECK(ts12_result->s[0] == 7.77 + 1);
-  CHECK(ts12_result->s[1] == 8.88 + 1);
-  CHECK(i == 5 + 1);
-  CHECK(ts12_type.size == sizeof(test_structure_12));
-
-  free (ts12_result);
-  exit(0);
-}

data/vendor/bundle/ruby/3.1.0/gems/ffi-1.17.0/ext/ffi_c/libffi/testsuite/libffi.call/callback4.c

@@ -1,119 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check structures with array and callback.
-   Limitations:	none.
-   PR:		none.
-   Originator:	David Tenty <daltenty@ibm.com>  */
-
-/* { dg-do run } */
-#include "ffitest.h"
-
-int i=5;
-
-void callback(void) { i++; }
-
-
-typedef struct
-{
-  unsigned char c1;
-  struct { double d; unsigned char c; } s[2];
-  unsigned char c2;
-} test_structure_12;
-
-static test_structure_12 ABI_ATTR struct12 (test_structure_12 ts, void (*func)(void))
-{
-  ts.c1 += 1;
-  ts.s[0].d += 1;
-  ts.s[0].c += 1;
-  ts.s[1].d += 1;
-  ts.s[1].c += 1;
-  ts.c2 += 1;
-
-  func();
-  return ts;
-}
-
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[MAX_ARGS];
-  void *values[MAX_ARGS];
-  ffi_type ts12_type,ts12b_type, ts12a_type;
-  ffi_type *ts12_type_elements[4];
-  ffi_type *ts12b_type_elements[3];
-  ffi_type *ts12a_type_elements[3];
-
-  test_structure_12 ts12_arg;
-  void (*ptr)(void)=&callback;
-
-  test_structure_12 *ts12_result =
-    (test_structure_12 *) malloc (sizeof(test_structure_12));
-
-  ts12a_type.size = 0;
-  ts12a_type.alignment = 0;
-  ts12a_type.type = FFI_TYPE_STRUCT;
-  ts12a_type.elements = ts12a_type_elements;
-  ts12a_type_elements[0] = &ffi_type_double;
-  ts12a_type_elements[1] = &ffi_type_uchar;
-  ts12a_type_elements[2] = NULL;
-
-  ts12b_type.size = 0;
-  ts12b_type.alignment = 0;
-  ts12b_type.type = FFI_TYPE_STRUCT;
-  ts12b_type.elements = ts12b_type_elements;
-  ts12b_type_elements[0] = &ts12a_type;
-  ts12b_type_elements[1] = &ts12a_type;
-  ts12b_type_elements[2] = NULL;
-
-  ts12_type.size = 0;
-  ts12_type.alignment = 0;
-  ts12_type.type = FFI_TYPE_STRUCT;
-  ts12_type.elements = ts12_type_elements;
-  ts12_type_elements[0] = &ffi_type_uchar;
-  ts12_type_elements[1] = &ts12b_type;
-  ts12_type_elements[2] = &ffi_type_uchar;
-  ts12_type_elements[3] = NULL;
-
-
-  args[0] = &ts12_type;
-  args[1] = &ffi_type_pointer;
-  values[0] = &ts12_arg;
-  values[1] = &ptr;
-
-  CHECK(ffi_prep_cif(&cif, ABI_NUM, 2, &ts12_type, args) == FFI_OK);
-
-  ts12_arg.c1 = 5;
-  ts12_arg.s[0].d = 5.55;
-  ts12_arg.s[0].c = 6;
-  ts12_arg.s[1].d = 7.77;
-  ts12_arg.s[1].c = 8;
-  ts12_arg.c2 = 9;
-
-  printf ("%u\n", ts12_arg.c1);
-  printf ("%g\n", ts12_arg.s[0].d);
-  printf ("%u\n", ts12_arg.s[0].c);
-  printf ("%g\n", ts12_arg.s[1].d);
-  printf ("%u\n", ts12_arg.s[1].c);
-  printf ("%u\n", ts12_arg.c2);
-  printf ("%d\n", i);
-
-  ffi_call(&cif, FFI_FN(struct12), ts12_result, values);
-
-  printf ("%u\n", ts12_result->c1);
-  printf ("%g\n", ts12_result->s[0].d);
-  printf ("%u\n", ts12_result->s[0].c);
-  printf ("%g\n", ts12_result->s[1].d);
-  printf ("%u\n", ts12_result->s[1].c);
-  printf ("%u\n", ts12_result->c2);
-  printf ("%d\n", i);
-  CHECK(ts12_result->c1 == 5 + 1);
-  CHECK(ts12_result->s[0].d == 5.55 + 1);
-  CHECK(ts12_result->s[0].c == 6 + 1);
-  CHECK(ts12_result->s[1].d == 7.77 + 1);
-  CHECK(ts12_result->s[1].c == 8 + 1);
-  CHECK(ts12_result->c2 == 9 + 1);
-  CHECK(i == 5 + 1);
-  CHECK(ts12_type.size == sizeof(test_structure_12));
-
-  free (ts12_result);
-  exit(0);
-}

data/vendor/bundle/ruby/3.1.0/gems/ffi-1.17.0/ext/ffi_c/libffi/testsuite/libffi.call/va_struct2.c

@@ -1,134 +0,0 @@
-/* Area:		ffi_call
-   Purpose:		Test passing struct in variable argument lists.
-   Limitations:	none.
-   PR:			none.
-   Originator: ARM Ltd. */
-
-/* { dg-do run } */
-/* { dg-output "" { xfail avr32*-*-* } } */
-
-#include "ffitest.h"
-#include <stdarg.h>
-
-struct small_tag
-{
-  unsigned char a;
-  unsigned char b;
-};
-
-struct large_tag
-{
-  unsigned a;
-  unsigned b;
-  unsigned c;
-  unsigned d;
-  unsigned e;
-};
-
-static struct small_tag
-test_fn (int n, ...)
-{
-  va_list ap;
-  struct small_tag s1;
-  struct small_tag s2;
-  struct large_tag l;
-
-  va_start (ap, n);
-  s1 = va_arg (ap, struct small_tag);
-  l = va_arg (ap, struct large_tag);
-  s2 = va_arg (ap, struct small_tag);
-  printf ("%u %u %u %u %u %u %u %u %u\n", s1.a, s1.b, l.a, l.b, l.c, l.d, l.e,
-	  s2.a, s2.b);
-  CHECK(s1.a == 5);
-  CHECK(s1.b == 6);
-  CHECK(l.a == 10);
-  CHECK(l.b == 11);
-  CHECK(l.c == 12);
-  CHECK(l.d == 13);
-  CHECK(l.e == 14);
-  CHECK(s2.a == 7);
-  CHECK(s2.b == 8);
-  va_end (ap);
-  s1.a += s2.a;
-  s1.b += s2.b;
-  return s1;
-}
-
-int
-main (void)
-{
-  ffi_cif cif;
-  void* args[5];
-  ffi_type* arg_types[5];
-
-  ffi_type s_type;
-  ffi_type *s_type_elements[3];
-
-  ffi_type l_type;
-  ffi_type *l_type_elements[6];
-
-  struct small_tag s1;
-  struct small_tag s2;
-  struct large_tag l1;
-
-  int n;
-  struct small_tag res;
-
-  s_type.size = 0;
-  s_type.alignment = 0;
-  s_type.type = FFI_TYPE_STRUCT;
-  s_type.elements = s_type_elements;
-
-  s_type_elements[0] = &ffi_type_uchar;
-  s_type_elements[1] = &ffi_type_uchar;
-  s_type_elements[2] = NULL;
-
-  l_type.size = 0;
-  l_type.alignment = 0;
-  l_type.type = FFI_TYPE_STRUCT;
-  l_type.elements = l_type_elements;
-
-  l_type_elements[0] = &ffi_type_uint;
-  l_type_elements[1] = &ffi_type_uint;
-  l_type_elements[2] = &ffi_type_uint;
-  l_type_elements[3] = &ffi_type_uint;
-  l_type_elements[4] = &ffi_type_uint;
-  l_type_elements[5] = NULL;
-
-  arg_types[0] = &ffi_type_sint;
-  arg_types[1] = &s_type;
-  arg_types[2] = &l_type;
-  arg_types[3] = &s_type;
-  arg_types[4] = NULL;
-
-  CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 1, 4, &s_type, arg_types) == FFI_OK);
-
-  s1.a = 5;
-  s1.b = 6;
-
-  l1.a = 10;
-  l1.b = 11;
-  l1.c = 12;
-  l1.d = 13;
-  l1.e = 14;
-
-  s2.a = 7;
-  s2.b = 8;
-
-  n = 41;
-
-  args[0] = &n;
-  args[1] = &s1;
-  args[2] = &l1;
-  args[3] = &s2;
-  args[4] = NULL;
-
-  ffi_call(&cif, FFI_FN(test_fn), &res, args);
-  /* { dg-output "5 6 10 11 12 13 14 7 8" } */
-  printf("res: %d %d\n", res.a, res.b);
-  /* { dg-output "\nres: 12 14" } */
-  CHECK(res.a == 12);
-  CHECK(res.b == 14);
-
-  return 0;
-}