From 7f8df60579ef4c524f401a9689fbad4c25b45890 Mon Sep 17 00:00:00 2001 From: burnus Date: Thu, 20 Mar 2014 23:16:57 +0000 Subject: [PATCH] 2014-03-21 Tobias Burnus PR fortran/60599 * lib/gcc-dg.exp (scan-module): Uncompress .mod files for reading. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@208739 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 -- 2.7.4