PGI Fortran Reference manual - The Portland Group

Object Oriented Programmingfrom the binding-name. The procedure-name can be either a module procedure or an externalprocedure with an explicit interface.In the example SELECT TYPE construct, the binding-name is initialize. Becauseprocedure-name was not specified, an implicit procedure-name, initialize, isalso declared. Another way to write that example is procedure :: initialize =>initialize.Type-Bound Procedure using Module ProcedureThe following example is a type-bound procedure that uses a module procedure.module shape_modtype shapeinteger :: colorlogical :: filledinteger :: xinteger :: ycontainsprocedure :: initializeend type shapetype, extends(shape) :: rectangleinteger :: lengthinteger :: widthend type rectangletype, extends(rectangle) :: squareend type squarecontainssubroutine initialize(sh, color, filled, x, y, length, width)! initialize shape objectsclass(shape) :: shinteger :: colorlogical :: filledinteger :: xinteger :: yinteger, optional :: lengthinteger, optional :: widthsh%color = colorsh%filled = filledsh%x = xsh%y = yselect type (sh)type is (shape)! no further initialization requiredclass is (rectangle)! rectangle or square specific initializationsif (present(length)) thensh%length = lengthelsesh%length = 0endifif (present(width)) thensh%width = widthelsesh%width = 0endifclass default! give error for unexpected/unsupported typestop 'initialize: unexpected type for sh object!'end selectend subroutine initializeend modulePGI Fortran Reference Guide 127