<Example Program>

	Program maxexponent_example     Real,Pointer :: p     Double Precision,Allocatable :: q     Print *,'Default Real has maxexponent', Maxexponent(p)     Print *,'Double Precision has maxexponent', Maxexponent(q) End Program
	Execution Results   Default Real has maxexponent 128   Double Precision has maxexponent 1024