program entry1
real :: dummy
dummy = 10
call x(dummy)
call y(dummy)
end program entry1


subroutine x(dummy)
real :: dummy
print *, "Printed using subroutine call: ", dummy
dummy = 5.0
return
entry y(dummy)
print *, "Printed using entry statement: ", dummy
return
end subroutine x
