merge from gcc
[external/binutils.git] / gdb / testsuite / gdb.fortran / types.exp
index 1eb4c42..4c3fa07 100644 (file)
@@ -1,4 +1,4 @@
-# Copyright 1994, 1995, 1997, 1998, 2007, 2008, 2009
+# Copyright 1994, 1995, 1997, 1998, 2007, 2008, 2009, 2010
 # Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
@@ -21,6 +21,8 @@ if $tracelevel then {
        strace $tracelevel
 }
 
+if { [skip_fortran_tests] } { continue }
+
 set prms_id 0
 set bug_id 0