|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
mecej4
Joined: 31 Oct 2006 Posts: 1886
|
Posted: Fri Jul 05, 2019 4:05 pm Post subject: ICE with /64 /opt |
|
|
The following code, when compiled with /64 /opt, causes an internal compiler error. When the lines containing L1 are removed, the ICE does not occur.
Code: | subroutine revprt()
implicit none
integer ia,ib,idx,j,kpagen
character*170 crec
logical*1 :: l1
!
kpagen = 0
do idx = kpagen,1,-1
do j = 1,42
ia = 1 + 4*(j-1)
ib = ia + 3
crec(ia:ib) = ' '
end do
do ia = 168,1,-1
if(crec(ia:ia) .ne. ' ') exit
end do
l1 = .false.
do j = 14,1,-1
if(crec(j:j) .ne. ' ' .and. .not.l1) l1 = .true.
if(l1 .and. crec(j:j) .eq. ' ') exit
end do
kpagen = kpagen + 1
if(idx .eq. 1) exit
end do
return
end |
P.S.: If the type of variable L1 is changed from LOGICAL*1 to just LOGICAL, the ICE goes away.
Last edited by mecej4 on Fri Jul 05, 2019 6:29 pm; edited 1 time in total |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Fri Jul 05, 2019 5:47 pm Post subject: |
|
|
Thank you for this bug report. I will make a note that it needs fixing. |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Mon Jul 08, 2019 7:47 am Post subject: |
|
|
This has now been fixed for the next release of FTN95. |
|
Back to top |
|
|
mecej4
Joined: 31 Oct 2006 Posts: 1886
|
Posted: Mon Jul 08, 2019 12:51 pm Post subject: |
|
|
Thank you for the prompt response. |
|
Back to top |
|
|
|
|
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
|