Hi,
Here's a small program that demonstrates an access violation bug in FTN95 5.10.0 and the work-around:
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
! DOUBLE PRECISION EXPCHK ! OK if this is used EXPFUN(T,N)=EXPCHK(T)/N GLTFUN(T)=EXPFUN(T,3)
PRINT *, GLTFUN(22.2D0)
END
! Compiling this on FTN95 5.10.0 with: ! ! ftn95 /NO_BANNER /132 /ALT_KINDS /COLOUR /ERROR_NUMBERS /NO_OBSOLETE /OLD_ARRAYS /P6 /SAVE /CHECKMATE /FULL_DEBUG ! ! gives Access Violation: The instruction at 00509a25 attempted to read from location 0000000c ! ! 005099fe inline_substitute(<ref>struct─tree_ptr,<ptr>struct─scoped_entity,<ptr>struct─tr [+0027] ! 004a5733 fix_array_fun_rec(struct─tree_ptr,enum─tree_kind) [+135f] ! 004a2b22 scan_the_tree(<ref>struct─tree_ptr,int,enum─tree_kind) [+057f] [recur= 1] ! 0041cdb4 process_assignment(<ptr>char,<ref>int,int) [+0216] ! 0041202b handle_token(<ptr>char,int,int,int,int,<ref>int) [+1169] ! 0040514d ProcessEntireLine(void) [+0695] ! 0040619b compile(<ptr>char) [+00ce] ! 00401000 main [+049b]