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 d3a35cd291e36a88da5ae5eca9941df7b408d814..81811dbc3c9d2bc5fa119a7848e36999bdb7f1fc 100644 (file)
--- a/gdb/testsuite/lib/fortran.exp
+++ b/gdb/testsuite/lib/fortran.exp
@@ -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"
+    }
+}