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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2475787808c9e98780de8cc9a8403a669861f3c2..611ccb4b0fdc595f41cb0bcb85215761dc9aa285 100644 (file)
--- 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 59d394c340902ae8b99d2729aa4b4b930e510466..f9d52bcf63d7e94280d83e5fb2ee2a2198fd1002 100644 (file)
--- 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