1 # Copyright (C) 2009-2014 Free Software Foundation, Inc.
2 # Written by Ian Lance Taylor <iant@google.com>.
4 # This program is free software; you can redistribute it and/or modify
5 # it under the terms of the GNU General Public License as published by
6 # the Free Software Foundation; either version 3 of the License, or
7 # (at your option) any later version.
9 # This program is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 # GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License
15 # along with GCC; see the file COPYING3. If not see
16 # <http://www.gnu.org/licenses/>.
19 # Test using the testsuite for the gc Go compiler. In these tests the
20 # first line is a shell script to run. That line expects the
21 # following environment variables to be set:
22 # A The file extension of the object file and the name of the executable
23 # G The name of the compiler
24 # L The name of the linker
25 # F The basename of the test
26 # D The directory of the test.
28 # Typical command lines:
31 # // $G $D/$F.go && $L $F.$A && ./$A.out
32 # // $G $D/$F.go && $L $F.$A || echo BUG: known to fail incorrectly
33 # // $G $D/$F.go && echo BUG: compilation succeeds incorrectly
34 # // $G $D/$F.go || echo BUG: compilation should succeed
37 load_lib go-torture.exp
38 load_lib target-supports.exp
41 proc filecmp { file1 file2 testname } {
42 set f1 [open $file1 r]
43 set f2 [open $file2 r]
45 while { [gets $f1 line1] >= 0 } {
46 if { [gets $f2 line2] < 0 } {
47 verbose -log "output mismatch: $file2 shorter than $file1"
51 if { $line1 != $line2 } {
52 verbose -log "output mismatch comparing $file1 and $file2"
53 verbose -log "expected \"$line1\""
54 verbose -log "got \"$line2\""
59 if { [gets $f2 line2] >= 0 } {
60 verbose -log "output mismatch: $file1 shorter than $file2"
73 proc errchk { test opts } {
74 global dg-do-what-default
75 global DEFAULT_GOCFLAGS
78 set saved-dg-do-what-default ${dg-do-what-default}
79 set dg-do-what-default compile
80 set filename [file tail $test]
81 if { "$filename" == "$test" } {
82 set filename "errchk-$filename"
84 set fdin [open $test r]
85 fconfigure $fdin -encoding binary
86 set fdout [open $filename w]
87 fconfigure $fdout -encoding binary
88 while { [gets $fdin copy_line] >= 0 } {
89 if [string match "*////*" $copy_line] {
90 puts $fdout $copy_line
94 # Combine quoted strings in comments, so that
95 # // ERROR "first error" "second error"
97 # // ERROR "first error|second error"
98 # This format is used by the master testsuite to recognize
99 # multiple errors on a single line. We don't require that all
100 # the errors be present, but we do want to accept any of them.
102 while { $changed != $copy_line } {
103 set changed $copy_line
104 regsub "\(// \[^\"\]*\"\[^\"\]*\)\" \"" $copy_line "\\1|" out_line
105 set copy_line $out_line
108 regsub "// \(GCCGO_\)?ERROR \"\(\[^\"\]*\)\".*$" $copy_line "// \{ dg-error \"\\2\" \}" out_line
109 if [string match "*dg-error*\\\[*" $out_line] {
110 set index [string first "dg-error" $out_line]
111 regsub -start $index -all "\\\\\\\[" $out_line "\\\\\\\\\\\[" out_line
113 if [string match "*dg-error*\\\]*" $out_line] {
114 set index [string first "dg-error" $out_line]
115 regsub -start $index -all "\\\\\\\]" $out_line "\\\\\\\\\\\]" out_line
117 if [string match "*dg-error*.\**" $out_line] {
118 # I worked out the right number of backslashes by
119 # experimentation, not analysis.
120 regsub -all "\\.\\*" $out_line "\\\\\[ -~\\\\\]*" out_line
122 if [string match "*dg-error*\\\[?\\\]*" $out_line] {
123 set index [string first "dg-error" $out_line]
124 regsub -all "\\\[\(.\)\\\]" $out_line "\\\\\[\\1\\\\\]" out_line
126 if [string match "*dg-error*\{*" $out_line] {
127 set index [string first "dg-error" $out_line]
128 regsub -start $index -all "\(\[^\\\\]\)\{" $out_line "\\1\\\\\[\\\{\\\\\]" out_line
130 if [string match "*dg-error*\}*\}" $out_line] {
131 set index [string first "dg-error" $out_line]
132 regsub -start $index -all "\(\[^\\\\]\)\}\(.\)" $out_line "\\1\\\\\[\\\}\\\\\]\\2" out_line
134 if [string match "*dg-error*\(*" $out_line] {
135 set index [string first "dg-error" $out_line]
136 regsub -start $index -all "\\\\\\\(" $out_line "\\\\\[\\\(\\\\\]" out_line
138 if [string match "*dg-error*\)*\}" $out_line] {
139 set index [string first "dg-error" $out_line]
140 regsub -start $index -all "\\\\\\\)\(.\)" $out_line "\\\\\[\\\)\\\\\]\\1" out_line
142 # Special case for bug332, in which the error message wants to
143 # match the file name, which is not what dg-error expects.
144 if [string match "*dg-error*bug332*" $out_line] {
145 set index [string first "dg-error" $out_line]
146 regsub -start $index "bug332" $out_line "undefined type" out_line
148 puts $fdout $out_line
153 set hold_runtests $runtests
154 set runtests "go-test.exp"
155 go-dg-runtest $filename "" "-fno-show-column $DEFAULT_GOCFLAGS $opts"
156 set runtests $hold_runtests
158 file delete $filename
159 set dg-do-what-default ${saved-dg-do-what-default}
162 # This is an execution test which should fail.
163 proc go-execute-xfail { test } {
164 global DEFAULT_GOCFLAGS
167 set filename [file tail $test]
168 set fdin [open $test r]
169 set fdout [open $filename w]
170 puts $fdout "// { dg-do run { xfail *-*-* } }"
171 while { [gets $fdin copy_line] >= 0 } {
172 puts $fdout $copy_line
177 set hold_runtests $runtests
178 set runtests "go-test.exp"
179 go-dg-runtest $filename "" "-w $DEFAULT_GOCFLAGS"
180 set runtests $hold_runtests
182 file delete $filename
185 # N.B. Keep in sync with libgo/configure.ac.
186 proc go-set-goarch { } {
187 global target_triplet
189 switch -glob $target_triplet {
204 if [check_effective_target_ia32] {
211 if [check_no_compiler_messages mipso32 assembly {
212 #if _MIPS_SIM != _ABIO32
217 } elseif [check_no_compiler_messages mipsn32 assembly {
218 #if _MIPS_SIM != _ABIN32
223 } elseif [check_no_compiler_messages mipsn64 assembly {
224 #if _MIPS_SIM != _ABI64
229 } elseif [check_no_compiler_messages mipso64 assembly {
230 #if _MIPS_SIM != _ABIO64
236 perror "$target_triplet: unrecognized MIPS ABI"
241 if [check_effective_target_ilp32] {
248 if [check_effective_target_ilp32] {
255 perror "$target_triplet: unhandled architecture"
259 verbose -log "Setting GOARCH=$goarch" 1
260 setenv GOARCH $goarch
263 # Take a list of files and return a lists of lists, where each list is
264 # the set of files in the same package.
265 proc go-find-packages { test name files } {
270 if { [gets $fd line] < 0 } {
272 clone_output "$test: could not read $f"
277 if { [regexp "^package (\\w+)" $line match package] } {
278 set len [llength $packages]
279 for { set i 0 } { $i < $len } { incr i } {
280 set p [lindex $packages $i]
281 if { [lindex $p 0] == $package } {
288 lappend packages [list $package $f]
299 proc go-gc-tests { } {
302 global GCC_UNDER_TEST
304 global TORTURE_OPTIONS
305 global dg-do-what-default
306 global go_compile_args
307 global go_execute_args
308 global target_triplet
310 # If a testcase doesn't have special options, use these.
311 global DEFAULT_GOCFLAGS
312 if ![info exists DEFAULT_GOCFLAGS] {
313 set DEFAULT_GOCFLAGS " -pedantic-errors"
317 lappend options "additional_flags=$DEFAULT_GOCFLAGS"
319 # Set GOARCH for tests that need it.
322 # Running all the torture options takes too long and, since the
323 # frontend ignores the standard options, it doesn't significantly
325 set saved_torture_options $TORTURE_OPTIONS
326 set TORTURE_OPTIONS [list { -O2 -g }]
328 set saved-dg-do-what-default ${dg-do-what-default}
332 set tests [lsort [find $srcdir/$subdir *.go]]
333 foreach test $tests {
334 if ![runtest_file_p $runtests $test] {
338 # Skip the files in bench; they are not tests.
339 if [string match "*go.test/test/bench/*" $test] {
343 # Skip the files in stress; they are not tests.
344 if [string match "*go.test/test/stress/*" $test] {
348 # Skip the files in safe; gccgo does not support safe mode.
349 if [string match "*go.test/test/safe/*" $test] {
353 # Skip files in sub-subdirectories: they are components of
355 if [string match "*go.test/test/*/*/*" $test] {
359 # Skip files in *.dir subdirectories: they are components of
361 if [string match "*go.test/test/*.dir/*" $test] {
365 set name [dg-trim-dirname $srcdir $test]
367 # Skip certain tests if target is RTEMS OS.
368 if [istarget "*-*-rtems*"] {
369 if { [string match "*go.test/test/args.go" $test] \
370 || [string match "*go.test/test/env.go" $test] } {
371 untested "$name: uses the command-line or environment variables"
375 if { [string match "*go.test/test/stack.go" $test] \
376 || [string match "*go.test/test/peano.go" $test] \
377 || [string match "*go.test/test/chan/goroutines.go" $test] } {
378 untested "$name: has very high memory requirement"
383 # Handle certain tests in a target-dependant way.
384 if { [istarget "alpha*-*-*"] || [istarget "sparc*-*-solaris*"] || [istarget "powerpc*-*-*"] } {
385 if { [string match "*go.test/test/nilptr.go" $test] } {
391 if { [file tail $test] == "init1.go" } {
392 # This tests whether GC runs during init, which for gccgo
393 # it currently does not.
398 if { [file tail $test] == "closure.go" } {
399 # This tests whether function closures do any memory
400 # allocation, which for gccgo they currently do.
405 if { ( [file tail $test] == "select2.go" \
406 || [file tail $test] == "stack.go" \
407 || [file tail $test] == "peano.go" ) \
408 && ! [check_effective_target_split_stack] } {
409 # These tests fails on targets without split stack.
414 if [string match "*go.test/test/rotate\[0123\].go" $test] {
415 # These tests produces a temporary file that takes too long
416 # to compile--5 minutes on my laptop without optimization.
417 # When compiling without optimization it tests nothing
418 # useful, since the point of the test is to see whether
419 # the compiler generates rotate instructions.
424 if { [file tail $test] == "bug347.go" \
425 || [file tail $test] == "bug348.go" } {
426 # These tests don't work if the functions are inlined.
427 set TORTURE_OPTIONS [list { -O0 -g }]
430 set fd [open $test r]
435 if { [gets $fd test_line] < 0 } {
437 clone_output "$test: could not read first line"
443 if { [ string match "*nacl*exit 0*" $test_line ] \
444 || [ string match "*exit 0*nacl*" $test_line ] \
445 || [ string match "*Android*exit 0*" $test_line ] \
446 || [ string match "*exit 0*Android*" $test_line ] \
447 || [ string match "*\"\$GOOS\" == windows*" $test_line ] } {
451 if { [ string match "// +build *" $test_line ] } {
452 if { [ string match "*[getenv GOARCH]*" $test_line ] } {
455 if { [ string match "*linux*" $test_line ] } {
458 if { [ string match "*!windows*" $test_line ] } {
469 if { $lines_ok == 0 } {
474 set test_line1 $test_line
476 while { [eval "string match \"//*&&\" \${test_line$lineno}"] } {
477 set lineno [expr $lineno + 1]
478 if { [eval "gets \$fd test_line$lineno"] < 0 } {
480 clone_output "$test: could not read line $lineno"
486 if { $lines_ok == 0 } {
492 set go_compile_args ""
493 set go_execute_args ""
494 if { [regexp "// run (\[^|&>2\].*)\$" $test_line match progargs] \
495 && ! [string match "*.go*" "$progargs"] } {
496 set go_execute_args $progargs
497 verbose -log "$test: go_execute_args is $go_execute_args"
498 set index [string last " $progargs" $test_line]
499 set test_line [string replace $test_line $index end]
500 } elseif { [string match "*go.test/test/chan/goroutines.go" $test] \
501 && [getenv GCCGO_RUN_ALL_TESTS] == "" } {
502 # goroutines.go spawns by default 10000 threads, which is too much
504 if { [getenv GCC_TEST_RUN_EXPENSIVE] == "" } {
505 set go_execute_args 64
506 } elseif { ![is_remote host] && ![is_remote target] } {
507 # When using low ulimit -u limit, use maximum of
508 # a quarter of that limit and 10000 even when running expensive
509 # tests, otherwise parallel tests might fail after fork failures.
510 set nproc [lindex [remote_exec host {sh -c ulimit\ -u}] 1]
511 if { [string is integer -strict $nproc] } {
512 set nproc [expr $nproc / 4]
513 if { $nproc > 10000 } { set nproc 10000 }
514 if { $nproc < 16 } { set nproc 16 }
515 set go_execute_args $nproc
518 if { "$go_execute_args" != "" } {
519 verbose -log "$test: go_execute_args is $go_execute_args"
523 if { $test_line == "// compile"
524 || $test_line == "// echo bug395 is broken # takes 90+ seconds to break" } {
525 # This is a vanilla compile test.
526 set dg-do-what-default "assemble"
527 go-dg-runtest $test "" "-w $DEFAULT_GOCFLAGS"
528 } elseif { $test_line == "// run"
529 || $test_line == "// \$G \$F.go && \$L \$F.\$A && ./\$A.out" } {
530 # This is a vanilla execution test.
531 go-torture-execute $test
532 file delete core [glob -nocomplain core.*]
533 } elseif { $test_line == "// build" } {
534 # This is a vanilla compile and link test.
535 set dg-do-what-default "link"
536 go-dg-runtest $test "" "-w $DEFAULT_GOCFLAGS"
537 } elseif { [string match "// runoutput*" $test_line] \
538 || ($test_line == "// \$G \$D/\$F.go && \$L \$F.\$A &&"
539 && $test_line2 == "// ./\$A.out >tmp.go && \$G tmp.go && \$L -o \$A.out1 tmp.\$A && ./\$A.out1") } {
540 # Run the test to get a .go program to run.
541 set go_execute_args ""
542 set hold_runtests $runtests
543 set runtests "go-test.exp"
545 if { [string match "// runoutput*" $test_line] } {
547 regsub "// runoutput\(.*\)" $test_line "\\1" args
549 lappend files "[file dirname $test]/$f"
552 set dg-do-what-default "link"
553 dg-test -keep-output $test "-O" "$files -w $DEFAULT_GOCFLAGS"
554 set output_file "./[file rootname [file tail $test]].exe"
555 set base "[file rootname [file tail $test]]"
557 if { [catch "exec $output_file >$base-out.go"] != 0 } {
558 fail "$name execution"
560 pass "$name execution"
561 file delete $base-out.x
562 # Disable optimizations as some of these tests
563 # take a long time to compile.
564 set TORTURE_OPTIONS [list { -O0 -g -fno-var-tracking-assignments }]
565 go-torture-execute "./$base-out.go"
567 file delete $base-out.go
569 file delete $output_file
570 set runtests $hold_runtests
571 } elseif { $test_line == "// cmpout" \
572 || $test_line == "// (\$G \$D/\$F.go && \$L \$F.\$A && ./\$A.out 2>&1 | cmp - \$D/\$F.out)" } {
573 # This is an execution test for which we need to check the
575 set hold_runtests $runtests
576 set runtests "go-test.exp"
577 set dg-do-what-default "link"
578 dg-test -keep-output $test "-O" "-w $DEFAULT_GOCFLAGS"
579 set output_file "./[file rootname [file tail $test]].exe"
580 set base "[file rootname [file tail $test]]"
582 verbose -log "$output_file >$base.p 2>&1"
583 if { [catch "exec $output_file 2>$base.p" catcherr] != 0 } {
584 verbose -log $catcherr
585 fail "$name execution"
586 untested "$name compare"
588 pass "$name execution"
589 regsub "\\.go$" $test ".out" expect
590 filecmp $expect $base.p "$name compare"
594 untested "$name execution"
595 untested "$name compare"
597 set runtests $hold_runtests
598 } elseif { [string match "// \$G \$D/\$F.go && \$L \$F.\$A && ! ./\$A.out || echo BUG: *" \
600 go-execute-xfail $test
601 } elseif { $test_line == "// errorcheck" } {
603 } elseif { $test_line == "// errorcheckdir" } {
604 set hold_runtests $runtests
605 set runtests "go-test.exp"
606 set dir "[file rootname $test].dir"
607 set files [lsort [glob "$dir/*.go"]]
608 set packages [go-find-packages $test $name $files]
609 if { [llength $packages] > 0 } {
610 set dg-do-what-default "assemble"
612 set last [lindex $packages end]
613 set packages [lreplace $packages end end]
614 foreach p $packages {
615 dg-test -keep-output [lrange $p 1 end] "-O" "-w $DEFAULT_GOCFLAGS"
616 lappend del "[file rootname [file tail [lindex $p 1]]].o"
618 errchk [lindex $last 1] "[lrange $last 2 end]"
623 set runtests $hold_runtests
624 } elseif { [string match "// errorcheckoutput*" $test_line] } {
625 # Run the test to get a .go program to error check.
626 set go_execute_args ""
627 set hold_runtests $runtests
628 set runtests "go-test.exp"
630 regsub "// errorcheckoutput\(.*\)" $test_line "\\1" args
632 lappend files "[file dirname $test]/$f"
634 set dg-do-what-default "link"
635 dg-test -keep-output $test "-O" "$files -w $DEFAULT_GOCFLAGS"
636 set output_file "./[file rootname [file tail $test]].exe"
637 set base "[file rootname [file tail $test]]"
639 if { [catch "exec $output_file >$base-out.go"] != 0 } {
640 fail "$name execution"
642 pass "$name execution"
643 errchk "$base-out.go" ""
645 file delete $base-out.go
647 file delete $output_file
648 set runtests $hold_runtests
649 } elseif { $test_line == "// compiledir" } {
650 set hold_runtests $runtests
651 set runtests "go-test.exp"
652 set dg-do-what-default "assemble"
653 set dir "[file rootname $test].dir"
655 foreach f [lsort [glob "$dir/*.go"]] {
656 dg-test -keep-output $f "-O" "-w $DEFAULT_GOCFLAGS"
657 lappend del "[file rootname [file tail $f]].o"
662 set runtests $hold_runtests
663 } elseif { $test_line == "// rundir" } {
664 set hold_runtests $runtests
665 set runtests "go-test.exp"
666 set dir "[file rootname $test].dir"
667 set files [lsort [glob "$dir/*.go"]]
668 set packages [go-find-packages $test $name $files]
669 if { [llength $packages] > 0 } {
670 set dg-do-what-default "assemble"
672 set last [lindex $packages end]
673 set packages [lreplace $packages end end]
674 foreach p $packages {
675 dg-test -keep-output [lrange $p 1 end] "-O" "-w $DEFAULT_GOCFLAGS"
676 lappend del "[file rootname [file tail [lindex $p 1]]].o"
678 set dg-do-what-default "link"
679 set go_compile_args ""
680 append go_compile_args [lrange $last 2 end]
681 append go_compile_args $del
682 go-torture-execute [lindex $last 1]
687 set runtests $hold_runtests
688 } elseif { $test_line == "// rundircmpout" } {
689 set hold_runtests $runtests
690 set runtests "go-test.exp"
691 set dir "[file rootname $test].dir"
692 set files [lsort [glob "$dir/*.go"]]
693 set packages [go-find-packages $test $name $files]
694 if { [llength $packages] > 0 } {
695 set dg-do-what-default "assemble"
697 set last [lindex $packages end]
698 set packages [lreplace $packages end end]
699 foreach p $packages {
700 dg-test -keep-output [lrange $p 1 end] "-O" "-w $DEFAULT_GOCFLAGS"
701 lappend del "[file rootname [file tail [lindex $p 1]]].o"
703 set dg-do-what-default "link"
704 dg-test -keep-output [lrange $last 1 end] "$del -O" "-w $DEFAULT_GOCFLAGS"
705 set base "[file rootname [file tail [lindex $last 1]]]"
706 set output_file "./$base.exe"
707 lappend del $output_file
709 verbose -log "$output_file >$base.p 2>&1"
710 if { [catch "exec $output_file 2>$base.p" catcherr] != 0 } {
711 verbose -log $catcherr
712 fail "$name execution"
713 untested "$name compare"
715 pass "$name execution"
716 regsub "\\.go$" "$test" ".out" expect
717 filecmp $expect $base.p "$name compare"
725 set runtests $hold_runtests
726 } elseif { "$test_line" == ""
727 || [string match "// true*" $test_line]
728 || [string match "// skip*" $test_line] } {
729 # Not a real test, just ignore.
730 } elseif { [string match \
731 "// \$G \$D/\$F.dir/bug0.go && errchk \$G \$D/\$F.dir/bug1.go" \
734 "// \$G \$D/\$F.dir/io.go && errchk \$G -e \$D/\$F.dir/main.go" \
737 "// \$G \$D/\$F.dir/bug0.go && errchk \$G \$D/\$F.dir/bug1.go" \
741 } elseif { [string match \
742 "// \$G \$D/\$F.dir/io.go && errchk \$G -e \$D/\$F.dir/main.go" \
747 set hold_runtests $runtests
748 set runtests "go-test.exp"
749 set dg-do-what-default "assemble"
750 regsub "\\.go$" $test ".dir/$name1" file1
751 dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS"
752 regsub "\\.go$" $test ".dir/$name2" file2
754 file delete "[file rootname [file tail $file1]].o"
755 set runtests $hold_runtests
756 } elseif { [string match \
757 "// \$G \$D/\${F}1.go && errchk \$G \$D/\$F.go" \
759 set hold_runtests $runtests
760 set runtests "go-test.exp"
761 set dg-do-what-default "assemble"
762 regsub "\\.go$" $test "1.go" file1
763 dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS"
765 file delete "[file rootname [file tail $file1]].o"
766 set runtests $hold_runtests
767 } elseif { [string match \
768 "// \$G \$D/\$F.dir/bug0.go && \$G \$D/\$F.dir/bug1.go && errchk \$G \$D/\$F.dir/bug2.go" \
770 set hold_runtests $runtests
771 set runtests "go-test.exp"
772 set dg-do-what-default "assemble"
773 regsub "\\.go$" $test ".dir/bug0.go" file1
774 dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS"
775 regsub "\\.go$" $test ".dir/bug1.go" file2
776 dg-test -keep-output $file2 "-O" "-w $DEFAULT_GOCFLAGS"
777 regsub "\\.go$" $test ".dir/bug2.go" file3
779 file delete "[file rootname [file tail $file1]].o"
780 file delete "[file rootname [file tail $file2]].o"
781 set runtests $hold_runtests
782 } elseif { [string match \
783 "// \$G \$D/bug160.dir/x.go && \$G \$D/bug160.dir/y.go && \$L y.\$A && ./\$A.out" \
786 "// \$G \$D/\$F.dir/p.go && \$G \$D/\$F.dir/main.go && \$L main.\$A && ./\$A.out" \
788 || $test_line == "// \$G \$D/\$F.dir/p1.go && \$G \$D/\$F.dir/main.go && \$L main.\$A && ./\$A.out" \
789 || $test_line == "// \$G \$D/\$F.dir/lib.go && \$G \$D/\$F.go && \$L \$F.\$A && ./\$A.out" \
790 || $test_line == "// \$G \$D/method4a.go && \$G \$D/\$F.go && \$L \$F.\$A && ./$\A.out" } {
792 "// \$G \$D/bug160.dir/x.go && \$G \$D/bug160.dir/y.go && \$L y.\$A && ./\$A.out" \
796 } elseif { [string match \
797 "// \$G \$D/\$F.dir/p.go && \$G \$D/\$F.dir/main.go && \$L main.\$A && ./\$A.out" \
801 } elseif { $test_line == "// \$G \$D/\$F.dir/p1.go && \$G \$D/\$F.dir/main.go && \$L main.\$A && ./\$A.out" } {
804 } elseif { $test_line == "// \$G \$D/\$F.dir/lib.go && \$G \$D/\$F.go && \$L \$F.\$A && ./\$A.out" } {
807 } elseif { $test_line == "// \$G \$D/method4a.go && \$G \$D/\$F.go && \$L \$F.\$A && ./$\A.out" } {
808 set name1 "method4a.go"
811 set hold_runtests $runtests
812 set runtests "go-test.exp"
813 set dg-do-what-default "assemble"
814 regsub "\\.go$" $test ".dir/$name1" file1
815 if { $name1 == "method4a.go" } {
816 set file1 "[file dirname $test]/method4a.go"
818 dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS"
819 set ofile1 "[file rootname [file tail $file1]].o"
820 regsub "\\.go$" $test ".dir/$name2" file2
821 if { $name2 == "" } {
824 dg-test -keep-output $file2 "-O" "-w $DEFAULT_GOCFLAGS"
825 set ofile2 "[file rootname [file tail $file2]].o"
826 set dg-do-what-default "link"
827 set output_file "./[file rootname [file tail $test]].exe"
828 set comp_output [go_target_compile "$ofile1 $ofile2" \
829 $output_file "executable" "$options"]
830 set comp_output [go-dg-prune $target_triplet $comp_output]
831 verbose -log $comp_output
832 set result [go_load "$output_file" "" ""]
833 set status [lindex $result 0]
835 file delete $ofile1 $ofile2 $output_file
836 set runtests $hold_runtests
837 } elseif { $test_line == "// \$G \$D/\$F.dir/one.go && \$G \$D/\$F.dir/two.go && \$G \$D/\$F.go && \$L \$F.\$A && ./\$A.out" } {
838 set hold_runtests $runtests
839 set runtests "go-test.exp"
840 set dg-do-what-default "assemble"
841 regsub "\\.go$" $test ".dir/one.go" file1
842 dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS"
843 set ofile1 "[file rootname [file tail $file1]].o"
844 regsub "\\.go$" $test ".dir/two.go" file2
845 dg-test -keep-output $file2 "-O" "-w $DEFAULT_GOCFLAGS"
846 set ofile2 "[file rootname [file tail $file2]].o"
847 dg-test -keep-output $test "-O" "-w $DEFAULT_GOCFLAGS"
848 set ofile3 "[file rootname [file tail $test]].o"
849 set dg-do-what-default "link"
850 set output_file "./[file rootname [file tail $test]].exe"
851 set comp_output [go_target_compile "$ofile1 $ofile2 $ofile3" \
852 $output_file "executable" "$options"]
853 set comp_output [go-dg-prune $target_triplet $comp_output]
854 verbose -log $comp_output
855 set result [go_load "$output_file" "" ""]
856 set status [lindex $result 0]
858 file delete $ofile1 $ofile2 $ofile3 $output_file
859 set runtests $hold_runtests
860 } elseif { [string match \
861 "// \$G \$D/embed0.go && \$G \$D/\$F.go && \$L \$F.\$A && ./\$A.out" \
863 set hold_runtests $runtests
864 set runtests "go-test.exp"
865 set dg-do-what-default "assemble"
866 regsub "/\[^/\]*$" $test "/embed0.go" file1
867 dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS"
868 set ofile1 "[file rootname [file tail $file1]].o"
869 dg-test -keep-output $test "-O" "-w $DEFAULT_GOCFLAGS"
870 set ofile2 "[file rootname [file tail $test]].o"
871 set output_file "./[file rootname [file tail $test]].exe"
872 set comp_output [go_target_compile "$ofile1 $ofile2" \
873 $output_file "executable" "$options"]
874 set comp_output [go-dg-prune $target_triplet $comp_output]
875 if [string match "" $comp_output] {
876 set result [go_load "$output_file" "" ""]
877 set status [lindex $result 0]
880 verbose -log $comp_output
883 file delete $ofile1 $ofile2 $output_file
884 set runtests $hold_runtests
885 } elseif { [string match \
886 "// \$G \$D/\$F.dir/lib.go && \$G \$D/\$F.dir/main.go && \$L main.\$A && ./\$A.out || echo BUG*" \
889 "// \$G \$D/\$F.dir/p.go && \$G \$D/\$F.dir/main.go && \$L main.\$A && ./\$A.out || echo BUG*" \
892 "// \$G \$D/\$F.dir/lib.go && \$G \$D/\$F.dir/main.go && \$L main.\$A && ./\$A.out || echo BUG*" \
896 } elseif { [string match \
897 "// \$G \$D/\$F.dir/p.go && \$G \$D/\$F.dir/main.go && \$L main.\$A && ./\$A.out || echo BUG*" \
902 set hold_runtests $runtests
903 set runtests "go-test.exp"
904 set dg-do-what-default "assemble"
905 regsub "\\.go$" $test ".dir/$name1" file1
906 dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS"
907 set ofile1 "[file rootname [file tail $file1]].o"
908 regsub "\\.go$" $test ".dir/$name2" file2
909 dg-test -keep-output $file2 "-O" "-w $DEFAULT_GOCFLAGS"
910 set ofile2 "[file rootname [file tail $file2]].o"
911 set dg-do-what-default "link"
912 set output_file "./[file rootname [file tail $file2]].exe"
913 set comp_output [go_target_compile "$ofile1 $ofile2" \
914 $output_file "executable" "$options"]
915 set comp_output [go-dg-prune $target_triplet $comp_output]
916 if [string match "" $comp_output] {
917 set result [go_load "$output_file" "" ""]
918 set status [lindex $result 0]
921 verbose -log $comp_output
924 file delete $ofile1 $ofile2 $output_file
925 set runtests $hold_runtests
926 } elseif { $test_line == "// \$G \$D/\$F.dir/bug0.go &&" \
927 && $test_line2 == "// \$G \$D/\$F.dir/bug1.go &&" \
928 && $test_line3 == "// \$G \$D/\$F.dir/bug2.go &&" \
929 && $test_line4 == "// errchk \$G -e \$D/\$F.dir/bug3.go &&" \
930 && $test_line5 == "// \$L bug2.\$A &&" \
931 && [string match "// ./\$A.out || echo BUG*" $test_line6] } {
932 set hold_runtests $runtests
933 set runtests "go-test.exp"
934 set dg-do-what-default "assemble"
935 regsub "\\.go$" $test ".dir/bug0.go" file0
936 dg-test -keep-output $file0 "-O -fgo-prefix=bug0" "-w $DEFAULT_GOCFLAGS"
937 set ofile0 "[file rootname [file tail $file0]].o"
938 regsub "\\.go$" $test ".dir/bug1.go" file1
939 dg-test -keep-output $file1 "-O -fgo-prefix=bug1" "-w $DEFAULT_GOCFLAGS"
940 set ofile1 "[file rootname [file tail $file1]].o"
941 regsub "\\.go$" $test ".dir/bug2.go" file2
942 dg-test -keep-output $file2 "-O" "-w $DEFAULT_GOCFLAGS"
943 set ofile2 "[file rootname [file tail $file2]].o"
944 regsub "\\.go$" $test ".dir/bug3.go" file3
946 set output_file "./[file rootname [file tail $test]].exe"
947 set comp_output [go_target_compile "$ofile0 $ofile1 $ofile2" \
948 $output_file "executable" "$options"]
949 set comp-output [go-dg-prune $target_triplet $comp_output]
950 if [string match "" $comp_output] {
951 set result [go_load "$output_file" "" ""]
952 set status [lindex $result 0]
955 verbose -log $comp_output
958 file delete $ofile0 $ofile1 $ofile2 $output_file
959 set runtests $hold_runtests
960 } elseif { $test_line == "// \$G \$D/import2.go && \$G \$D/\$F\.go" \
961 || $test_line == "// \$G \$D/recursive1.go && \$G \$D/\$F.go" } {
962 if { $test_line == "// \$G \$D/import2.go && \$G \$D/\$F\.go" } {
963 set name1 "import2.go"
964 } elseif { $test_line == "// \$G \$D/recursive1.go && \$G \$D/\$F.go" } {
965 set name1 "recursive1.go"
967 set hold_runtests $runtests
968 set runtests "go-test.exp"
969 set dg-do-what-default "assemble"
970 regsub "/\[^/\]*$" $test "/${name1}" file1
971 dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS"
972 set ofile1 "[file rootname [file tail $file1]].o"
973 dg-test $test "-O" "-w $DEFAULT_GOCFLAGS"
975 set runtests $hold_runtests
976 } elseif { $test_line == "// \$G \$D/ddd2.go && \$G \$D/\$F.go && \$L \$F.\$A && ./\$A.out" } {
977 set hold_runtests $runtests
978 set runtests "go-test.exp"
979 set dg-do-what-default "assemble"
980 regsub "/\[^/\]*$" $test "/ddd2.go" file1
981 dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS"
982 set ofile1 "[file rootname [file tail $file1]].o"
983 dg-test -keep-output $test "-O" "-w $DEFAULT_GOCFLAGS"
984 set ofile2 "[file rootname [file tail $test]].o"
985 set output_file "./[file rootname [file tail $test]].exe"
986 set comp_output [go_target_compile "$ofile1 $ofile2" \
987 $output_file "executable" "$options"]
988 set comp_output [go-dg-prune $target_triplet $comp_output]
989 if [string match "" $comp_output] {
990 set result [go_load "$output_file" "" ""]
991 set status [lindex $result 0]
994 verbose -log $comp_output
997 file delete $ofile1 $ofile2 $output_file
998 set runtests $hold_runtests
999 } elseif { $test_line == "// run cmplxdivide1.go" } {
1000 regsub "/\[^/\]*$" $test "/cmplxdivide1.go" test2
1001 set output_file "./[file rootname [file tail $test]].o"
1002 set comp_output [go_target_compile "$test $test2" \
1003 $output_file "executable" "$options"]
1004 set comp_output [go-dg-prune $target_triplet $comp_output]
1005 if [string match "" $comp_output] {
1006 set result [go_load "$output_file" "" ""]
1007 set status [lindex $result 0]
1010 verbose -log $comp_output
1013 file delete $output_file
1014 } elseif { $test_line == "// \$G \$D/\$F.go && \$L \$F.\$A &&" \
1015 && $test_line2 == "// ./\$A.out -pass 0 >tmp.go && \$G tmp.go && \$L -o \$A.out1 tmp.\$A && ./\$A.out1 &&" \
1016 && $test_line3 == "// ./\$A.out -pass 1 >tmp.go && errchk \$G -e tmp.go &&" \
1017 && $test_line4 == "// ./\$A.out -pass 2 >tmp.go && errchk \$G -e tmp.go" } {
1018 set go_execute_args ""
1019 set hold_runtests $runtests
1020 set runtests "go-test.exp"
1021 set dg-do-what-default "link"
1022 dg-test -keep-output $test "-O" "-w $DEFAULT_GOCFLAGS"
1023 set output_file "./[file rootname [file tail $test]].exe"
1025 if { [catch "exec $output_file -pass 0 >tmp.go"] != 0 } {
1026 fail "$name execution 0"
1028 pass "$name execution 0"
1030 # Disable optimizations as this test takes a long time
1032 set TORTURE_OPTIONS [list { -O0 -g -fno-var-tracking-assignments }]
1033 go-torture-execute "./tmp.go"
1035 if { [catch "exec $output_file -pass 1 >tmp.go"] != 0 } {
1036 fail "$name execution 1"
1038 pass "$name execution 1"
1041 if { [catch "exec $output_file -pass 2 >tmp.go"] != 0 } {
1042 fail "$name execution 2"
1044 pass "$name execution 2"
1049 file delete $output_file
1050 set runtests $hold_runtests
1051 } elseif { $test_line == "// \$G \$D/\$F.go && \$L \$F.\$A && ./\$A.out >tmp.go &&" \
1052 && $test_line2 == "// errchk \$G -e tmp.go" } {
1053 set go_execute_args ""
1054 set hold_runtests $runtests
1055 set runtests "go-test.exp"
1056 set dg-do-what-default "link"
1057 dg-test -keep-output $test "-O" "-w $DEFAULT_GOCFLAGS"
1058 set output_file "./[file rootname [file tail $test]].exe"
1060 if { [catch "exec $output_file >tmp.go"] != 0 } {
1061 fail "$name execution"
1063 pass "$name execution"
1068 file delete $output_file
1069 set runtests $hold_runtests
1070 } elseif { $test_line == "// errchk \$G -e \$D/\$F.dir/\[ab\].go" } {
1071 regsub "\\.go$" $test ".dir/a.go" file1
1072 regsub "\\.go$" $test ".dir/b.go" file2
1073 errchk "$file1" "$file2"
1074 } elseif { $test_line == "// \$G -N -o slow.\$A \$D/bug369.dir/pkg.go &&" \
1075 && $test_line2 == "// \$G -o fast.\$A \$D/bug369.dir/pkg.go &&" \
1076 && $test_line3 == "// run" } {
1077 set hold_runtests $runtests
1078 set runtests "go-test.exp"
1079 set dg-do-what-default "assemble"
1080 regsub "\\.go$" $test ".dir/pkg.go" file1
1081 dg-test -keep-output $file1 "" "-fgo-prefix=slow -w $DEFAULT_GOCFLAGS"
1082 set ofile1 "[file rootname [file tail $file1]].o"
1083 file rename -force $ofile1 slow.o
1084 dg-test -keep-output $file1 "-O2" "-fgo-prefix=fast -w $DEFAULT_GOCFLAGS"
1085 file rename -force $ofile1 fast.o
1086 set ofile2 "[file rootname [file tail $test]].o"
1087 dg-test -keep-output $test "-O" "-w $DEFAULT_GOCFLAGS"
1088 set output_file "./[file rootname [file tail $test]].exe"
1089 set comp_output [go_target_compile "$ofile2 slow.o fast.o" \
1090 $output_file "executable" "$options"]
1091 set comp_output [go-dg-prune $target_triplet $comp_output]
1092 if [string match "" $comp_output] {
1093 set result [go_load "$output_file" "" ""]
1094 set status [lindex $result 0]
1097 verbose -log $comp_output
1100 file delete slow.o fast.o $ofile2 $output_file
1101 set runtests $hold_runtests
1102 } elseif { [string match \
1103 "// \$G \$D/\$F.dir/pkg.go && \$G \$D/\$F.go || echo *" \
1105 set hold_runtests $runtests
1106 set runtests "go-test.exp"
1107 set dg-do-what-default "assemble"
1108 regsub "\\.go$" $test ".dir/pkg.go" file1
1109 dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS"
1110 dg-test $test "-O" "-w $DEFAULT_GOCFLAGS"
1111 file delete "[file rootname [file tail $file1]].o"
1112 set runtests $hold_runtests
1113 } elseif { [string match "// \$G \$D/\$F.dir/one.go && \$G \$D/\$F.dir/two.go || echo BUG*" \
1115 set hold_runtests $runtests
1116 set runtests "go-test.exp"
1117 set dg-do-what-default "assemble"
1118 regsub "\\.go$" $test ".dir/one.go" file1
1119 dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS"
1120 set ofile1 "[file rootname [file tail $file1]].o"
1121 regsub "\\.go$" $test ".dir/two.go" file2
1122 dg-test $file2 "-O" "-w $DEFAULT_GOCFLAGS"
1124 set runtests $hold_runtests
1125 } elseif { $test_line == "// \$G \$D/bug302.dir/p.go && pack grc pp.a p.\$A && \$G \$D/bug302.dir/main.go" \
1126 || $test_line == "// \$G \$D/empty.go && errchk \$G \$D/\$F.go" } {
1127 # These tests import the same package under two different
1128 # names, which gccgo does not support.
1129 } elseif { $test_line == "// \$G -S \$D/\$F.go | egrep initdone >/dev/null && echo BUG sinit || true" } {
1130 # This tests whether initializers are written out
1131 # statically. gccgo does not provide a way to test that,
1132 # as an initializer will be generated for any code which
1133 # has global variables which need to be registered as GC
1135 } elseif { $test_line == "// errorcheck -0 -m"
1136 || $test_line == "// errorcheck -0 -m -l" } {
1137 # This tests debug output of the gc compiler, which is
1138 # meaningless for gccgo.
1139 } elseif { $test_line == "// \[ \$A == 6 \] || errchk \$G -e \$D/\$F.go" \
1140 || $test_line == "// \[ \$A != 6 \] || errchk \$G -e \$D/\$F.go" } {
1141 # This tests specific handling of the gc compiler on types
1142 # that are too large. It is target specific in a way I
1143 # haven't bothered to check for here.
1144 } elseif { $test_line == "// \$G \$D/\$F.go && \$L -X main.tbd hello \$F.\$A && ./\$A.out" } {
1145 # This tests the gc ld -X option, which gccgo does not
1147 } elseif { $test_line == "// \$G \$D/pkg.go && pack grc pkg.a pkg.\$A 2> /dev/null && rm pkg.\$A && errchk \$G -I. -u \$D/main.go"
1148 || $test_line == "// \$G \$D/pkg.go && pack grcS pkg.a pkg.\$A 2> /dev/null && rm pkg.\$A && \$G -I. -u \$D/main.go" } {
1149 # This tests the gc -u option, which gccgo does not
1151 } elseif { $test_line == "// errorcheck -0 -N -d=nil" \
1152 || $test_line == "// errorcheck -0 -d=nil" } {
1153 # This tests gc nil pointer checks using -d=nil, which
1154 # gccgo does not support.
1156 clone_output "$name: unrecognized test line: $test_line"
1160 set go_compile_args ""
1161 set go_execute_args ""
1162 set TORTURE_OPTIONS [list { -O2 -g }]
1165 set dg-do-what-default ${saved-dg-do-what-default}
1166 set TORTURE_OPTIONS $saved_torture_options