Statement: Identifies module procedures in an interface block that specifies a generic name. See INTERFACE.
!A program that changes non-default integers and reals !into default integers and reals
PROGRAM CHANGE_KIND
USE Module1
INTERFACE DEFAULT
MODULE PROCEDURE Sub1, Sub2
END INTERFACE
integer(2) in
integer indef
indef = DEFAULT(in)
END PROGRAM
! procedures sub1 and sub2 defined as follows:
MODULE Module1
CONTAINS
FUNCTION Sub1(y)
REAL(8) y
sub1 = REAL(y)
END FUNCTION
FUNCTION Sub2(z)
INTEGER(2) z
sub2 = INT(z)
END FUNCTION
END MODULE