diff options
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 01651cb..70c23e6 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -875,6 +875,15 @@ gfc_check_associated (gfc_expr *pointer, gfc_expr *target) return FAILURE; } + /* F2008, C1242. */ + if (attr1.pointer && gfc_is_coindexed (pointer)) + { + gfc_error ("'%s' argument of '%s' intrinsic at %L shall not be " + "conindexed", gfc_current_intrinsic_arg[0]->name, + gfc_current_intrinsic, &pointer->where); + return FAILURE; + } + /* Target argument is optional. */ if (target == NULL) return SUCCESS; @@ -902,6 +911,15 @@ gfc_check_associated (gfc_expr *pointer, gfc_expr *target) return FAILURE; } + /* F2008, C1242. */ + if (attr1.pointer && gfc_is_coindexed (target)) + { + gfc_error ("'%s' argument of '%s' intrinsic at %L shall not be " + "conindexed", gfc_current_intrinsic_arg[1]->name, + gfc_current_intrinsic, &target->where); + return FAILURE; + } + t = SUCCESS; if (same_type_check (pointer, 0, target, 1) == FAILURE) t = FAILURE; @@ -2651,6 +2669,15 @@ gfc_check_null (gfc_expr *mold) return FAILURE; } + /* F2008, C1242. */ + if (gfc_is_coindexed (mold)) + { + gfc_error ("'%s' argument of '%s' intrinsic at %L shall not be " + "conindexed", gfc_current_intrinsic_arg[0]->name, + gfc_current_intrinsic, &mold->where); + return FAILURE; + } + return SUCCESS; } |