diff options
Diffstat (limited to 'gdb/testsuite/gdb.fortran/module.f90')
| -rw-r--r-- | gdb/testsuite/gdb.fortran/module.f90 | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.fortran/module.f90 b/gdb/testsuite/gdb.fortran/module.f90 index 843ad89..d9eb1b3 100644 --- a/gdb/testsuite/gdb.fortran/module.f90 +++ b/gdb/testsuite/gdb.fortran/module.f90 @@ -27,6 +27,10 @@ module modmany integer :: var_a = 10, var_b = 11, var_c = 12, var_i = 14 end module modmany +module moduse + integer :: var_x = 30, var_y = 31 +end module moduse + subroutine sub1 use mod1 if (var_i .ne. 1) call abort @@ -42,6 +46,7 @@ end module modmany program module use modmany, only: var_b, var_d => var_c, var_i + use moduse, var_z => var_y call sub1 call sub2 @@ -49,5 +54,7 @@ end module modmany if (var_b .ne. 11) call abort if (var_d .ne. 12) call abort if (var_i .ne. 14) call abort + if (var_x .ne. 30) call abort + if (var_z .ne. 31) call abort var_b = var_b ! a-b-c-d end |