Update copyright year range in all GDB files

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

diff --git a/gdb/testsuite/lib/fortran.exp b/gdb/testsuite/lib/fortran.exp
index 04011b9fb41e56dea5f6c5d3ec118008d63a8ba8..77a3b6d73cf70fec9e6bd50a0493a51c2666b135 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-2016 Free Software Foundation, Inc.
+# Copyright 2010-2018 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
@@ -28,3 +28,63 @@ proc set_lang_fortran {} {
     }
     return 1
 }
+
+proc fortran_int4 {} {
+    if {[test_compiler_info {gcc-4-[012]-*}]} {
+       return "int4"
+    } elseif {[test_compiler_info {gcc-*}]} {
+       return "integer\\(kind=4\\)"
+    } elseif {[test_compiler_info {icc-*}]} {
+       return "INTEGER\\(4\\)"
+    } else {
+       return "unknown"
+    }
+}
+
+proc fortran_real4 {} {
+    if {[test_compiler_info {gcc-4-[012]-*}]} {
+       return "real4"
+    } elseif {[test_compiler_info {gcc-*}]} {
+       return "real\\(kind=4\\)"
+    } elseif {[test_compiler_info {icc-*}]} {
+       return "REAL\\(4\\)"
+    } else {
+       return "unknown"
+    }
+}
+
+proc fortran_real8 {} {
+    if {[test_compiler_info {gcc-4-[012]-*}]} {
+       return "real8"
+    } elseif {[test_compiler_info {gcc-*}]} {
+       return "real\\(kind=8\\)"
+    } elseif {[test_compiler_info {icc-*}]} {
+       return "REAL\\(8\\)"
+    } else {
+       return "unknown"
+    }
+}
+
+proc fortran_complex4 {} {
+    if {[test_compiler_info {gcc-4-[012]-*}]} {
+       return "complex4"
+    } elseif {[test_compiler_info {gcc-*}]} {
+       return "complex\\(kind=4\\)"
+    } elseif {[test_compiler_info {icc-*}]} {
+       return "COMPLEX\\(4\\)"
+    } else {
+       return "unknown"
+    }
+}
+
+proc fortran_logical4 {} {
+    if {[test_compiler_info {gcc-4-[012]-*}]} {
+       return "logical4"
+    } elseif {[test_compiler_info {gcc-*}]} {
+       return "logical\\(kind=4\\)"
+    } elseif {[test_compiler_info {icc-*}]} {
+       return "LOGICAL\\(4\\)"
+    } else {
+       return "unknown"
+    }
+}