Kenneth_Smith
Joined: 18 May 2012 Posts: 709 Location: Hamilton, Lanarkshire, Scotland.
|
Posted: Sat Jul 08, 2023 2:20 am Post subject: Bug: 32 bit, printing hypot(x,y) where arguments are real*8 |
|
|
The following code run as expected when compiled with the 64 bit compiler.
With the 32 bit compiler, an access violation occurs when printing hypot(x2,y2).
Code: | program test
implicit none
real x1, y1, z1
real*8 x2, y2, z2
x1 = 3.0
y1 = 4.0
z1 = hypot(x1,y1)
print*, x1, y1, z1
print*, x1, y1, hypot(x1,y1)
x2 = 3.d0
y2 = 4.d0
z2 = hypot(x2,y2)
print*, x2, y2, z2
print*, x2, y2, hypot(x2,y2) !Problem occurs here with 32 bit compiler
end program test |
|
|