编辑代码

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