From 9fab9dde32768e0f0038671ae15d9c30a5143fca Mon Sep 17 00:00:00 2001
From: Teodoro Laino <teodoro.laino@gmail.com>
Date: Fri, 3 Oct 2008 16:32:42 +0000
Subject: [PATCH] properly initialize in parallel

svn-origin-rev: 7650
---
 src/cp_parser_methods.F | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/cp_parser_methods.F b/src/cp_parser_methods.F
index 52d144bea7..9d1ee3faae 100644
--- a/src/cp_parser_methods.F
+++ b/src/cp_parser_methods.F
@@ -259,6 +259,7 @@ CONTAINS
     CPPrecondition(ASSOCIATED(parser),cp_failure_level,routineP,error,failure)
     CPPrecondition(parser%ref_count>0,cp_failure_level,routineP,error,failure)
     IF (.NOT.failure) THEN
+       parser%buffer%input_lines = ""
        IF (parser%para_env%mepos==parser%para_env%source) THEN
           iline = 0
           istat = 0