gdb/fortran: Implement la_print_typedef for Fortran

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

diff --git a/gdb/testsuite/lib/fortran.exp b/gdb/testsuite/lib/fortran.exp
index 867e4fce2f3b529971d502edac2927c2fc7af361..81811dbc3c9d2bc5fa119a7848e36999bdb7f1fc 100644 (file)
--- a/gdb/testsuite/lib/fortran.exp
+++ b/gdb/testsuite/lib/fortran.exp
@@ -1,6 +1,6 @@
 # This test code is part of GDB, the GNU debugger.
 
-# Copyright 2010-2017 Free Software Foundation, Inc.
+# Copyright 2010-2019 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
@@ -88,3 +88,15 @@ proc fortran_logical4 {} {
        return "unknown"
     }
 }
+
+proc fortran_character1 {} {
+    if {[test_compiler_info {gcc-4-[012]-*}]} {
+       return "character1"
+    } elseif {[test_compiler_info {gcc-*}]} {
+       return "character\\(kind=1\\)"
+    } elseif {[test_compiler_info {icc-*}]} {
+       return "CHARACTER\\(1\\)"
+    } else {
+       return "unknown"
+    }
+}