program print_it
call print_int()
contains
subroutine print_int
integer :: a
a = 5
print *, a
end subroutine print_int
end program print_it
