Scope when using variables in modules

Question

Hello,
I'm using the 03/09 Sunstudio 12 version to compile and debug a fortran code, and I've some problems when I try to display variables which are in shared modules.
The program made of subroutines which store variables in shared modules. For example : (I know that this example doesn't "bug". Just to show the way things are.)
file_main.f90 :
program PROG
   use MOD
   implicit none
   real :: var_prog = 12.76
   var_mod = 0.4
   write(*,*) 'var_prog = ',var_prog,', var_mod = ',var_mod
   call SUB
end program PROGfile_sub.f90
subroutine SUB
   use MOD
   write(*,*) var_mod
end subroutine SUBfile_mod.f90
module MOD
   implicit none
   real :: var_mod
end module MODAnd when I try to debug the code using DBX I have an 'out of scope' message in the SUB subroutine. I tried all the simple things (relax the scope using the `` operator, check that the debuggin information is there and read) without success, the only way I can print the values of my var_mod variable is to use a :: operator :
(dbx) print MOD::var_modThe use of the 'only' statement (use MOD, only: var_mod) allows me to avoid this problem, but of course, the actual program is much bigger (about 400 subroutines) than this example, and therefore I c(an't always use it.
Has anyone already encountred this bug ? Maybe there is a limit to the number of variables stored while debugging ? Or maybe dbx is mixing C classes and Fortran modules ?

Answer 1

Hello,
As I said in the first message, the program is more complex. I spend some time trying to reduce and isolate the 'bug', and here it is:
(Sorry, I couldn't simplify if further...)
prog.f90
program PROG
   ! kind parameters' definitions
   use F90_KIND , only: HIGH
   !....include version and build information
   use VERSION
   implicit none
   external AAMAIN
   real(kind=HIGH) :: XJOBSTA = 0._HIGH
   real(kind=HIGH) :: XJOBEND = 0._HIGH
   call CPU_TIME(XJOBSTA)
   !....print out version and build information
   write (*,*) CURRENT_VERSION
   write (*,*) PRGBST
   write (*,*) PRGBTI
   call AAMAIN
   call CPU_TIME(XJOBEND)
   write (*,1000) XJOBEND-XJOBSTA
1000 format ( &
          ///' Total computer time used for this case = ', f10.3,1x, &
          'seconds')
end program PROGversion.F
      MODULE VERSION
      IMPLICIT NONE
      CHARACTER(LEN=50),  PARAMETER :: CURRENT_VERSION =               
     & ' CODE       BUG_SCOPE     0 0           0000_00_00'
#ifndef program_built_time
      CHARACTER (LEN=30), PARAMETER ::                                 
     &     PRGBTI = " "
#else
      CHARACTER (LEN=30), PARAMETER ::                                 
     &     PRGBTI = program_built_time
#endif
#ifndef program_built_string
      CHARACTER (LEN=50), PARAMETER ::                                 
     &     PRGBST = " "
#else
      CHARACTER (LEN=50), PARAMETER ::                                 
     &     PRGBST = program_built_string
#endif
      END MODULE VERSIONf90_kind.f90
module F90_KIND
   ! REAL kinds : a conservative number of digits is used
   !              to get the right size across various machine float formats
   implicit none
   integer, parameter :: LOW = 4
   integer, parameter :: HIGH = 8
end module F90_KINDaamain.f90
subroutine AAMAIN
   ! kind parameters' definitions
   use F90_KIND
   use B10
   implicit none
   integer :: IHILF = 0
   T = 0.
   call SUB1
   T = T + TIMEAN(1)
end subroutine AAMAINconstants.f90
module CONSTANTS
   use F90_KIND
   implicit none
   ! numeric values
   integer, parameter :: MINF = -999999999
   real(KIND=HIGH), parameter :: SNINF = -1.e30_HIGH
   real(KIND=HIGH), parameter :: DNINF = -1.e30_HIGH
   real(KIND=HIGH), parameter :: SPREC = 1.e-7_HIGH
   real(KIND=HIGH), parameter :: DPREC = 1.e-15_HIGH
   real(KIND=HIGH), parameter :: THIRD = 1._HIGH/3._HIGH
   real(KIND=HIGH), parameter :: TWOTHIRD = 2._HIGH/3._HIGH
end module CONSTANTSparametr.f90
module PARAMETR
   implicit none
   integer, parameter :: IGRMAX = 2
   integer, parameter :: IFEMAX = 20
   integer, parameter :: M3MAX = 50
   integer, parameter :: M31MAX = M3MAX+1
   integer, parameter :: PLMIN = 10
   integer, parameter :: PLMAX = 10
end module PARAMETRb08.f90
module B08
   use F90_KIND
   use PARAMETR , only: IGRMAX, IFEMAX, M31MAX
   use PARAMETR , only: PLMIN,PLMAX
   use CONSTANTS , only: SNINF
   implicit none
   real(kind=HIGH), dimension(IFEMAX,IGRMAX,4,M31MAX) :: TETA 
end module B08b10.f90
module B10
   use F90_KIND
   implicit none
   real(kind=HIGH) :: T
   real(kind=HIGH), dimension(30) :: TIMEAN
end module B10sub1.f90
subroutine SUB1
   use F90_KIND
   use B10
   call SUB2
   write (*,1000) T
1000 format ( /1x,'Subroutine sub1, time T = ',d24.16)
end subroutine SUB1sub2.f90
subroutine SUB2
   use F90_KIND
   ! include module data
   use B10
   implicit none
   integer I
   call SUB3(2)
end subroutine SUB2sub3.f90
subroutine SUB3(IKENN)
   use F90_KIND, only: HIGH
   ! include module data
   use B10
   use B08, only: TETA
   integer :: IKENN
   integer, parameter :: ILL =100
   logical :: L_DEBUG = .FALSE.
   if (IKENN == 2) then
      if (L_DEBUG) write(*, '(F11.5, 3I4, 6F13.8, 1X, 2L1)')  &
      T,IKEN,ILL,L_DEBUG
   end if
   return
end subroutine SUB3If you set a breakpoint in SUB3, you can't see the content of the T variable. The only way to access it is to use b10::T.
Maybe this is important, I'm not sure I precised I was working using Linux.
Thanks for your help, and again I'm sorry for the quantity of code !
Edited by: Felix on May 20, 2009 1:54 AM