diff options
Diffstat (limited to 'gcc/fortran/trans-stmt.c')
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 53e9bcc..814bdde 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -5504,7 +5504,7 @@ gfc_trans_allocate (gfc_code * code) memsz = TYPE_SIZE_UNIT (gfc_typenode_for_spec (&code->ext.alloc.ts)); else /* Handle size computation of the type declared to alloc. */ - memsz = TYPE_SIZE_UNIT (TREE_TYPE (TREE_TYPE (se.expr)));; + memsz = TYPE_SIZE_UNIT (TREE_TYPE (TREE_TYPE (se.expr))); /* Allocate - for non-pointers with re-alloc checking. */ if (gfc_expr_attr (expr).allocatable) |