diff --git a/src/mpi/f77/group_difference_f.c b/src/mpi/f77/group_difference_f.c
index f519fb5457..bcaff88d43 100644
--- a/src/mpi/f77/group_difference_f.c
+++ b/src/mpi/f77/group_difference_f.c
@@ -54,7 +54,6 @@ void mpi_group_difference_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgro
   /* Make the fortran to c representation conversion */
   c_group1 = MPI_Group_f2c(*group1);
   c_group2 = MPI_Group_f2c(*group2);
-  c_newgroup = MPI_Group_f2c(*newgroup);
   
   *ierr = MPI_Group_difference(c_group1, c_group2, &c_newgroup);
 
diff --git a/src/mpi/f77/group_excl_f.c b/src/mpi/f77/group_excl_f.c
index 80ce8c6509..b3067c8b7b 100644
--- a/src/mpi/f77/group_excl_f.c
+++ b/src/mpi/f77/group_excl_f.c
@@ -53,7 +53,6 @@ void mpi_group_excl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *n
 
   /* Make the fortran to c representation conversion */
   c_group = MPI_Group_f2c(*group);
-  c_newgroup = MPI_Group_f2c(*newgroup);
   
   *ierr = MPI_Group_excl(c_group, *n, ranks, &c_newgroup);
 
diff --git a/src/mpi/f77/group_incl_f.c b/src/mpi/f77/group_incl_f.c
index 607c5c6357..d84ba546ce 100644
--- a/src/mpi/f77/group_incl_f.c
+++ b/src/mpi/f77/group_incl_f.c
@@ -54,7 +54,6 @@ void mpi_group_incl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *n
 
     /* make the fortran to c representation conversion */
     c_group = MPI_Group_f2c(*group);
-    c_newgroup = MPI_Group_f2c(*newgroup);
 
     *ierr = MPI_Group_incl(c_group, *ranks, n, &c_newgroup);
 
diff --git a/src/mpi/f77/group_intersection_f.c b/src/mpi/f77/group_intersection_f.c
index e1bf5913e7..efff869685 100644
--- a/src/mpi/f77/group_intersection_f.c
+++ b/src/mpi/f77/group_intersection_f.c
@@ -54,7 +54,6 @@ void mpi_group_intersection_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newg
   /* Make the fortran to c representation conversion */
   c_group1 = MPI_Group_f2c(*group1);
   c_group2 = MPI_Group_f2c(*group2);
-  c_newgroup = MPI_Group_f2c(*newgroup);
   
   *ierr = MPI_Group_intersection(c_group1, c_group2, &c_newgroup);
 
diff --git a/src/mpi/f77/group_range_excl_f.c b/src/mpi/f77/group_range_excl_f.c
index 79b2de2644..891794cea2 100644
--- a/src/mpi/f77/group_range_excl_f.c
+++ b/src/mpi/f77/group_range_excl_f.c
@@ -53,7 +53,6 @@ void mpi_group_range_excl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint ranges[][3],
 
   /* Make the fortran to c representation conversion */
   c_group = MPI_Group_f2c(*group);
-  c_newgroup = MPI_Group_f2c(*newgroup);
   
   *ierr = MPI_Group_range_excl(c_group, *n, ranges, &c_newgroup);
 
diff --git a/src/mpi/f77/group_range_incl_f.c b/src/mpi/f77/group_range_incl_f.c
index e57e1c9780..b4dc76e89d 100644
--- a/src/mpi/f77/group_range_incl_f.c
+++ b/src/mpi/f77/group_range_incl_f.c
@@ -53,7 +53,6 @@ void mpi_group_range_incl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint ranges[][3],
 
   /* Make the fortran to c representation conversion */
   c_group = MPI_Group_f2c(*group);
-  c_newgroup = MPI_Group_f2c(*newgroup);
   
   *ierr = MPI_Group_range_incl(c_group, *n, ranges, &c_newgroup);
 
diff --git a/src/mpi/f77/group_union_f.c b/src/mpi/f77/group_union_f.c
index 0f4c5607fb..84eb76a4e6 100644
--- a/src/mpi/f77/group_union_f.c
+++ b/src/mpi/f77/group_union_f.c
@@ -54,7 +54,6 @@ void mpi_group_union_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, M
   /* Make the fortran to c representation conversion */
   c_group1 = MPI_Group_f2c(*group1);
   c_group2 = MPI_Group_f2c(*group2);
-  c_newgroup = MPI_Group_f2c(*newgroup);
   
   *ierr = MPI_Group_union(c_group1, c_group2, &c_newgroup);