MODULE m_type IMPLICIT NONE ! TYPE :: t_base INTEGER :: n REAL :: x END TYPE t_base ! END MODULE m_type !=================================================== MODULE m_extype USE m_type IMPLICIT NONE ! TYPE, EXTENDS(t_base) :: t_ext PROCEDUR…