From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-patches-return-478084-listarch-gcc-patches=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 100255 invoked by alias); 21 May 2018 15:22:48 -0000
Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-patches.gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-patches/>
List-Post: <mailto:gcc-patches@gcc.gnu.org>
List-Help: <mailto:gcc-patches-help@gcc.gnu.org>
Sender: gcc-patches-owner@gcc.gnu.org
Received: (qmail 100239 invoked by uid 89); 21 May 2018 15:22:47 -0000
Authentication-Results: sourceware.org; auth=none
X-Virus-Found: No
X-Spam-SWARE-Status: No, score=-11.0 required=5.0 tests=AWL,BAYES_00,GIT_PATCH_2,GIT_PATCH_3,KAM_ASCII_DIVIDERS,RCVD_IN_DNSWL_NONE,SPF_PASS autolearn=ham version=3.3.2 spammy=HX-Received:sk:95-v6mr, UD:use-after-scope-9.c, HX-Envelope-From:sk:christo, Treat
X-HELO: mail-ua0-f171.google.com
Received: from mail-ua0-f171.google.com (HELO mail-ua0-f171.google.com) (209.85.217.171) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Mon, 21 May 2018 15:22:44 +0000
Received: by mail-ua0-f171.google.com with SMTP id f3-v6so10137756uan.9        for <gcc-patches@gcc.gnu.org>; Mon, 21 May 2018 08:22:44 -0700 (PDT)
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;        d=1e100.net; s=20161025;        h=x-gm-message-state:mime-version:in-reply-to:references:from:date         :message-id:subject:to:content-transfer-encoding;        bh=RQiWGtYCcUThfC98gNVNoPQdmp9pYCNwEYvjLQKir+g=;        b=QOLYa21ew/UnWnAMomuRZS5qNWBdgE/aKytcOfJPfyr8td8Uo7k81u0ZwR8Kw1Q9oM         sFT1+EAAOQP9OJv3+lAm6NguBWQY1q5rZFsQms+3FE9Me8fL0ejapilcTvo98zeOe0iR         6nMeZJatrjP91lHZ8FsJVNDx6ZBTVipLM80p2PcIvwZpArBc+6XICWmFlkOVEImYgc50         VdHNQeEme0uh2UoXYW9x+t0aB4FVOm/ZR8uRC6lIccEnqQASUPHbBR/ujcqwk0MJ7eKI         mtaz8ihtPiBSfPZzecsZkjdKs9z99Y+XGybDM6K/cL8iacYB9JP4lifjywNAIndYK2Ur         tyJw==
X-Gm-Message-State: ALKqPwfIcYtD3ZdMxRWjUL7NbBt4Go/nKIJXzs+P0REynrekjjnCjoQB	nlLkHltF8BdHnnBaP1pQLbUwAg6IR7pkHX0S6f3TlwB92UI=
X-Google-Smtp-Source: AB8JxZrwqsPlMe8WHx9iIL/z2D3WQnlaa3Id2vpviGOvl8M04GjriVh9zD9upxak0SD5RAVkhAQzU5rMLvS3cFGp3/I=
X-Received: by 2002:a9f:2568:: with SMTP id 95-v6mr15005513uaz.143.1526916161997; Mon, 21 May 2018 08:22:41 -0700 (PDT)
MIME-Version: 1.0
Received: by 10.103.54.65 with HTTP; Mon, 21 May 2018 08:22:41 -0700 (PDT)
In-Reply-To: <871seaofij.fsf@linaro.org>
References: <871seaofij.fsf@linaro.org>
From: Christophe Lyon <christophe.lyon@linaro.org>
Date: Mon, 21 May 2018 15:54:00 -0000
Message-ID: <CAKdteOa=5w6wvsowx7yWK1r+CiPTJKuhhrr9odn1jmt4wPEv+w@mail.gmail.com>
Subject: Re: Gimple FE support for internal functions
To: gcc Patches <gcc-patches@gcc.gnu.org>, 	Richard Sandiford <richard.sandiford@linaro.org>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-IsSubscribed: yes
X-SW-Source: 2018-05/txt/msg01057.txt.bz2

On 17 May 2018 at 10:25, Richard Sandiford <richard.sandiford@linaro.org> w=
rote:
> This patch gets the gimple FE to parse calls to internal functions.
> The only non-obvious thing was how the functions should be written
> to avoid clashes with real function names.  One option would be to
> go the magic number of underscores route, but we already do that for
> built-in functions, and it would be good to keep them visually
> distinct.  In the end I borrowed the local/internal label convention
> from asm and used:
>
>   x =3D .SQRT (y);
>
> I don't think even C++ has found a meaning for a leading dot yet.
>
> Tested on aarch64-linux-gnu (with and without SVE), aarch64_be-elf
> and x86_64-linux-gnu.  OK to install?
>
> Richard
>
>
> 2018-05-17  Richard Sandiford  <richard.sandiford@linaro.org>
>
> gcc/
>         * internal-fn.h (lookup_internal_fn): Declare
>         * internal-fn.c (lookup_internal_fn): New function.
>         * gimple.c (gimple_build_call_from_tree): Handle calls to
>         internal functions.
>         * gimple-pretty-print.c (dump_gimple_call): Print "." before
>         internal function names.
>         * tree-pretty-print.c (dump_generic_node): Likewise.
>         * tree-ssa-scopedtables.c (expr_hash_elt::print): Likewise.
>
> gcc/c/
>         * gimple-parser.c: Include internal-fn.h.
>         (c_parser_gimple_statement): Treat a leading CPP_DOT as a call.
>         (c_parser_gimple_call_internal): New function.
>         (c_parser_gimple_postfix_expression): Use it to handle CPP_DOT.
>         Fix typos in comment.
>
> gcc/testsuite/
>         * gcc.dg/gimplefe-28.c: New test.

Hi Richard,

I've noticed that this new test fails on arm-none-linux-gnueabi and
arm-none-eabi:
during RTL pass: expand
/gcc/testsuite/gcc.dg/gimplefe-28.c: In function 'f1':
/gcc/testsuite/gcc.dg/gimplefe-28.c:5:1: internal compiler error: in
maybe_gen_insn, at optabs.c:7240
0xa9157a maybe_gen_insn(insn_code, unsigned int, expand_operand*)
        /gcc/optabs.c:7240
0xa91658 maybe_expand_insn(insn_code, unsigned int, expand_operand*)
        /gcc/optabs.c:7284
0xa91688 expand_insn(insn_code, unsigned int, expand_operand*)
        /gcc/optabs.c:7315
0x94242d expand_direct_optab_fn
        /gcc/internal-fn.c:2918
0x6c5d14 expand_call_stmt
        /gcc/cfgexpand.c:2598
0x6c6fd4 expand_gimple_stmt_1
        /gcc/cfgexpand.c:3644
0x6c6fd4 expand_gimple_stmt
        /gcc/cfgexpand.c:3810
0x6c7ab4 expand_gimple_tailcall
        /gcc/cfgexpand.c:3856
0x6c9183 expand_gimple_basic_block
        /gcc/cfgexpand.c:5816
0x6cbf26 execute
        /gcc/cfgexpand.c:6445

It passes on arm-none-linux-gnueabihf and armeb-none-linux-gnueabihf.

Christophe


>         * gcc.dg/asan/use-after-scope-9.c: Adjust expected output for
>         internal function calls.
>         * gcc.dg/goacc/loop-processing-1.c: Likewise.
>
> Index: gcc/internal-fn.h
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> --- gcc/internal-fn.h   2018-05-16 12:48:59.194282896 +0100
> +++ gcc/internal-fn.h   2018-05-17 09:17:58.757608747 +0100
> @@ -107,6 +107,8 @@ internal_fn_name (enum internal_fn fn)
>    return internal_fn_name_array[(int) fn];
>  }
>
> +extern internal_fn lookup_internal_fn (const char *);
> +
>  /* Return the ECF_* flags for function FN.  */
>
>  extern const int internal_fn_flags_array[];
> Index: gcc/internal-fn.c
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> --- gcc/internal-fn.c   2018-05-16 12:48:59.410941892 +0100
> +++ gcc/internal-fn.c   2018-05-17 09:22:49.808912358 +0100
> @@ -64,6 +64,26 @@ #define DEF_INTERNAL_FN(CODE, FLAGS, FNS
>    0
>  };
>
> +/* Return the internal function called NAME, or IFN_LAST if there's
> +   no such function.  */
> +
> +internal_fn
> +lookup_internal_fn (const char *name)
> +{
> +  typedef hash_map<nofree_string_hash, internal_fn> name_to_fn_map_type;
> +  static name_to_fn_map_type *name_to_fn_map;
> +
> +  if (!name_to_fn_map)
> +    {
> +      name_to_fn_map =3D new name_to_fn_map_type (IFN_LAST);
> +      for (unsigned int i =3D 0; i < IFN_LAST; ++i)
> +       name_to_fn_map->put (internal_fn_name (internal_fn (i)),
> +                            internal_fn (i));
> +    }
> +  internal_fn *entry =3D name_to_fn_map->get (name);
> +  return entry ? *entry : IFN_LAST;
> +}
> +
>  /* Fnspec of each internal function, indexed by function number.  */
>  const_tree internal_fn_fnspec_array[IFN_LAST + 1];
>
> Index: gcc/gimple.c
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> --- gcc/gimple.c        2018-05-16 12:48:59.410941892 +0100
> +++ gcc/gimple.c        2018-05-17 09:22:49.808912358 +0100
> @@ -350,12 +350,19 @@ gimple_build_call_from_tree (tree t, tre
>  {
>    unsigned i, nargs;
>    gcall *call;
> -  tree fndecl =3D get_callee_fndecl (t);
>
>    gcc_assert (TREE_CODE (t) =3D=3D CALL_EXPR);
>
>    nargs =3D call_expr_nargs (t);
> -  call =3D gimple_build_call_1 (fndecl ? fndecl : CALL_EXPR_FN (t), narg=
s);
> +
> +  tree fndecl =3D NULL_TREE;
> +  if (CALL_EXPR_FN (t) =3D=3D NULL_TREE)
> +    call =3D gimple_build_call_internal_1 (CALL_EXPR_IFN (t), nargs);
> +  else
> +    {
> +      fndecl =3D get_callee_fndecl (t);
> +      call =3D gimple_build_call_1 (fndecl ? fndecl : CALL_EXPR_FN (t), =
nargs);
> +    }
>
>    for (i =3D 0; i < nargs; i++)
>      gimple_call_set_arg (call, i, CALL_EXPR_ARG (t, i));
> Index: gcc/gimple-pretty-print.c
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> --- gcc/gimple-pretty-print.c   2018-05-16 12:48:59.410941892 +0100
> +++ gcc/gimple-pretty-print.c   2018-05-17 09:22:49.808912358 +0100
> @@ -874,7 +874,7 @@ dump_gimple_call (pretty_printer *buffer
>    if (flags & TDF_RAW)
>      {
>        if (gimple_call_internal_p (gs))
> -       dump_gimple_fmt (buffer, spc, flags, "%G <%s, %T", gs,
> +       dump_gimple_fmt (buffer, spc, flags, "%G <.%s, %T", gs,
>                          internal_fn_name (gimple_call_internal_fn (gs)),=
 lhs);
>        else
>         dump_gimple_fmt (buffer, spc, flags, "%G <%T, %T", gs, fn, lhs);
> @@ -898,7 +898,10 @@ dump_gimple_call (pretty_printer *buffer
>           pp_space (buffer);
>          }
>        if (gimple_call_internal_p (gs))
> -       pp_string (buffer, internal_fn_name (gimple_call_internal_fn (gs)=
));
> +       {
> +         pp_dot (buffer);
> +         pp_string (buffer, internal_fn_name (gimple_call_internal_fn (g=
s)));
> +       }
>        else
>         print_call_name (buffer, fn, flags);
>        pp_string (buffer, " (");
> Index: gcc/tree-pretty-print.c
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> --- gcc/tree-pretty-print.c     2018-05-16 12:48:59.410941892 +0100
> +++ gcc/tree-pretty-print.c     2018-05-17 09:22:49.808912358 +0100
> @@ -2262,7 +2262,10 @@ dump_generic_node (pretty_printer *pp, t
>        if (CALL_EXPR_FN (node) !=3D NULL_TREE)
>         print_call_name (pp, CALL_EXPR_FN (node), flags);
>        else
> -       pp_string (pp, internal_fn_name (CALL_EXPR_IFN (node)));
> +       {
> +         pp_dot (pp);
> +         pp_string (pp, internal_fn_name (CALL_EXPR_IFN (node)));
> +       }
>
>        /* Print parameters.  */
>        pp_space (pp);
> Index: gcc/tree-ssa-scopedtables.c
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> --- gcc/tree-ssa-scopedtables.c 2018-02-08 13:34:20.649280969 +0000
> +++ gcc/tree-ssa-scopedtables.c 2018-05-17 09:17:58.758608713 +0100
> @@ -906,8 +906,8 @@ expr_hash_elt::print (FILE *stream)
>
>            fn_from =3D m_expr.ops.call.fn_from;
>            if (gimple_call_internal_p (fn_from))
> -            fputs (internal_fn_name (gimple_call_internal_fn (fn_from)),
> -                   stream);
> +           fprintf (stream, ".%s",
> +                    internal_fn_name (gimple_call_internal_fn (fn_from))=
);
>            else
>             print_generic_expr (stream, gimple_call_fn (fn_from));
>            fprintf (stream, " (");
> Index: gcc/c/gimple-parser.c
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> --- gcc/c/gimple-parser.c       2018-05-16 12:48:59.410941892 +0100
> +++ gcc/c/gimple-parser.c       2018-05-17 09:22:49.808912358 +0100
> @@ -53,6 +53,7 @@ Software Foundation; either version 3, o
>  #include "tree-ssanames.h"
>  #include "gimple-ssa.h"
>  #include "tree-dfa.h"
> +#include "internal-fn.h"
>
>
>  /* Gimple parsing functions.  */
> @@ -400,9 +401,10 @@ c_parser_gimple_statement (c_parser *par
>      }
>
>    /* GIMPLE call with lhs.  */
> -  if (c_parser_next_token_is (parser, CPP_NAME)
> -      && c_parser_peek_2nd_token (parser)->type =3D=3D CPP_OPEN_PAREN
> -      && lookup_name (c_parser_peek_token (parser)->value))
> +  if (c_parser_next_token_is (parser, CPP_DOT)
> +      || (c_parser_next_token_is (parser, CPP_NAME)
> +         && c_parser_peek_2nd_token (parser)->type =3D=3D CPP_OPEN_PAREN
> +         && lookup_name (c_parser_peek_token (parser)->value)))
>      {
>        rhs =3D c_parser_gimple_unary_expression (parser);
>        if (rhs.value !=3D error_mark_node)
> @@ -726,14 +728,57 @@ c_parser_parse_ssa_name (c_parser *parse
>    return name;
>  }
>
> +/* Parse a gimple call to an internal function.
> +
> +   gimple-call-internal:
> +     . identifier ( gimple-argument-expression-list[opt] )  */
> +
> +static struct c_expr
> +c_parser_gimple_call_internal (c_parser *parser)
> +{
> +  struct c_expr expr;
> +  expr.set_error ();
> +
> +  gcc_assert (c_parser_next_token_is (parser, CPP_DOT));
> +  c_parser_consume_token (parser);
> +  location_t loc =3D c_parser_peek_token (parser)->location;
> +  if (!c_parser_next_token_is (parser, CPP_NAME)
> +      || c_parser_peek_token (parser)->id_kind !=3D C_ID_ID)
> +    {
> +      c_parser_error (parser, "expecting internal function name");
> +      return expr;
> +    }
> +  tree id =3D c_parser_peek_token (parser)->value;
> +  internal_fn ifn =3D lookup_internal_fn (IDENTIFIER_POINTER (id));
> +  c_parser_consume_token (parser);
> +  if (c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
> +    {
> +      auto_vec<tree> exprlist;
> +      if (!c_parser_next_token_is (parser, CPP_CLOSE_PAREN))
> +       c_parser_gimple_expr_list (parser, &exprlist);
> +      c_parser_skip_until_found (parser, CPP_CLOSE_PAREN, "expected %<)%=
>");
> +      if (ifn =3D=3D IFN_LAST)
> +       error_at (loc, "unknown internal function %qE", id);
> +      else
> +       {
> +         expr.value =3D build_call_expr_internal_loc_array
> +           (loc, ifn, void_type_node, exprlist.length (),
> +            exprlist.address ());
> +         expr.original_code =3D ERROR_MARK;
> +         expr.original_type =3D NULL;
> +       }
> +    }
> +  return expr;
> +}
> +
>  /* Parse gimple postfix expression.
>
>     gimple-postfix-expression:
>       gimple-primary-expression
> -     gimple-primary-xpression [ gimple-primary-expression ]
> +     gimple-primary-expression [ gimple-primary-expression ]
>       gimple-primary-expression ( gimple-argument-expression-list[opt] )
> -     postfix-expression . identifier
> -     postfix-expression -> identifier
> +     gimple-postfix-expression . identifier
> +     gimple-postfix-expression -> identifier
>
>     gimple-argument-expression-list:
>       gimple-unary-expression
> @@ -743,6 +788,7 @@ c_parser_parse_ssa_name (c_parser *parse
>       identifier
>       constant
>       string-literal
> +     gimple-call-internal
>
>  */
>
> @@ -779,6 +825,9 @@ c_parser_gimple_postfix_expression (c_pa
>        expr.original_code =3D STRING_CST;
>        c_parser_consume_token (parser);
>        break;
> +    case CPP_DOT:
> +      expr =3D c_parser_gimple_call_internal (parser);
> +      break;
>      case CPP_NAME:
>        if (c_parser_peek_token (parser)->id_kind =3D=3D C_ID_ID)
>         {
> Index: gcc/testsuite/gcc.dg/gimplefe-28.c
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> --- /dev/null   2018-04-20 16:19:46.369131350 +0100
> +++ gcc/testsuite/gcc.dg/gimplefe-28.c  2018-05-17 09:17:58.757608747 +01=
00
> @@ -0,0 +1,16 @@
> +/* { dg-do compile { target sqrt_insn } } */
> +/* { dg-options "-fgimple -O2" } */
> +
> +double __GIMPLE
> +f1 (double x)
> +{
> +  double res;
> +  res =3D .SQRT (x);
> +  return res;
> +}
> +
> +void __GIMPLE
> +f2 (double x)
> +{
> +  .SQRT (x); // Dead code
> +}
> Index: gcc/testsuite/gcc.dg/asan/use-after-scope-9.c
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> --- gcc/testsuite/gcc.dg/asan/use-after-scope-9.c       2017-02-23 19:54:=
08.000000000 +0000
> +++ gcc/testsuite/gcc.dg/asan/use-after-scope-9.c       2018-05-17 09:17:=
58.757608747 +0100
> @@ -17,7 +17,7 @@ main (int argc, char **argv)
>    return *ptr;
>  }
>
> -// { dg-final { scan-tree-dump-times "=3D ASAN_POISON \\(\\)" 1 "asan1" =
} }
> +// { dg-final { scan-tree-dump-times {=3D \.ASAN_POISON \(\)} 1 "asan1" =
} }
>  // { dg-output "ERROR: AddressSanitizer: stack-use-after-scope on addres=
s.*(\n|\r\n|\r)" }
>  // { dg-output "READ of size .*" }
>  // { dg-output ".*'a' <=3D=3D Memory access at offset \[0-9\]* is inside=
 this variable.*" }
> Index: gcc/testsuite/gcc.dg/goacc/loop-processing-1.c
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> --- gcc/testsuite/gcc.dg/goacc/loop-processing-1.c      2017-02-23 19:54:=
08.000000000 +0000
> +++ gcc/testsuite/gcc.dg/goacc/loop-processing-1.c      2018-05-17 09:17:=
58.757608747 +0100
> @@ -15,4 +15,4 @@ void vector_1 (int *ary, int size)
>    }
>  }
>
> -/* { dg-final { scan-tree-dump {OpenACC loops.*Loop 0\(0\).*Loop 24\(1\)=
.*\.data_dep\.[0-9_]+ =3D UNIQUE \(OACC_HEAD_MARK, 0, 1, 36\);.*Head-0:.*\.=
data_dep\.[0-9_]+ =3D UNIQUE \(OACC_HEAD_MARK, 0, 1, 36\);.*\.data_dep\.[0-=
9_]+ =3D UNIQUE \(OACC_FORK, \.data_dep\.[0-9_]+, 0\);.*Tail-0:.*\.data_dep=
\.[0-9_]+ =3D UNIQUE \(OACC_TAIL_MARK, \.data_dep\.[0-9_]+, 1\);.*\.data_de=
p\.[0-9_]+ =3D UNIQUE \(OACC_JOIN, \.data_dep\.[0-9_]+, 0\);.*Loop 6\(6\).*=
\.data_dep\.[0-9_]+ =3D UNIQUE \(OACC_HEAD_MARK, 0, 2, 6\);.*Head-0:.*\.dat=
a_dep\.[0-9_]+ =3D UNIQUE \(OACC_HEAD_MARK, 0, 2, 6\);.*\.data_dep\.[0-9_]+=
 =3D UNIQUE \(OACC_FORK, \.data_dep\.[0-9_]+, 1\);.*Head-1:.*\.data_dep\.[0=
-9_]+ =3D UNIQUE \(OACC_HEAD_MARK, \.data_dep\.[0-9_]+, 1\);.*\.data_dep\.[=
0-9_]+ =3D UNIQUE \(OACC_FORK, \.data_dep\.[0-9_]+, 2\);.*Tail-1:.*\.data_d=
ep\.[0-9_]+ =3D UNIQUE \(OACC_TAIL_MARK, \.data_dep\.[0-9_]+, 2\);.*\.data_=
dep\.[0-9_]+ =3D UNIQUE \(OACC_JOIN, \.data_dep\.[0-9_]+, 2\);.*Tail-0:.*\.=
data_dep\.[0-9_]+ =3D UNIQUE \(OACC_TAIL_MARK, \.data_dep\.[0-9_]+, 1\);.*\=
.data_dep\.[0-9_]+ =3D UNIQUE \(OACC_JOIN, \.data_dep\.[0-9_]+, 1\);} "oacc=
devlow" } } */
> +/* { dg-final { scan-tree-dump {OpenACC loops.*Loop 0\(0\).*Loop 24\(1\)=
.*\.data_dep\.[0-9_]+ =3D \.UNIQUE \(OACC_HEAD_MARK, 0, 1, 36\);.*Head-0:.*=
\.data_dep\.[0-9_]+ =3D \.UNIQUE \(OACC_HEAD_MARK, 0, 1, 36\);.*\.data_dep\=
.[0-9_]+ =3D \.UNIQUE \(OACC_FORK, \.data_dep\.[0-9_]+, 0\);.*Tail-0:.*\.da=
ta_dep\.[0-9_]+ =3D \.UNIQUE \(OACC_TAIL_MARK, \.data_dep\.[0-9_]+, 1\);.*\=
.data_dep\.[0-9_]+ =3D \.UNIQUE \(OACC_JOIN, \.data_dep\.[0-9_]+, 0\);.*Loo=
p 6\(6\).*\.data_dep\.[0-9_]+ =3D \.UNIQUE \(OACC_HEAD_MARK, 0, 2, 6\);.*He=
ad-0:.*\.data_dep\.[0-9_]+ =3D \.UNIQUE \(OACC_HEAD_MARK, 0, 2, 6\);.*\.dat=
a_dep\.[0-9_]+ =3D \.UNIQUE \(OACC_FORK, \.data_dep\.[0-9_]+, 1\);.*Head-1:=
.*\.data_dep\.[0-9_]+ =3D \.UNIQUE \(OACC_HEAD_MARK, \.data_dep\.[0-9_]+, 1=
\);.*\.data_dep\.[0-9_]+ =3D \.UNIQUE \(OACC_FORK, \.data_dep\.[0-9_]+, 2\)=
;.*Tail-1:.*\.data_dep\.[0-9_]+ =3D \.UNIQUE \(OACC_TAIL_MARK, \.data_dep\.=
[0-9_]+, 2\);.*\.data_dep\.[0-9_]+ =3D \.UNIQUE \(OACC_JOIN, \.data_dep\.[0=
-9_]+, 2\);.*Tail-0:.*\.data_dep\.[0-9_]+ =3D \.UNIQUE \(OACC_TAIL_MARK, \.=
data_dep\.[0-9_]+, 1\);.*\.data_dep\.[0-9_]+ =3D \.UNIQUE \(OACC_JOIN, \.da=
ta_dep\.[0-9_]+, 1\);} "oaccdevlow" } } */