X-Git-Url: http://git.efficios.com/?a=blobdiff_plain;f=gdb%2Ftestsuite%2Fgdb.fortran%2Finfo-types.f90;h=ec52ef98efc9973ff3d03b60390bc9e355587200;hb=59c35742fb785b1e454f45c2ace663000bf34f4c;hp=0e27e1ddf088f16919b6ffde3848c0fe6983ba06;hpb=aed61d02fb112ac2b94f67df3ed24ed29dcf911e;p=deliverable%2Fbinutils-gdb.git

diff --git a/gdb/testsuite/gdb.fortran/info-types.f90 b/gdb/testsuite/gdb.fortran/info-types.f90
index 0e27e1ddf0..ec52ef98ef 100644
--- a/gdb/testsuite/gdb.fortran/info-types.f90
+++ b/gdb/testsuite/gdb.fortran/info-types.f90
@@ -21,6 +21,7 @@ end module mod1
 
 program info_types_test
   use mod1
+  use mod2
 
   type :: s1
      integer :: a
@@ -30,7 +31,7 @@ program info_types_test
   type (s1) :: var_a
   type (m1t1) :: var_b
 
-  var_a%a = 1
+  var_a%a = 1 + mod2_var_1
   var_b%b = 2
   l = .FALSE.
 end program info_types_test