Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
c-interop
/
note-5-4-c.c
blob: ab278460a580e645923e672bf803c77fb70fdcbb [
file
] [
log
] [
blame
]
#include
<ISO_Fortran_binding.h>
extern
int
test_rank
(
CFI_cdesc_t
*
a
);
int
test_rank
(
CFI_cdesc_t
*
a
)
{
if
(!
a
)
return
-
1
;
/* Should not happen. */
return
a
->
rank
;
}