Compile and Execute FORTRAN-95 Online

program hello
integer :: i
character(len=100) :: subject
integer :: st=0
print *, 'enter the number'
read(*,*)i
do while (i<0 .or. i>999)
print *, 'sorry the number is not in range'
read(*,*)i
end do
if (i<99) then
subject = 'General works computer science and information'
else if (i<199) then
subject = 'Philosphy and Psychology'
else if (i<299) then
subject = 'Religion'
else if (i<399) then
subject = 'social sciences'
else if (i<499) then
subject = 'Language'
else if (i<599) then
subject = 'Pure Science'
else if (i<699) then
subject = 'Technology'
else if (i<799) then
subject = 'Arts and recreation'
else if (i<899) then
subject = 'Literature'
Else
Subject = 'History and geography'
end if
print *, 'ddc :', subject
end program Hello