Remove unused variables

trilinos · Mar 20, 2018 · dbe3125 · dbe3125
1 parent 315f553
commit dbe3125
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/src/tpetra/test/test_tpetra_map.f90 b/src/tpetra/test/test_tpetra_map.f90
@@ -58,7 +58,6 @@ program test_TpetraMap
 
 ! ---------------------------------isOneToOne--------------------------------- !
   FORTRILINOS_UNIT_TEST(TpetraMap_isOneToOne)
-    logical(c_bool) :: bool
     type(TpetraMap) :: Obj
     integer(global_ordinal_type) :: num_global, indices(4)
     num_global = 4*comm%getSize()
@@ -275,7 +274,7 @@ program test_TpetraMap
 ! -------------------------------isDistributed-------------------------------- !
   FORTRILINOS_UNIT_TEST(TpetraMap_isDistributed)
     type(TpetraMap) :: Obj
-    integer(global_ordinal_type) :: num_global, elements(4)
+    integer(global_ordinal_type) :: num_global
     num_global = 4*comm%getSize()
 
     Obj = TpetraMap(num_global, comm); TEST_IERR()
@@ -296,7 +295,6 @@ program test_TpetraMap
 ! --------------------------------isCompatible-------------------------------- !
   FORTRILINOS_UNIT_TEST(TpetraMap_isCompatible)
     type(TpetraMap) :: Obj1, Obj2
-    type(TpetraMap) :: map
     integer(global_ordinal_type) :: num_global, elements(4)
     integer :: k
     num_global = 4*comm%getSize()
@@ -326,7 +324,6 @@ program test_TpetraMap
 ! ----------------------------------isSameAs---------------------------------- !
   FORTRILINOS_UNIT_TEST(TpetraMap_isSameAs)
     type(TpetraMap) :: Obj1, Obj2
-    type(TpetraMap) :: map
     integer(size_type) :: num_local
     integer(global_ordinal_type) :: num_global, elements(4)
     integer :: k