diff options
Diffstat (limited to 'gdb/testsuite/gdb.fortran/module.f90')
| -rw-r--r-- | gdb/testsuite/gdb.fortran/module.f90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.fortran/module.f90 b/gdb/testsuite/gdb.fortran/module.f90 index ada7262..d10b1fb 100644 --- a/gdb/testsuite/gdb.fortran/module.f90 +++ b/gdb/testsuite/gdb.fortran/module.f90 @@ -23,6 +23,12 @@ module mod2 integer :: var_i = 2 end module mod2 +module mod3 + integer :: mod2 = 3 + integer :: mod1 = 3 + integer :: var_i = 3 +end module mod3 + module modmany integer :: var_a = 10, var_b = 11, var_c = 12, var_i = 14 end module modmany @@ -43,6 +49,11 @@ end module moduse var_i = var_i ! i-is-2 end + subroutine sub3 + USE mod3 + var_i = var_i ! i-is-3 + END + program module use modmany, only: var_b, var_d => var_c, var_i @@ -50,6 +61,7 @@ end module moduse call sub1 call sub2 + call sub3 if (var_b .ne. 11) call abort if (var_d .ne. 12) call abort |