PROGRAM prova
  IMPLICIT NONE                    
  WRITE (*,*) prima(), seconda(8,2)
  CALL esempio(15)
  STOP

  CONTAINS

    FUNCTION prima()
      INTEGER :: prima
      INTEGER :: a

      a=10
      prima=12-a

      RETURN
    END FUNCTION prima

    FUNCTION seconda(x, y)
      INTEGER, INTENT(in) :: x, y
      INTEGER :: seconda

      seconda=x+y+10

      RETURN
    END FUNCTION seconda

    SUBROUTINE esempio(w)
      INTEGER, INTENT(in) :: w
      WRITE (*,*) w+10
      RETURN
    END SUBROUTINE esempio

END PROGRAM prova