Program range_example
    Double Precision,Pointer :: p
    Real,Allocatable :: q
    Print *,'Default Integer has range', Range(17)
    Print *,'Double precision Real has range', Range(p)
    Print *,'Default Real has range', Range(q)
End Program