program test

implicit none
character :: string*20
integer :: i
character, parameter :: operators*4 = '+-*/'

  print *,'Enter string to calculate:' !can't input * or / ?
  read (5,*) string
  i=scan(string,operators)
  print *,string,operators,i
  stop

end