--- Comment #10 from jonathan dot d dot wetherbee at saic dot com
2009-05-08 15:51 ---
When I run the fortran code: print *, precision(1.e0), digits(1.e0)
I get: 6,24
*.original file yields:
myfunc (real(kind=4) & a, real(kind=4) & b, real(kind=4) & c, real(kind=4) &
--- Comment #7 from jonathan dot d dot wetherbee at saic dot com
2009-05-08 15:40 ---
Checked the size of a float with sizeof(float) and got 4 bytes. How can I
check the size of REAL in fortran?
When I try the USE ISO_C_BINDING I get the same result.
--
http://gcc.gnu.org
--- Comment #4 from jonathan dot d dot wetherbee at saic dot com
2009-05-08 15:27 ---
When I run Dominique's main function written in fortran, I get:
res1res2 res1-res2
6.09E-24 310.40363 -310.40363
8.92E-23 23223.025 -23223.025
-4.01E-06 142007.59 -1420
--- Comment #2 from jonathan dot d dot wetherbee at saic dot com
2009-05-08 15:03 ---
I used C code to call the function because the fortran code is being compiled
into a C based application.
When I run the sample main function, the values are obviously different.
Function 1:
result
Windows 64 build
Product: gcc
Version: 4.4.0
Status: UNCONFIRMED
Severity: blocker
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: jonathan dot d dot wetherbee at saic dot com
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40070
