x86: SYSENTER/SYSEXIT are unavailable in 64-bit mode on AMD

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

diff --git a/gdb/testsuite/gdb.fortran/whatis_type.exp b/gdb/testsuite/gdb.fortran/whatis_type.exp
index 955f85343ec8a498b27bb477722aadabcad61415..6a9cc0a81eb889d76daed52fff69761e6693cf03 100644 (file)
--- a/gdb/testsuite/gdb.fortran/whatis_type.exp
+++ b/gdb/testsuite/gdb.fortran/whatis_type.exp
@@ -1,4 +1,4 @@
-# Copyright 2013-2016 Free Software Foundation, Inc.
+# Copyright 2013-2020 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
@@ -18,7 +18,7 @@ if { [skip_fortran_tests] } { continue }
 standard_testfile type.f90
 load_lib "fortran.exp"
 
-if { [prepare_for_testing ${testfile}.exp ${testfile} \
+if { [prepare_for_testing "failed to prepare" ${testfile} \
                           ${srcfile} {debug f90}] } {
     return -1
 }
@@ -44,19 +44,18 @@ gdb_test "whatis t2" "type = Type t2"
 gdb_test "whatis t2v" "type = Type t2"
 gdb_test "whatis t3" "type = Type t3"
 gdb_test "whatis t3v" "type = Type t3"
+gdb_test "whatis t3p" "type = PTR TO -> \\( Type t3 \\)"
 
 gdb_test "ptype t1" \
   [multi_line "type = Type t1" \
                  "    $t1_i" \
                  "    $t1_r" \
-                 "End Type t1"] \
-  "ptype t1"
+                 "End Type t1"]
 gdb_test "ptype t1v" \
   [multi_line "type = Type t1" \
                  "    $t1_i" \
                  "    $t1_r" \
-                 "End Type t1"] \
-  "ptype t1v"
+                 "End Type t1"]
 
 gdb_test "ptype t2v" \
   [multi_line "type = Type t2" \
@@ -69,3 +68,9 @@ gdb_test "ptype t3v" \
               "    $int :: t3_i" \
               "    Type t2 :: t2_n" \
               "End Type t3"]
+
+gdb_test "ptype t3p" \
+  [multi_line "type = PTR TO -> \\( Type t3" \
+              "    $int :: t3_i" \
+              "    Type t2 :: t2_n" \
+              "End Type t3 \\)"]