git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

backport: re PR fortran/51502 (Potentially wrong code generation due to wrong implict_pure check) 

2012-01-01  Thomas König  <tkoenig@gcc.gnu.org>

	Backport from trunk
	PR fortran/51502
	* lib/gcc-dg.exp (scan-module-absence):  New function.
	* gfortran.dg/implicit_pure_2.f90:  New test.

From-SVN: r182771
This commit is contained in:
Thomas Koenig 2012-01-01 16:27:45 +00:00
parent f2c74cc43a
commit b4cbc46c32
2 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2012-01-01 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/51502
* lib/gcc-dg.exp (scan-module-absence): Really commit last
change.
2012-01-01 Ira Rosen <irar@il.ibm.com> 2012-01-01 Ira Rosen <irar@il.ibm.com>
PR tree-optimization/51704 PR tree-optimization/51704

18
gcc/testsuite/lib/gcc-dg.exp
View File

@ -598,6 +598,24 @@ proc scan-module { args } {
} }
} }
# Scan Fortran modules for absence of a given regexp.
#
# Argument 0 is the module name
# 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 text [read $fd]
close $fd
upvar 2 name testcase
if [regexp -- [lindex $args 1] $text] {
fail "$testcase scan-module [lindex $args 1]"
} else {
pass "$testcase scan-module [lindex $args 1]"
}
}
# Verify that the compiler output file exists, invoked via dg-final. # Verify that the compiler output file exists, invoked via dg-final.
proc output-exists { args } { proc output-exists { args } {
# Process an optional target or xfail list. # Process an optional target or xfail list.