# HG changeset patch
# User anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1597999235 -32400
# Node ID 69a00f5ff08c37c69e097691b47bdc5abdd9a30f
# Parent  9a6d413f1112463bae77110d852adba498b1c8a7
green status

diff -r 9a6d413f1112 -r 69a00f5ff08c src/parallel_execution/lib/Gears/Interface.pm
--- a/src/parallel_execution/lib/Gears/Interface.pm	Fri Aug 21 17:34:00 2020 +0900
+++ b/src/parallel_execution/lib/Gears/Interface.pm	Fri Aug 21 17:40:35 2020 +0900
@@ -135,9 +135,10 @@
         # args   "Impl* stack, __code next(Type* data, Type* data1, ...)",
         if ($arg =~ /__code \w+\((.+),\s*\.\.\.\s*\)/) {
           my $outputArgs = $1;
-          while ($outputArgs =~ /([\w*]+)\s(\w+),?/g) {
-            my $ttype = $1;
-            my $tname = $2;
+          while ($outputArgs =~ /(struct|union|const|enum)?\s*([\w*]+)\s(\w+),?/g) {
+            my $structType = $1;
+            my $ttype = $2;
+            my $tname = $3;
             $ir->{hasOutputArgs}->{$codeGearName}->{$tname} = $ttype;
           }
         }
diff -r 9a6d413f1112 -r 69a00f5ff08c src/parallel_execution/perlTests/Interface.t
--- a/src/parallel_execution/perlTests/Interface.t	Fri Aug 21 17:34:00 2020 +0900
+++ b/src/parallel_execution/perlTests/Interface.t	Fri Aug 21 17:40:35 2020 +0900
@@ -97,7 +97,7 @@
                        ],
             'hasOutputArgs' => {
                                  'take' => {
-                                             'data' => 'union Data*'
+                                             'data' => 'Data*'
                                            }
                                }
           };