Я начинаю изучать Фортран и делаю небольшую тестовую программу, в которой пользователь вводит два действительных числа и выбирает арифметические операторы (из + - * /). Следующая ошибка появляется, когда пользователь выбирает «*»

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

и если пользователь выбирает «/», компилятор выполняет регистр по умолчанию и отображает это сообщение

invalid operator, thanks
the result is 0.000000E+00

Программа выглядит следующим образом.

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