According to the standard (F'2018: 16.9.191), TINY(0.0) is 2**(-127) for 32-bit IEEE. I think that's off by a factor of 0.5. The smallest normal 32-bit IEEE-754 number is actually 2**(-126).
Every Fortran compiler to which I have access agrees with me and has TINY(0.0) == 2**(-126).
This error, if it is one, may also affect the example results for RANGE().
Sysop: | Keyop |
---|---|
Location: | Huddersfield, West Yorkshire, UK |
Users: | 159 |
Nodes: | 16 (0 / 16) |
Uptime: | 98:38:38 |
Calls: | 3,209 |
Files: | 10,563 |
Messages: | 3,009,783 |