diff options
author | H.J. Lu <hjl.tools@gmail.com> | 2015-02-10 04:13:42 -0800 |
---|---|---|
committer | H.J. Lu <hjl.tools@gmail.com> | 2015-02-10 04:13:42 -0800 |
commit | 9547f24e09cb9cf4db70f0ad308d2f03015c7d81 (patch) | |
tree | 16b168d8b010c84e72d37f9aa22e216d5a2a8b3d /gcc/fortran/check.c | |
parent | 5a28f86b322357cb07d2ae3a42fa39f0749cf9f2 (diff) | |
parent | ae10eb82fe34c18640ad65c2ab94ffc53f349315 (diff) | |
download | gcc-hjl/x32/gcc-4_7-branch.tar.gz |
Merge remote-tracking branch 'origin/gcc-4_7-branch' into hjl/x32/gcc-4_7-branchhjl/x32/gcc-4_7-branch
Diffstat (limited to 'gcc/fortran/check.c')
-rw-r--r-- | gcc/fortran/check.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index f6195aa8b3a..e5fd0374829 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -454,7 +454,7 @@ allocatable_check (gfc_expr *e, int n) symbol_attribute attr; attr = gfc_variable_attr (e, NULL); - if (!attr.allocatable) + if (!attr.allocatable || attr.associate_var) { gfc_error ("'%s' argument of '%s' intrinsic at %L must be ALLOCATABLE", gfc_current_intrinsic_arg[n]->name, gfc_current_intrinsic, |