Fix a unused variable

cp2k · Mar 20, 2019 · 5b1208b · 5b1208b
1 parent 4332823
commit 5b1208b
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/input_cp2k_pwdft.F b/src/input_cp2k_pwdft.F
@@ -266,7 +266,9 @@ SUBROUTINE create_pwdft_section(section)
 
       CHARACTER(len=*), PARAMETER :: routineN = 'create_pwdft_section', &
       routineP = moduleN//':'//routineN
-    END SUBROUTINE create_pwdft_section
+
+      CPASSERT(.NOT. ASSOCIATED(section))
+      END SUBROUTINE create_pwdft_section
 
 #endif