From 7b8fda082f1729a6e7f15f3f10cb5396feb0d2b9 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Fri, 21 Mar 2014 00:16:57 +0100 Subject: re PR fortran/60599 (Testsuite's scan-module-absence no longer works) 2014-03-21 Tobias Burnus PR fortran/60599 * lib/gcc-dg.exp (scan-module): Uncompress .mod files for reading. From-SVN: r208739 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/lib/gcc-dg.exp | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2475787..611ccb4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2014-03-21 Tobias Burnus + + PR fortran/60599 + * lib/gcc-dg.exp (scan-module): Uncompress .mod files for + reading. + 2014-03-20 Jakub Jelinek PR middle-end/60597 diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp index 59d394c..f9d52bc 100644 --- a/gcc/testsuite/lib/gcc-dg.exp +++ b/gcc/testsuite/lib/gcc-dg.exp @@ -656,7 +656,7 @@ proc scan-module { args } { # Argument 1 is the regexp to match proc scan-module-absence { args } { set modfilename [string tolower [lindex $args 0]].mod - set fd [open $modfilename r] + set fd [open [list | gzip -dc $modfilename] r] set text [read $fd] close $fd -- cgit v1.1