diff options
| author | Andrew MacLeod <amacleod@redhat.com> | 2021-10-21 14:48:20 -0400 |
|---|---|---|
| committer | Andrew MacLeod <amacleod@redhat.com> | 2021-10-25 10:43:06 -0400 |
| commit | 387c665392366a543fb29badaee329533b32abb3 (patch) | |
| tree | 792c61eb7222c47044c97a3f6b50253d4c419daf /gcc/fortran/trans-decl.c | |
| parent | 17d26698aa31268acdf5e1d4d0bc363dd35378ac (diff) | |
| download | gcc-387c665392366a543fb29badaee329533b32abb3.zip gcc-387c665392366a543fb29badaee329533b32abb3.tar.gz gcc-387c665392366a543fb29badaee329533b32abb3.tar.bz2 | |
Initialize variable.
gcc/fortran/
* trans-decl.c (gfc_conv_cfi_to_gfc): Initialize rank to NULL_TREE.
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index de624c8..fe5511b 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -6668,7 +6668,7 @@ gfc_conv_cfi_to_gfc (stmtblock_t *init, stmtblock_t *finally, stmtblock_t block; gfc_init_block (&block); tree cfi = build_fold_indirect_ref_loc (input_location, cfi_desc); - tree rank, idx, etype, tmp, tmp2, size_var = NULL_TREE; + tree idx, etype, tmp, tmp2, size_var = NULL_TREE, rank = NULL_TREE; bool do_copy_inout = false; /* When allocatable + intent out, free the cfi descriptor. */ |