forums.silverfrost.com

[sigment]

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]

[PaulLaidler]

Thanks for the information.
We will investigate the bug and aim to fix it for the next release.

[PaulLaidler]

This bug has now been fixed for the next release.

[sigment]

Cool. Thanks. That was fast!

Any hint as to when the next release is due out?

S.