forums.silverfrost.com :: View topic - PRODUCT(A) when SIZE(A) = 0

replica nfl jerseys replica nfl jerseys soccer jersey replica nfl jerseys forums.silverfrost.com :: View topic - PRODUCT(A) when SIZE(A) = 0

forums.silverfrost.com Forum Index

forums.silverfrost.com
Welcome to the Silverfrost forums

FAQ

Usergroups

Register

Log in to check your private messages

PRODUCT(A) when SIZE(A) = 0

forums.silverfrost.com Forum Index -> 64-bit

View previous topic :: View next topic

Author

Message

Kenneth_Smith

Joined: 18 May 2012
Posts: 818
Location: Lanarkshire, Scotland.

Posted: Sun Jan 05, 2025 12:28 am Post subject: PRODUCT(A) when SIZE(A) = 0

Reply with quote

The following code generates a run time access violation when compiled with the 64 bit compiler.

The 32 bit compiler returns the correct value of 1.d0

Code:

program bug_in_product
implicit none
real*8 :: a(0)
print*, product(a)
end program bug_in_product

The access violation occurs for both real and real*8 a. It does not occur for complex a.

Send private message

PaulLaidler
Site Admin

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

Posted: Sun Jan 05, 2025 7:58 am Post subject:

Ken Thank you for the bug report which I have logged for investigation.

Send private message

AIM Address

PaulLaidler
Site Admin

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

Posted: Fri Jan 31, 2025 8:10 am Post subject:

This bug has now been fixed for the next release of FTN95.

Send private message

AIM Address

Display posts from previous:

	forums.silverfrost.com Forum Index -> 64-bit	All times are GMT + 1 Hour
Page 1 of 1

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