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

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.fortran / info-types.f90

diff --git a/gdb/testsuite/gdb.fortran/info-types.f90 b/gdb/testsuite/gdb.fortran/info-types.f90
index 21c9d9df63c45bc3ce1434c4911b70412595640b..24cd59e78ce639ebd43fee17a65c6ed4d41f4dbf 100644 (file)
--- a/gdb/testsuite/gdb.fortran/info-types.f90
+++ b/gdb/testsuite/gdb.fortran/info-types.f90
@@ -1,4 +1,4 @@
-! Copyright 2019 Free Software Foundation, Inc.
+! Copyright 2019-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
@@ -13,13 +13,40 @@
 ! You should have received a copy of the GNU General Public License
 ! along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
+module mod1
+  type :: m1t1
+     integer :: b
+  end type m1t1
+
+  real :: mod1_var_1 = 1.0
+  integer, parameter :: mod1_var_2 = 456
+
+contains
+  subroutine sub_m1_a(arg)
+    integer :: arg
+    print*, "sub_m1_a"
+    print*, "arg = ", arg
+  end subroutine sub_m1_a
+
+  integer function sub_m1_b()
+    print*, "sub_m1_b"
+    sub_m1_b = 3
+  end function sub_m1_b
+end module mod1
+
 program info_types_test
+  use mod1
+  use mod2
+
   type :: s1
      integer :: a
   end type s1
 
   logical :: l
   type (s1) :: var_a
-  var_a%a = 1
+  type (m1t1) :: var_b
+
+  var_a%a = 1 + mod2_var_1
+  var_b%b = 2
   l = .FALSE.
 end program info_types_test