diff options
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 6ca52466fb4..5f536f59208 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -379,7 +379,7 @@ identical_dimen_shape (gfc_expr *a, int ai, gfc_expr *b, int bi) } /* Error return for transformational intrinsics not allowed in - initalization expressions. */ + initialization expressions. */ static try non_init_transformational (void) @@ -3037,6 +3037,28 @@ gfc_check_hostnm_sub (gfc_expr * name, gfc_expr * status) try +gfc_check_itime_idate (gfc_expr * values) +{ + if (array_check (values, 0) == FAILURE) + return FAILURE; + + if (rank_check (values, 0, 1) == FAILURE) + return FAILURE; + + if (variable_check (values, 0) == FAILURE) + return FAILURE; + + if (type_check (values, 0, BT_INTEGER) == FAILURE) + return FAILURE; + + if (kind_value_check(values, 0, gfc_default_integer_kind) == FAILURE) + return FAILURE; + + return SUCCESS; +} + + +try gfc_check_ttynam_sub (gfc_expr * unit, gfc_expr * name) { if (scalar_check (unit, 0) == FAILURE) |