Silverfrost Forums

Welcome to our forums

PRODUCT(A) when SIZE(A) = 0

4 Jan 2025 11:28 #31793

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

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.

5 Jan 2025 6:58 #31795

Ken

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

31 Jan 2025 7:10 #31887

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

Please login to reply.