Conference turris::fortran

1308.0. "DFVV unable to obtain array address in DEBUGGER" by CSC32::D_SANFORD () Wed May 21 1997 14:37

    Digital Fortran V6.4-165, OpenVMS VAX V6.2

    When using the DEBUGger to show the address of an array on OpenVMS 
    VAX your given the address of the descriptor, on the Alpha you get
    the address of the array.

    Is there any easy way to get the address of the array on the VAX 
    without modifying the code?  You can modify the code to use %LOC()
    or an EQUIVALENCE statement, but the customer cannot modify the
    code.  The descriptor cannot be read either.

    Regards, Drew Sanford
    C970520-6054


        integer a10(10), aa
        equivalence (a10,aa)
        a10(1)=1
        print *, %loc(a10)
        end


         OpenVMS VAX DEBUG Version V6.2-000

%DEBUG-I-INITIAL, language is FORTRAN, module set to D$MAIN

DBG> sho sym/address a10
data D$MAIN\A10
    descriptor address: 2243701
DBG> sho sym/address aa
data D$MAIN\AA
    address: 512
DBG> ex 2243701
%DEBUG-E-NOACCESSR, no read access to address 00223C75

EVAL/ADDR A10 works.  The "descriptor" is actually in the DST records and
is not accessible in this case.  I don't think it's anything the compiler
can help with - ask in TURRIS::DEBUG.

			Steve