10 MODULE PSM
11 INTERFACE PSI
PROCEDURE :: a
12 PROCEDURE :: b, c
MODULE PROCEDURE :: d
13 MODULE PROCEDURE :: e, f
14 END INTERFACE

CONTAINS

SUBROUTINE a()
END SUBROUTINE

16 SUBROUTINE b(i)
END SUBROUTINE

SUBROUTINE c(i,j)
END SUBROUTINE

SUBROUTINE d(x)
END SUBROUTINE

SUBROUTINE e(x,y)
17 END SUBROUTINE

SUBROUTINE f(x,y,z)
END SUBROUTINE

18 END MODULE
