Fix local f2c-interface within function new_general_context.

src/sct.f90

@@ -424,7 +424,7 @@ CONTAINS
         IMPORT:: C_CHAR, C_INT
         IMPLICIT NONE
         CHARACTER(C_CHAR), DIMENSION(*), INTENT(in) :: label
-        INTEGER(C_INT), INTENT(in) :: comm
+        INTEGER(C_INT), VALUE, INTENT(in) :: comm
       END FUNCTION new_general_context_aux
     END INTERFACE