Começo a aprender o Fortran e estou fazendo um pequeno programa de teste de caso em que o usuário digita dois números reais e seleciona operadores aritméticos (de + - * /). O seguinte erro aparece quando o usuário seleciona "*"

F6502 : read <con> - positive integer expected in repeat field

e se o usuário selecionar "/", o compilador executará o caso padrão e exibirá esta mensagem

invalid operator, thanks
the result is 0.000000E+00

O programa é o seguinte.

program operateur
implicit none

   CHARACTER(LEN=1) :: oper 
   real::a,b,res
   print*,'Give the first number a :'
   read*,a
   print*,'Give the second number b :'
   read*,b
   print*,'which operation ?'
   read*,oper
   !print*,'donnez a,b,oper :'
  ! read(*,*)a,b,oper

               select case (oper)

                  case ('+')      
                  res=a+b

                  case ('-')       
                  res=a-b

                  case ('*')       
                  res=a*b


                  case ('/')       
                  res=a/b           

                  case default
                  print*, "Invalid Operator, thanks" 

               end select

   print*,'the result is ',res 

end program operateur