program ex0706
implicit none
real :: A = 30.0
real, intrinsic :: sin, cos
real, external :: trig_func
write(*,*) trig_func(sin, A)
write(*,*) trig_func(cos, A)
stop
end program ex0706