Modify the traffic queue program in this section to remove one level of indirection by defining the type q_type to be type, public :: q_type private type(vehicle_type), dimension(:), allocatable ::...

Modify the traffic queue program in this section to remove one level of indirection

by defining the type q_type to be

type, public :: q_type

private

type(vehicle_type), dimension(:), allocatable :: vehicles

contains

procedure :: empty, is_empty, insert, remove, print_licenses

end type q_type

The type node_type is not needed, but modifying the subroutines in the module

requires using polymorphic assignment.