PROGRAM testaus
  IMPLICIT NONE
  REAL :: x
  INTRINSIC SIN
  WRITE (*,*) 'Anna x: '
  READ (*,*) x
  WRITE (*,*) 'x = ', x, ' SIN(x) = ', SIN(x)
END PROGRAM testaus