diff options
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index d111d0f..b615f73 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -488,9 +488,6 @@ gfc_check_allocated (gfc_expr *array) if (variable_check (array, 0) == FAILURE) return FAILURE; - if (array_check (array, 0) == FAILURE) - return FAILURE; - attr = gfc_variable_attr (array, NULL); if (!attr.allocatable) { @@ -500,6 +497,9 @@ gfc_check_allocated (gfc_expr *array) return FAILURE; } + if (array_check (array, 0) == FAILURE) + return FAILURE; + return SUCCESS; } |