<Example Program>

	Program minexponent_example     Real,Pointer :: p     Double Precision,Allocatable :: q     Print *,'Default Real has minexponent', Minexponent(p)     Print *,'Double Precision has minexponent', Minexponent(q) End Program
	Execution Results   Default Real has minexponent -125   Double Precision has minexponent -1021