show_rename_intrinsics Program

program show_rename_intrinsics
! rename intrinsics

! shorter names
use M_overload, only : cmd=>execute_command_line
use M_overload, only : getenv=> get_environment_variable

! longer names
use M_overload, only : cosine=>cos, sine=>sin, tangent=>tan

implicit none
character(len=4096) :: home

   call cmd('echo Hello')
   call getenv('HOME',home)
   write(*,*)trim(home)
   !write(*,*)elements([10,20,30])

   write(*,*)cosine(1.0),sine(1.0),tangent(1.0)

end program show_rename_intrinsics