From 7b8fda082f1729a6e7f15f3f10cb5396feb0d2b9 Mon Sep 17 00:00:00 2001
From: Tobias Burnus <burnus@net-b.de>
Date: Fri, 21 Mar 2014 00:16:57 +0100
Subject: [PATCH] re PR fortran/60599 (Testsuite's scan-module-absence no
longer works)
2014-03-21 Tobias Burnus <burnus@net-b.de>
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 2475787808c9..611ccb4b0fdc 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2014-03-21 Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/60599
+ * lib/gcc-dg.exp (scan-module): Uncompress .mod files for
+ reading.
+
2014-03-20 Jakub Jelinek <jakub@redhat.com>
PR middle-end/60597
diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp
index 59d394c34090..f9d52bcf63d7 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
--
GitLab