<Example Program>

Program precision_example
  Double Precision,Pointer :: p
  Real,Allocatable :: q
  Print *,'Double precision Real has precision', Precision(p)
  Print *,'Default Real has precision', Precision(q)
End Program

Execution Results

 Double precision Real has precision 15
 Default Real has precision 6