-# Copyright 1994, 1995, 1997, 1998, 2007, 2008 Free Software Foundation, Inc.
+# Copyright 1994-2016 Free Software Foundation, Inc.
# Copyright 2007 Free Software Foundation, Inc.
#
# This program is free software; you can redistribute it and/or modify
# (shebs@cygnus.com).
# Adapted to pascal by Pierre Muller
-if $tracelevel then {
- strace $tracelevel
-}
-
-set prms_id 0
-set bug_id 0
-
-# Set the current language to pascal. This counts as a test. If it
-# fails, then we skip the other tests.
-
-proc set_lang_pascal {} {
- global gdb_prompt
-
- if [gdb_test "set language pascal" ""] {
- return 0;
- }
-
- if ![gdb_test "show language" ".* source language is \"pascal\".*"] {
- return 1;
- } else {
- return 0;
- }
-}
+load_lib "pascal.exp"
proc test_integer_literal_types_accepted {} {
global gdb_prompt
# Test various character values.
- setup_kfail *-*-* gdb/2326
+ setup_kfail gdb/2326 *-*-*
gdb_test "pt 'a simple string'" "type = string"
}