My Project
src_fortran
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
41
use
geometrical_objects
42
43
implicit none
44
45
type
list_of_objects
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
test_objects
program test_objects
Definition:
prog_geometry.f90:39
geometrical_objects::square
Definition:
mod_geometry.f90:48
list_of_objects
Definition:
prog_geometry.f90:45
geometrical_objects
Definition:
mod_geometry.f90:12
geometrical_objects::rectangle
Definition:
mod_geometry.f90:36
geometrical_objects::shape
Definition:
mod_geometry.f90:19
Generated by
1.8.15