/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/c-interop/ |
H A D | section-3-c.c | 107 input = (struct m *) CFI_address (a, index); in ctest() 109 output = (struct m *) CFI_address (r, index); in ctest() 125 input = (struct m *) CFI_address (a, index); in ctest() 127 output = (struct m *) CFI_address (r, index); in ctest() 146 input = (struct m *) CFI_address (a, index); in ctest() 148 output = (struct m *) CFI_address (r, index); in ctest() 164 input = (struct m *) CFI_address (a, index); in ctest() 166 output = (struct m *) CFI_address (r, index); in ctest() 205 input = (struct m *) CFI_address (a, index); in ctest() 207 output = (struct m *) CFI_address (r, index); in ctest() [all …]
|
H A D | section-1-c.c | 87 int *input = (int *) CFI_address (a, &i); in ctest() 88 int *output = (int *) CFI_address (r, &o); in ctest() 97 int *input = (int *) CFI_address (a, &i); in ctest() 98 int *output = (int *) CFI_address (r, &o); in ctest() 126 int *input = (int *) CFI_address (a, &i); in ctest() 127 int *output = (int *) CFI_address (r, &o); in ctest()
|
H A D | section-2-c.c | 107 input = (struct m *) CFI_address (a, index); in ctest() 110 output = (struct m *) CFI_address (r, index); in ctest() 126 input = (struct m *) CFI_address (a, index); in ctest() 129 output = (struct m *) CFI_address (r, index); in ctest() 165 input = (struct m *) CFI_address (a, index); in ctest() 168 output = (struct m *) CFI_address (r, index); in ctest()
|
H A D | cf-out-descriptor-4-c.c | 75 mp = (struct m *)CFI_address (aa, s); in ctest() 119 mp = (struct m *)CFI_address (a, s); in ctest() 144 mp = (struct m *)CFI_address (aa, s); in ctest() 169 mp = (struct m *)CFI_address (b, s); in ctest()
|
H A D | allocatable-dummy-c.c | 34 tp = (struct t *) CFI_address (a, NULL); in testit_c() 49 tp = (struct t *) CFI_address (a, NULL); in testit_c()
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/ |
H A D | ISO_Fortran_binding_1.c | 44 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 45 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 46 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 60 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 61 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 62 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 90 res_addr = CFI_address (da, idx); in allocate_c() 115 res_addr = (t*)CFI_address (desc, idx); in establish_c() 151 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() 174 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() [all …]
|
H A D | ISO_Fortran_binding_17.c | 13 size_t ld = (size_t)CFI_address(dv, lb); in Csub() 21 ld = (size_t)CFI_address(dv, lb); in Csub()
|
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/ |
H A D | ISO_Fortran_binding_1.c | 44 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 45 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 46 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 60 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 61 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 62 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 90 res_addr = CFI_address (da, idx); in allocate_c() 115 res_addr = (t*)CFI_address (desc, idx); in establish_c() 150 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() 172 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() [all …]
|
H A D | ISO_Fortran_binding_17.c | 13 size_t ld = (size_t)CFI_address(dv, lb); in Csub() 21 ld = (size_t)CFI_address(dv, lb); in Csub()
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/ |
H A D | ISO_Fortran_binding_1.c | 44 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 45 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 46 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 60 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 61 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 62 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 90 res_addr = CFI_address (da, idx); in allocate_c() 115 res_addr = (t*)CFI_address (desc, idx); in establish_c() 150 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() 172 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() [all …]
|
H A D | ISO_Fortran_binding_17.c | 13 size_t ld = (size_t)CFI_address(dv, lb); in Csub() 21 ld = (size_t)CFI_address(dv, lb); in Csub()
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/ |
H A D | ISO_Fortran_binding_1.c | 44 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 45 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 46 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 60 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 61 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 62 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 90 res_addr = CFI_address (da, idx); in allocate_c() 115 res_addr = (t*)CFI_address (desc, idx); in establish_c() 150 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() 172 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() [all …]
|
H A D | ISO_Fortran_binding_17.c | 13 size_t ld = (size_t)CFI_address(dv, lb); in Csub() 21 ld = (size_t)CFI_address(dv, lb); in Csub()
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
H A D | ISO_Fortran_binding_1.c | 44 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 45 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 46 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 60 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 61 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 62 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 90 res_addr = CFI_address (da, idx); in allocate_c() 115 res_addr = (t*)CFI_address (desc, idx); in establish_c() 150 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() 172 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() [all …]
|
H A D | ISO_Fortran_binding_17.c | 13 size_t ld = (size_t)CFI_address(dv, lb); in Csub() 21 ld = (size_t)CFI_address(dv, lb); in Csub()
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gfortran.dg/ |
H A D | ISO_Fortran_binding_1.c | 44 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 45 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 46 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 60 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 61 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 62 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 90 res_addr = CFI_address (da, idx); in allocate_c() 115 res_addr = (t*)CFI_address (desc, idx); in establish_c() 150 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() 172 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() [all …]
|
H A D | ISO_Fortran_binding_17.c | 13 size_t ld = (size_t)CFI_address(dv, lb); in Csub() 21 ld = (size_t)CFI_address(dv, lb); in Csub()
|
/dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
H A D | ISO_Fortran_binding_1.c | 44 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 45 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 46 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 60 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 61 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 62 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 90 res_addr = CFI_address (da, idx); in allocate_c() 115 res_addr = (t*)CFI_address (desc, idx); in establish_c() 150 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() 172 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() [all …]
|
H A D | ISO_Fortran_binding_17.c | 13 size_t ld = (size_t)CFI_address(dv, lb); in Csub() 21 ld = (size_t)CFI_address(dv, lb); in Csub()
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/gfortran.dg/ |
H A D | ISO_Fortran_binding_1.c | 44 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 45 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 46 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 60 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 61 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 62 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 90 res_addr = CFI_address (da, idx); in allocate_c() 115 res_addr = (t*)CFI_address (desc, idx); in establish_c() 150 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() 172 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() [all …]
|
H A D | ISO_Fortran_binding_17.c | 13 size_t ld = (size_t)CFI_address(dv, lb); in Csub() 21 ld = (size_t)CFI_address(dv, lb); in Csub()
|
/dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/gfortran.dg/ |
H A D | ISO_Fortran_binding_1.c | 44 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 45 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 46 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 60 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 61 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 62 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 90 res_addr = CFI_address (da, idx); in allocate_c() 115 res_addr = (t*)CFI_address (desc, idx); in establish_c() 150 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() 172 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() [all …]
|
H A D | ISO_Fortran_binding_17.c | 13 size_t ld = (size_t)CFI_address(dv, lb); in Csub() 21 ld = (size_t)CFI_address(dv, lb); in Csub()
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gfortran.dg/ |
H A D | ISO_Fortran_binding_1.c | 39 res_addr = CFI_address (a_desc, idx); in elemental_mult_c() 40 *res_addr = *(int*)CFI_address (b_desc, idx) in elemental_mult_c() 41 * *(int*)CFI_address (c_desc, idx); in elemental_mult_c() 66 res_addr = CFI_address (da, idx); in allocate_c() 91 res_addr = (t*)CFI_address (desc, idx); in establish_c() 125 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() 145 ans += *(float*)CFI_address ((CFI_cdesc_t*)§ion, idx); in section_c() 173 ans += cimag (*(double _Complex*)CFI_address ((CFI_cdesc_t*)comp_cdesc, in select_part_c()
|
/dports/devel/llvm-cheri/llvm-project-37c49ff00e3eadce5d8703fdc4497f28458c64a8/flang/unittests/Evaluate/ |
H A D | ISO-Fortran-binding.cpp | 204 void *addr{CFI_address(dv, subscripts)}; in check_CFI_address() 465 CFI_address(source, srcSubcripts) == in run_CFI_section_tests() 466 CFI_address(result, resSubcripts)); in run_CFI_section_tests() 468 CFI_address(source, srcSubcripts) == in run_CFI_section_tests() 492 CFI_address(source, srcSubcripts) == in run_CFI_section_tests() 493 CFI_address(result, resSubcripts)); in run_CFI_section_tests() 495 CFI_address(source, srcSubcripts) == in run_CFI_section_tests() 561 i * 2 + j * 64, *static_cast<int *>(CFI_address(result, subscripts))); in run_CFI_select_part_tests() 592 static_cast<char *>(CFI_address(result, subscripts))[0]); in run_CFI_select_part_tests() 594 static_cast<char *>(CFI_address(result, subscripts))[1]); in run_CFI_select_part_tests()
|