[Bug testsuite/85239] New: Tcl error running gfortran lto testsuite under Cygwin

[tkoenig at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85239

            Bug ID: 85239
           Summary: Tcl error running gfortran lto testsuite under Cygwin
           Product: gcc
           Version: 8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: testsuite
          Assignee: unassigned at gcc dot gnu.org
          Reporter: tkoenig at gcc dot gnu.org
  Target Milestone: ---

>From the same test run as PR 85238, but it looks unrelated at first glance:

Running
/cygdrive/e/Gcc/gcc-8-20180401/gcc/testsuite/gfortran.dg/goacc/goacc.exp ...
ERROR: tcl error sourcing
/cygdrive/e/Gcc/gcc-8-20180401/gcc/testsuite/gfortran.dg/lto/lto.exp.
ERROR: can't read "testname_with_flags": no such variable
    while executing
"fail "$testname_with_flags $num_blank_lines blank line(s) in output""
    (procedure "gcc-dg-prune" line 14)
    invoked from within
"gcc-dg-prune $system $text"
    (procedure "gfortran-dg-prune" line 2)
    invoked from within
"${tool}-dg-prune $target_triplet $gcc_output"
    (procedure "gfortran_check_compile" line 32)
    invoked from within
"${tool}_check_compile "$testcase $testname link" $optstr  $dest $comp_output"
    (procedure "lto-link-and-maybe-run" line 52)
    invoked from within
"lto-link-and-maybe-run  "[lindex $obj_list 0]-[lindex $obj_list end]" 
$obj_list $execname $filtered ${dg-extra-ld-options}  $filtered"
    (procedure "lto-execute" line 142)
    invoked from within
"lto-execute $src $sid"
    ("foreach" body line 7)
    invoked from within
"foreach src [lsort [glob -nocomplain $srcdir/$subdir/*_0.\[fF\]{,90,95,03,08}
]] {
    # If we're only testing specific files and this isn't one of th..."
    (file
"/cygdrive/e/Gcc/gcc-8-20180401/gcc/testsuite/gfortran.dg/lto/lto.exp" line 49)
    invoked from within
"source /cygdrive/e/Gcc/gcc-8-20180401/gcc/testsuite/gfortran.dg/lto/lto.exp"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 source
/cygdrive/e/Gcc/gcc-8-20180401/gcc/testsuite/gfortran.dg/lto/lto.exp"
    invoked from within
"catch "uplevel #0 source $test_file_name""