* elf64-ppc.c (dec_dynrel_count): Don't error when elf_gc_sweep_symbol

[external/binutils.git] / gdb / testsuite / gdb.fortran / types.exp

diff --git a/gdb/testsuite/gdb.fortran/types.exp b/gdb/testsuite/gdb.fortran/types.exp
index 84eb5b6..30b68ec 100644 (file)
--- a/gdb/testsuite/gdb.fortran/types.exp
+++ b/gdb/testsuite/gdb.fortran/types.exp
@@ -1,4 +1,4 @@
-# Copyright 1994, 1995, 1997, 1998, 2007, 2008 Free Software Foundation, Inc.
+# Copyright 1994-2013 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -16,29 +16,9 @@
 # This file was adapted from old Chill tests by Stan Shebs
 # (shebs@cygnus.com).
 
-if $tracelevel then {
-       strace $tracelevel
-}
-
-set prms_id 0
-set bug_id 0
-
-# Set the current language to fortran.  This counts as a test.  If it
-# fails, then we skip the other tests.
+load_lib "fortran.exp"
 
-proc set_lang_fortran {} {
-    global gdb_prompt
-    
-    if [gdb_test "set language fortran" ""] {
-       return 0;
-    }
-
-    if ![gdb_test "show language" ".* source language is \"fortran\".*"] {
-       return 1;
-    } else {
-       return 0;
-    }
-}
+if { [skip_fortran_tests] } { continue }
 
 proc test_integer_literal_types_accepted {} {
     global gdb_prompt