＜HUGE Example Program＞

Program huge_example
  Integer,Parameter :: i8 = Selected_Int_Kind(2)
  Integer(i8),Pointer :: p
  Print *,Huge(p)
End Program

■ Execution Results

 127