program main
type c
real :: length
real :: width
real :: height
end type cuboid
type (c) c
c%length = 2.0
c%width = 3.0
c%height = 4.0
real :: volume
volume = c%length * c%width * c%height
print *, 'The volume of the cuboid is', volume
end program main