! Use of intent(in)


SUBROUTINE myprint(n)
  IMPLICIT NONE

  INTEGER, INTENT(IN) :: n

  n = n + 1
  print *, "F90 print integer parameter n = ", n
END SUBROUTINE