Compile and Execute FORTRAN-95 Online

program hello
   implicit none
   
   integer          ::Num=15
   integer          ::i
   integer          ::thisyear=1984
   character(len=4) ::YYYY
   character(len=31)::filename='../Output/Analysis/Ensemble/00/'
   
   write(YYYY,'(I4)') thisyear
   
   do i=1,Num
     write(filename(29:30),'(I2.2)') i
     
     print*,filename//YYYY//'.grd'
   enddo
   
end program Hello