diff options
Diffstat (limited to 'gcc/fortran/gfortran.h')
| -rw-r--r-- | gcc/fortran/gfortran.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 8d89797..729d811 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -2571,6 +2571,7 @@ typedef struct gfc_expr gfc_typespec ts; /* These two refer to the overall expression */ int rank; /* 0 indicates a scalar, -1 an assumed-rank array. */ + int corank; /* same as rank, but for coarrays. */ mpz_t *shape; /* Can be NULL if shape is unknown at compile time */ /* Nonnull for functions and structure constructors, may also used to hold the @@ -3801,7 +3802,6 @@ bool gfc_is_class_array_function (gfc_expr *); bool gfc_ref_this_image (gfc_ref *ref); bool gfc_is_coindexed (gfc_expr *); bool gfc_is_coarray (gfc_expr *); -int gfc_get_corank (gfc_expr *); bool gfc_has_ultimate_allocatable (gfc_expr *); bool gfc_has_ultimate_pointer (gfc_expr *); gfc_expr* gfc_find_team_co (gfc_expr *); |