Compile and Execute FORTRAN-95 Online

program mpadilla26HW04_01
implicit none
integer, DIMENSION(1:4) :: a=(/-2,0,2,4/), array_w, array_T,array_q
integer:: h,g
!Part a
!Real, DIMENSION (1:4):: b=(/-2,0,2,4/)
print*, 'part a= ',a
!Part b
do h=1,4
array_w(h)= 2*(h-2)
end do
print*, 'part b= ', array_w
!Part c
print*,'Enter 4 values'
read (*,*) array_T(1),array_T(2),array_T(3),array_T(4)
print*,'part c=',array_T
!Part d
do g=1,4
array_q(g)= a(4-g+1)
end do
print*, 'part d = ',array_q
end program mpadilla26HW04_01