forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Active DO loop index altered

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Support
View previous topic :: View next topic  
Author Message
steveDoyle



Joined: 04 Sep 2009
Posts: 81
Location: Manchester

PostPosted: Mon Dec 21, 2020 3:34 pm    Post subject: Active DO loop index altered Reply with quote

Hi

Occasionally i get the "Active Do loop index altered" message when i'm debugging. Needless to say that the line of code is doing no such thing (i.e. an output statement) .

It only seem to appear when only some of the code is complied in debug mode i.e.

ftn95 test1.for /debug
ftn95 big_code.for
ftn95 reliable_code.for /debug
slink test1,big_code,reliable_code

The calling sequence is of the form Test1->big_code-> reliable_code

If this routine was in reliable_code.for

subroutine got_here(cbuff)
character*(*) cbuff
write(*,*,err=99) cbuff
99 continue
end

it would fail with "Active DO loop index altered" on the write statement

I haven't been able to reproduce the effect with a small example. Compiling without the debug option and the code works as expected

I understand that it maybe hard to track down without a reproducible example but an awareness of the issue maybe helpful to you

steve
Back to top
View user's profile Send private message
Robert



Joined: 29 Nov 2006
Posts: 359
Location: Manchester

PostPosted: Mon Dec 21, 2020 3:39 pm    Post subject: Reply with quote

Which version of the compiler are you using?
Back to top
View user's profile Send private message Visit poster's website
steveDoyle



Joined: 04 Sep 2009
Posts: 81
Location: Manchester

PostPosted: Mon Dec 21, 2020 3:46 pm    Post subject: Reply with quote

Robert

ftn95 v8.70.0
Win xp 32

I have seen this message in previous versions and other platforms (win 8/10
64bit)

steve
Back to top
View user's profile Send private message
Robert



Joined: 29 Nov 2006
Posts: 359
Location: Manchester

PostPosted: Mon Dec 21, 2020 4:15 pm    Post subject: Reply with quote

I presume you are using checkmate. You mentioned /debug but that doesn't check for the do loop being modified.
Back to top
View user's profile Send private message Visit poster's website
steveDoyle



Joined: 04 Sep 2009
Posts: 81
Location: Manchester

PostPosted: Mon Dec 21, 2020 4:20 pm    Post subject: Reply with quote

Robert

/full_debug


steve
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 6692
Location: Salford, UK

PostPosted: Mon Dec 21, 2020 4:57 pm    Post subject: Reply with quote

steve

To make any progress, we would need some sample code that illustrates the failure.

If the failure concerns /FULL_DEBUG then you could switch it off before defining the routine...

options(-full_debug)
subroutine got_here(cbuff)
......
end
options(full_debug)
Back to top
View user's profile Send private message AIM Address
steveDoyle



Joined: 04 Sep 2009
Posts: 81
Location: Manchester

PostPosted: Mon Dec 21, 2020 5:51 pm    Post subject: Reply with quote

Hi Paul

thanks for the quick response.

I understand these issues are next to impossible to resolve without a reproducible example. I will do some experimentation over the holiday period to see if i can isolate the problem


regards

steve
Back to top
View user's profile Send private message
StamK



Joined: 12 Oct 2016
Posts: 138

PostPosted: Mon Jan 04, 2021 1:28 am    Post subject: Reply with quote

Just wanted to add that I too have noticed this bug when running with undef.
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 6692
Location: Salford, UK

PostPosted: Mon Jan 04, 2021 10:01 am    Post subject: Reply with quote

StamK

Can you demonstrate this bug with a short sample program?
Back to top
View user's profile Send private message AIM Address
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Support All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group