PROGRAM main
  IMPLICIT NONE

  INTEGER i

  interface
    subroutine myprint(x)
      integer, intent(in) :: x
    end subroutine
  end interface


  i = 123

  CALL myprint(i)
  END