module mykinds
   use ISO_FORTRAN_ENV
   implicit none
   private
   public sp, dp, ep, qp
   integer, parameter :: sp = REAL_KINDS(1)
   integer, parameter :: dp = REAL_KINDS(2)
   integer, parameter :: ep = REAL_KINDS(3)
   integer, parameter :: qp = REAL_KINDS(4)
end module mykinds

program quadtest
   use mykinds
   implicit none
   real(qp), parameter :: pi = 4*atan(1.0_qp)
   
   write(*,*) sp,dp,ep,qp
   write(*,*) pi
end program quadtest