--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gcc/brig/brigfrontend/brig-fbarrier-handler.cc	Fri Oct 27 22:46:09 2017 +0900
@@ -0,0 +1,45 @@
+/* brig-fbarrier-handler.cc -- brig fbarrier directive handling
+   Copyright (C) 2016-2017 Free Software Foundation, Inc.
+   Contributed by Pekka Jaaskelainen <pekka.jaaskelainen@parmance.com>
+   for General Processor Tech.
+
+This file is part of GCC.
+
+GCC is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free
+Software Foundation; either version 3, or (at your option) any later
+version.
+
+GCC is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License
+along with GCC; see the file COPYING3.  If not see
+<http://www.gnu.org/licenses/>.  */
+
+#include "brig-code-entry-handler.h"
+
+#include "stringpool.h"
+#include "errors.h"
+
+/* Allocate this many bytes from the group segment for each fbarrier.  */
+#define FBARRIER_STRUCT_SIZE 32
+
+size_t
+brig_directive_fbarrier_handler::operator () (const BrigBase *base)
+{
+  /* Model fbarriers as group segment variables with fixed size
+     large enough to store whatever data the actual target needs
+     to store to maintain the barrier info.  The handle is the
+     offset to the beginning of the object.  */
+
+  const BrigDirectiveFbarrier* fbar = (const BrigDirectiveFbarrier*)base;
+  if (m_parent.m_cf != NULL)
+    m_parent.m_cf->m_function_scope_vars.insert (base);
+  std::string var_name = m_parent.get_mangled_name (fbar);
+  m_parent.add_group_variable (var_name, FBARRIER_STRUCT_SIZE, 1,
+			       m_parent.m_cf != NULL);
+  return base->byteCount;
+}