<Example Program>

Program epsilon_example
    Integer, Parameter :: r6 = Selected_Real_Kind(6)
    Real(r6), Pointer :: p
    Print *, Epsilon(p)
End Program

Execution Results

 1.1920929E-07