Commit f53dba02 authored by Joerg Behrens's avatar Joerg Behrens
Browse files

Fix local f2c-interface within function new_general_context.

parent 1fd631d7
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment