diff options
Diffstat (limited to 'gcc/fortran/gfortran.h')
| -rw-r--r-- | gcc/fortran/gfortran.h | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 8e50e4d..4a8d360 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -437,6 +437,7 @@ enum gfc_isym_id GFC_ISYM_FE_RUNTIME_ERROR, GFC_ISYM_FGET, GFC_ISYM_FGETC, + GFC_ISYM_FINDLOC, GFC_ISYM_FLOOR, GFC_ISYM_FLUSH, GFC_ISYM_FNUM, @@ -2001,6 +2002,7 @@ typedef union bool (*f2)(struct gfc_expr *, struct gfc_expr *); bool (*f3)(struct gfc_expr *, struct gfc_expr *, struct gfc_expr *); bool (*f5ml)(gfc_actual_arglist *); + bool (*f6fl)(gfc_actual_arglist *); bool (*f3red)(gfc_actual_arglist *); bool (*f4)(struct gfc_expr *, struct gfc_expr *, struct gfc_expr *, struct gfc_expr *); @@ -2025,6 +2027,9 @@ typedef union struct gfc_expr *(*f5)(struct gfc_expr *, struct gfc_expr *, struct gfc_expr *, struct gfc_expr *, struct gfc_expr *); + struct gfc_expr *(*f6)(struct gfc_expr *, struct gfc_expr *, + struct gfc_expr *, struct gfc_expr *, + struct gfc_expr *, struct gfc_expr *); struct gfc_expr *(*cc)(struct gfc_expr *, bt, int); } gfc_simplify_f; @@ -2045,6 +2050,9 @@ typedef union struct gfc_expr *, struct gfc_expr *); void (*f5)(struct gfc_expr *, struct gfc_expr *, struct gfc_expr *, struct gfc_expr *, struct gfc_expr *, struct gfc_expr *); + void (*f6)(struct gfc_expr *, struct gfc_expr *, struct gfc_expr *, + struct gfc_expr *, struct gfc_expr *, struct gfc_expr *, + struct gfc_expr *); void (*s1)(struct gfc_code *); } gfc_resolve_f; @@ -2149,6 +2157,11 @@ typedef struct gfc_expr unsigned int external_blas : 1; + /* Set this if resolution has already happened. It could be harmful + if done again. */ + + unsigned int do_not_resolve_again : 1; + /* If an expression comes from a Hollerith constant or compile-time evaluation of a transfer statement, it may have a prescribed target- memory representation, and these cannot always be backformed from @@ -3094,7 +3107,7 @@ extern bool gfc_init_expr_flag; void gfc_intrinsic_init_1 (void); void gfc_intrinsic_done_1 (void); -char gfc_type_letter (bt); +char gfc_type_letter (bt, bool logical_equals_int = false); gfc_symbol * gfc_get_intrinsic_sub_symbol (const char *); bool gfc_convert_type (gfc_expr *, gfc_typespec *, int); bool gfc_convert_type_warn (gfc_expr *, gfc_typespec *, int, int); |