My Project
prog_geometry.f90
Go to the documentation of this file.
1  ! Small test program
2  ! base on "Modern Fortran in Practice" by Arjen Markus
39 program test_objects
40 
42 
43  implicit none
44 
46  class(shape), pointer :: object
47  end type
48  type(list_of_objects), dimension(2) :: list
49 
50  type(rectangle), target :: rect
51  type(square), target :: sq
52 
53 
54  integer :: i
55 
56  call rect%size( 1.0, 2.0 )
57  call sq%size( 1.5 )
58 
59  list(1)%object => rect
60  list(2)%object => sq
61 
62  do i = 1,size(list)
63  write(*,*) 'Area: ', list(i)%object%get_area()
64  enddo
65 
66 end program test_objects
program test_objects