Integer,Pointer :: p
Real,Allocatable :: q
Print *,'Default Integer has radix', Radix(p)
Print *,'Default Real has radix', Radix(q)
End Program
Execution ResultsDefault Integer has radix 2
Default Real has radix 2
<Example Program>
| Program radix_example Integer,Pointer :: p Real,Allocatable :: q Print *,'Default Integer has radix', Radix(p) Print *,'Default Real has radix', Radix(q) End Program |
|
| Execution Results Default Integer has radix 2 Default Real has radix 2 |
|