fix #334

TypeCobolTeam · Nov 8, 2016 · 1d61087 · 1d61087
1 parent d5c4aea
commit 1d61087
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/Codegen/test/Parsers.cs b/Codegen/test/Parsers.cs
@@ -124,6 +124,14 @@ public void ParseLibrary() {
             CodegenTestUtils.ParseGenerateCompare(Path.Combine("TypeCobol","Library")+".cbl", skeletons);
 		}
 
+		[TestMethod]
+		[TestCategory("Codegen")]
+		[TestProperty("Time","fast")]
+		public void ParseProcedureCall() {
+			var skeletons = CodegenTestUtils.ParseConfig(Path.Combine("TypeCobol","skeletons")+".xml");
+            CodegenTestUtils.ParseGenerateCompare(Path.Combine("TypeCobol","ProcedureCall")+".cbl", skeletons);
+		}
+
 
 	}
 }
diff --git a/Codegen/test/resources/output/TypeCobol/FunDeclare.cbl b/Codegen/test/resources/output/TypeCobol/FunDeclare.cbl
@@ -313,10 +313,10 @@
        PROGRAM-ID. MyNOT-01.                                                  
        DATA DIVISION.                                                         
        LINKAGE SECTION.                                                       
-       01 x PIC X     VALUE LOW-VALUE.                                        
+       01 x-value PIC X     VALUE LOW-VALUE.                                  
            88 x       VALUE 'T'.                                              
            88 x-false VALUE 'F'.                                              
-       01 y PIC X     VALUE LOW-VALUE.                                        
+       01 y-value PIC X     VALUE LOW-VALUE.                                  
            88 y       VALUE 'T'.                                              
            88 y-false VALUE 'F'.                                              
        PROCEDURE DIVISION