Re: [PATCH] testsuite (checked in) fix errors from gfortran vect tests [+ testcasefix]

[Dorit Naishlos <DORIT at il dot ibm dot com>]

thanks a lot, Janis.

now that it's possible to run these tests with Framework version 1.4.4, I
was able to test it also on a powerpc64-linux platform, and discovered that
in lp64 mode one of the tests fails to vectorize a loop (passes for lp32).

I'll open a missed optimization PR for that (it's probably a duplicate of
PR 18403). In the meantime, ok to commit the following patch?

Changelog:

      * gfortran.dg/vect/vect-5.f90: xfail for lp64.

Index: vect-5.f90
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gfortran.dg/vect/vect-5.f90,v
retrieving revision 1.1
diff -u -3 -p -r1.1 vect-5.f90
--- vect-5.f90  29 Mar 2005 16:10:22 -0000      1.1
+++ vect-5.f90  31 Mar 2005 09:21:50 -0000
@@ -35,6 +35,8 @@
         stop
         end

-! { dg-final { scan-tree-dump-times "vectorized 2 loops" 1 "vect" { xfail
vect_no_align } } }
-! { dg-final { scan-tree-dump-times "Alignment of access forced using
peeling" 1 "vect" { xfail vect_no_align } } }
-! { dg-final { scan-tree-dump-times "Vectorizing an unaligned access" 2
"vect" { xfail vect_no_align } } }
+! { dg-final { scan-tree-dump-times "vectorized 2 loops" 1 "vect" { xfail
{ vect_no_align || lp64 } } } }
+! { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" { target
lp64 } } }
+! { dg-final { scan-tree-dump-times "Alignment of access forced using
peeling" 1 "vect" { xfail { vect_no_align || lp64 } } } }
+! { dg-final { scan-tree-dump-times "Vectorizing an unaligned access" 2
"vect" { xfail { vect_no_align || lp64 } } } }
+! { dg-final { scan-tree-dump-times "Vectorizing an unaligned access" 1
"vect" { target lp64} } }

thanks,
dorit


gcc-patches-owner@gcc.gnu.org wrote on 31/03/2005 02:29:43:

> This patch fixes the ERRORs from the gfortran vect tests.  Those tests
> use gfortran-dg-runtest, which cycles through a list of optimization
> options using DejaGnu support that appends the compilation flags to the
> test name.  This patch strips the options from the names.
>
> Tested on powerpc64-linux, checked in on mainline.
>
> 2005-03-30  Janis Johnson  <janis187@us.ibm.com>
>
>    * lib/scantree.exp (scan-tree-dump, scan-tree-dump-times,
>    scan-tree-dump-not, scan-tree-dump-dem, scan-tree-dump-dem-not):
>    Strip options from test name.
>
> --- gcc/testsuite/lib/scantree.exp.orig   2005-03-30 13:49:43.350996704
-0800
> +++ gcc/testsuite/lib/scantree.exp   2005-03-30 15:55:53.733950520 -0800
> @@ -49,7 +49,8 @@ proc scan-tree-dump { args } {
>      upvar 2 name testcase
>
>      # This must match the rule in gcc-dg.exp.
> -    set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
> +    set src [file tail [lindex $testcase 0]]
> +    set output_file "[glob $src.t??.[lindex $args 1]]"
>
>      set fd [open $output_file r]
>      set text [read $fd]
> @@ -91,7 +92,8 @@ proc scan-tree-dump-times { args } {
>      upvar 2 name testcase
>
>      # This must match the rule in gcc-dg.exp.
> -    set output_file "[glob [file tail $testcase].t??.[lindex $args 2]]"
> +    set src [file tail [lindex $testcase 0]]
> +    set output_file "[glob $src.t??.[lindex $args 2]]"
>
>      set fd [open $output_file r]
>      set text [read $fd]
> @@ -128,7 +130,8 @@ proc scan-tree-dump-not { args } {
>      }
>
>      upvar 2 name testcase
> -    set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
> +    set src [file tail [lindex $testcase 0]]
> +    set output_file "[glob $src.t??.[lindex $args 1]]"
>
>      set fd [open $output_file r]
>      set text [read $fd]
> @@ -179,7 +182,8 @@ proc scan-tree-dump-dem { args } {
>      }
>
>      upvar 2 name testcase
> -    set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
> +    set src [file tail [lindex $testcase 0]]
> +    set output_file "[glob $src.t??.[lindex $args 1]]"
>
>      set fd [open "| $cxxfilt < $output_file" r]
>      set text [read $fd]
> @@ -229,7 +233,8 @@ proc scan-tree-dump-dem-not { args } {
>      }
>
>      upvar 2 name testcase
> -    set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
> +    set src [file tail [lindex $testcase 0]]
> +    set output_file "[glob $src.t??.[lindex $args 1]]"
>
>      set fd [open "| $cxxfilt < $output_file" r]
>      set text [read $fd]