Fortran seletor de temperatura

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

program select_temp
implicit none
! Declaração da variável
integer :: marks
!Usado para prosseguir com o GOTO
7 continue
!Dar entrada da temperatura
print*, "Digite a Temperatura em °C"
read*, marks 
 
! Seleção do caso
select case (marks)
 
case (:10)
print*, "Temperatura Considerada Fria"
 
case (11:20)
print*, "Temperatura Considerada Agradavel"
 
case (21:30)
print*, "Temperatura Considerada Otima"
 
case (31:40)
print*, "Temperatura Considerada Horrivel"
 
case (41:)
print*, "Reveja a temperatura digitada"
 
end select
print*, "A temperatura digitada foi de: ", marks, "°C"
goto 7
 
end program select_temp