1 # Copyright
(C
) 2009-2015 Free Software Foundation
, Inc.
3 # This
program is free software
; you can redistribute it and
/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation
; either version
3 of the License
, or
6 #
(at your option
) any later version.
8 # This
program is distributed in the hope that it will be useful
,
9 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License
for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with GCC
; see the file COPYING3.
If not see
15 #
<http
://www.gnu.org
/licenses
/>.
17 # GCC testsuite that uses the `dg.exp
' driver.
22 if ![check_effective_target_fgraphite] {
26 # Remove VALUE from LIST_VARIABLE.
27 proc lremove {list_variable value} {
28 upvar 1 $list_variable var
29 set idx [lsearch -exact $var $value]
30 set var [lreplace $var $idx $idx]
33 # The default action for a test is 'compile'. Save current default.
34 global dg-do-what-default
35 set save-dg-do-what-default ${dg-do-what-default}
40 set wait_to_run_files
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.C
] ]
41 set scop_files
[lsort
[glob
-nocomplain $srcdir
/$subdir
/scop
-*.C
] ]
42 set id_files
[lsort
[glob
-nocomplain $srcdir
/$subdir
/id
-*.C
] ]
43 set run_id_files
[lsort
[glob
-nocomplain $srcdir
/$subdir
/run
-id
-*.C
] ]
44 set interchange_files
[lsort
[glob
-nocomplain $srcdir
/$subdir
/interchange
-*.C
] ]
45 set block_files
[lsort
[glob
-nocomplain $srcdir
/$subdir
/block
-*.C
] ]
47 # Tests to be compiled.
48 set dg
-do-what
-default
compile
49 g
++-dg
-runtest $scop_files
"" "-O2 -fgraphite -fdump-tree-graphite-all"
50 g
++-dg
-runtest $id_files
"" "-O2 -fgraphite-identity -ffast-math"
53 set dg
-do-what
-default run
54 g
++-dg
-runtest $run_id_files
"" "-O2 -fgraphite-identity"
55 g
++-dg
-runtest $interchange_files
"" "-O2 -floop-interchange -fno-loop-block -fno-loop-strip-mine -ffast-math -fdump-tree-graphite-all"
56 g
++-dg
-runtest $block_files
"" "-O2 -floop-block -fno-loop-strip-mine -fno-loop-interchange -ffast-math -fdump-tree-graphite-all"
58 # The default action
for the rest of the files is
'compile'.
59 set dg
-do-what
-default
compile
60 foreach f $scop_files
{lremove wait_to_run_files $f
}
61 foreach f $id_files
{lremove wait_to_run_files $f
}
62 foreach f $run_id_files
{lremove wait_to_run_files $f
}
63 foreach f $interchange_files
{lremove wait_to_run_files $f
}
64 foreach f $block_files
{lremove wait_to_run_files $f
}
65 g
++-dg
-runtest $wait_to_run_files
"" "-pedantic-errors"
68 set dg
-do-what
-default $
{save
-dg
-do-what
-default
}