module testModule

implicit none

real, parameter :: pi = 3.1415926
real, parameter :: e  = 2.7182818
integer, parameter  :: REALSP = selected_real_kind(6)
integer, parameter  :: REALDP = selected_real_kind(15)
integer,parameter   :: INTDP  = selected_int_kind(9)
 
!-----------------------------------
contains

subroutine sum(a,b)
  real :: a,b
  print *, "la suma es: ", a+b
end subroutine sum

subroutine message()
  print *, "Estoy en la subrutina message dentro del modulo testModule"
end subroutine message

end module testModule