Viewing file:  pr57351.c (1.44 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
/* { dg-do compile } */
/* { dg-require-effective-target arm_neon } */
/* { dg-require-effective-target arm_arch_v7a_ok } */
/* { dg-options "-std=c99 -Os -g -march=armv7-a" } */
/* { dg-add-options arm_neon } */
typedef unsigned int size_t;
typedef int ptrdiff_t;
typedef signed char int8_t ;
typedef signed long long int64_t;
typedef int8_t GFC_INTEGER_1;
typedef GFC_INTEGER_1 GFC_LOGICAL_1;
typedef int64_t GFC_INTEGER_8;
typedef GFC_INTEGER_8 GFC_LOGICAL_8;
typedef ptrdiff_t index_type;
typedef struct descriptor_dimension
{
index_type lower_bound;
index_type _ubound;
}
descriptor_dimension;
typedef struct { GFC_LOGICAL_1 *base_addr; size_t offset; index_type dtype; descriptor_dimension dim[7];} gfc_array_l1;
typedef struct { GFC_LOGICAL_8 *base_addr; size_t offset; index_type dtype; descriptor_dimension dim[7];} gfc_array_l8;
void
all_l8 (gfc_array_l8 * const restrict retarray,
gfc_array_l1 * const restrict array,
const index_type * const restrict pdim)
{
GFC_LOGICAL_8 * restrict dest;
index_type n;
index_type len;
index_type delta;
index_type dim;
dim = (*pdim) - 1;
len = ((array)->dim[dim]._ubound + 1 - (array)->dim[dim].lower_bound);
for (n = 0; n < dim; n++)
{
const GFC_LOGICAL_1 * restrict src;
GFC_LOGICAL_8 result;
{
result = 1;
{
for (n = 0; n < len; n++, src += delta)
{
if (! *src)
{
result = 0;
break;
}
}
*dest = result;
}
}
}
}
|
