Sign in
gnu
/
gcc
/
refs/heads/releases/gcc-6
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
assumed_rank_1_c.c
blob: 85dd72db10390f7ce7b8680001df7d34f18a10ab [
file
] [
log
] [
blame
]
/* Called by assumed_rank_1.f90. */
#include
<stdlib.h>
/* For abort(). */
struct
array
{
int
*
data
;
};
void
check_value_
(
struct
array
*
b
,
int
n
,
int
val
[])
{
int
i
;
for
(
i
=
0
;
i
<
n
;
i
++)
if
(
b
->
data
[
i
]
!=
val
[
i
])
abort
();
}