2002-08-01 Andrew Cagney <cagney@redhat.com>

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.fortran / exprs.exp

diff --git a/gdb/testsuite/gdb.fortran/exprs.exp b/gdb/testsuite/gdb.fortran/exprs.exp
index 0392843341dbf9d6567d6071e2a13c8e915a1b10..6c9be34cf5af938afa800146da3ae400667d4279 100644 (file)
--- a/gdb/testsuite/gdb.fortran/exprs.exp
+++ b/gdb/testsuite/gdb.fortran/exprs.exp
@@ -1,4 +1,4 @@
-# Copyright (C) 1994 Free Software Foundation, Inc.
+# Copyright (C) 1994, 1997 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
@@ -12,12 +12,12 @@
 # 
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  
 
 # Please email any bugs, comments, and/or additions to this file to:
 # bug-gdb@prep.ai.mit.edu
 
-# This file was adapted from Chill tests by Stan Shebs (shebs@cygnus.com).
+# This file was adapted from (OBSOLETE) Chill tests by Stan Shebs (shebs@cygnus.com).
 
 if $tracelevel then {
        strace $tracelevel
@@ -30,7 +30,7 @@ set bug_id 0
 # fails, then we skip the other tests.
 
 proc set_lang_fortran {} {
-    global prompt
+    global gdb_prompt
     
     if [gdb_test "set language fortran" ""] {
        return 0;
@@ -44,7 +44,7 @@ proc set_lang_fortran {} {
 }
 
 proc test_integer_literals_accepted {} {
-    global prompt
+    global gdb_prompt
 
     # Test various decimal values.
 
@@ -53,7 +53,7 @@ proc test_integer_literals_accepted {} {
 }
 
 proc test_character_literals_accepted {} {
-    global prompt
+    global gdb_prompt
 
     # Test various character values.
 
@@ -61,13 +61,13 @@ proc test_character_literals_accepted {} {
 }
 
 proc test_integer_literals_rejected {} {
-    global prompt
+    global gdb_prompt
 
     test_print_reject "p _"
 }
 
 proc test_logical_literals_accepted {} {
-    global prompt
+    global gdb_prompt
 
     # Test the only possible values for a logical, TRUE and FALSE.
 
@@ -76,7 +76,7 @@ proc test_logical_literals_accepted {} {
 }
 
 proc test_float_literals_accepted {} {
-    global prompt
+    global gdb_prompt
 
     # Test various floating point formats
 
@@ -131,7 +131,7 @@ proc test_float_literals_accepted {} {
 }
 
 proc test_convenience_variables {} {
-    global prompt
+    global gdb_prompt
 
     gdb_test "set \$foo = 101" " = 101\[\r\n\]*" \
        "Set a new convenience variable"
@@ -162,7 +162,7 @@ proc test_convenience_variables {} {
 }
 
 proc test_value_history {} {
-    global prompt
+    global gdb_prompt
 
     gdb_test "print 101"       "\\\$1 = 101" \
        "Set value-history\[1\] using \$1"
@@ -210,7 +210,7 @@ proc test_value_history {} {
 }
 
 proc test_arithmetic_expressions {} {
-    global prompt
+    global gdb_prompt
 
     # Test unary minus with various operands