diff options
| author | Alessandro Fanfarillo <fanfarillo.gcc@gmail.com> | 2016-02-27 04:57:16 -0700 |
|---|---|---|
| committer | Alessandro Fanfarillo <afanfa@gcc.gnu.org> | 2016-02-27 04:57:16 -0700 |
| commit | 83aa73e7f8ee23726c2da4c2b0b7805ff524dcd9 (patch) | |
| tree | 07c158d42233921a9f190d43a9742094ba449fff /gcc/fortran/trans.c | |
| parent | bd522678f0bb10849e24c10391d8a244b5098815 (diff) | |
| download | gcc-83aa73e7f8ee23726c2da4c2b0b7805ff524dcd9.zip gcc-83aa73e7f8ee23726c2da4c2b0b7805ff524dcd9.tar.gz gcc-83aa73e7f8ee23726c2da4c2b0b7805ff524dcd9.tar.bz2 | |
Right size for events
From-SVN: r233779
Diffstat (limited to 'gcc/fortran/trans.c')
| -rw-r--r-- | gcc/fortran/trans.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index e71430b..c6688d3 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -820,7 +820,7 @@ gfc_allocate_allocatable (stmtblock_t * block, tree mem, tree size, tree token, the FE only passes the pointer around and leaves the actual representation to the library. Hence, we have to convert back to the number of elements. */ - if (lock_var) + if (lock_var || event_var) size = fold_build2_loc (input_location, TRUNC_DIV_EXPR, size_type_node, size, TYPE_SIZE_UNIT (ptr_type_node)); |