Lines Matching full:parameter

17   type(child_type), parameter :: child_const1 = child_type(10, 11)
18   logical, parameter :: test_child1 = child_const1%child_field == 11
19   logical, parameter :: test_parent = child_const1%parent_field == 10
21   type(child_type), parameter :: child_const2 = child_type(12, 13)
22   type(child_type), parameter :: array_var(2) = &
24   logical, parameter :: test_array_child = array_var(2)%child_field == 17 
25   logical, parameter :: test_array_parent = array_var(2)%parent_field == 16
30   type(array_type), parameter :: array_var2 = &
32   logical, parameter :: test_array_var = array_var2%real_field(2) == 4.0
34   type(child_type), parameter, dimension(2) :: child_const3 = &
36   integer, dimension(2), parameter :: int_const4 = &
38   logical, parameter :: test_child2 = int_const4(1) == 18
40   type(child_array_type), parameter, dimension(2) :: child_const5 = &
42   integer, dimension(2), parameter :: int_const6 = child_const5(:)%parent_field(2)
43   logical, parameter :: test_child3 = int_const6(1) == 23 
45   type(child_type), parameter :: child_const7 =  child_type(28, 29)
46   type(parent_type), parameter :: parent_const8 = child_const7%parent_type
47   logical, parameter :: test_child4 = parent_const8%parent_field == 28
49   type(child_type), parameter :: child_const9 = &
51   integer, parameter :: int_const10 = child_const9%parent_field
52   logical, parameter :: test_child5 = int_const10 == 30
67   type(child_type), parameter :: child_const1 = child_type(10.0, 11, 12.0)
68   integer, parameter :: int_const2 = &
70   logical, parameter :: test_child1 = int_const2 == 10.0
71   integer, parameter :: int_const3 = &
73   logical, parameter :: test_child2 = int_const3 == 10.0
75   type(child_type), parameter :: child_const4 = &
77   integer, parameter :: int_const5 = &
79   logical, parameter :: test_child3 = int_const5 == 13.0
81   type(child_type), parameter :: child_const6 = &
83   integer, parameter :: int_const7 = &
85   logical, parameter :: test_child4 = int_const7 == 16.0
86   integer, parameter :: int_const8 = &
88   logical, parameter :: test_child5 = int_const8 == 16.0
106   type(child_type), parameter :: child_const1 = &
111   logical, parameter :: test_child1 = child_const1%child_field1 == 13.3
112   logical, parameter :: test_child2 = child_const1%child_field2 .eqv. .true.
113   logical, parameter :: test_child3 = child_const1%child_field3 == 11
114   logical, parameter :: test_parent1 = child_const1%parent_field1 == 12
115   logical, parameter :: test_parent2 = child_const1%parent_field2 == 10.0
116   logical, parameter :: test_parent3 = child_const1%parent_field3 .eqv. .false.
117   logical, parameter :: test_parent4 = & 
119   logical, parameter :: test_parent5 = &
121   logical, parameter :: test_parent6 = &
124   type(parent_type), parameter ::parent_const1 = child_const1%parent_type
125   logical, parameter :: test_parent7 = parent_const1%parent_field1 == 12
126   logical, parameter :: test_parent8 = parent_const1%parent_field2 == 10.0
127   logical, parameter :: test_parent9 = &
130   type(child_type), parameter :: child_const2 = &
134   logical, parameter :: test_child4 = child_const2%child_field1 == 16.6
135   logical, parameter :: test_child5 = child_const2%child_field2 .eqv. .false.
136   logical, parameter :: test_child6 = child_const2%child_field3 == 14
137   logical, parameter :: test_parent10 = child_const2%parent_field1 == 15
138   logical, parameter :: test_parent11 = child_const2%parent_field2 == 20.0
139   logical, parameter :: test_parent12 = child_const2%parent_field3 .eqv. .true.
141   type(child_type), parameter :: child_const3 = &
145   logical, parameter :: test_child7 = child_const3%parent_field1 == 18
146   logical, parameter :: test_child8 = child_const3%parent_field2 == 17.7
147   logical, parameter :: test_child9 = child_const3%parent_field3 .eqv. .false.
148   logical, parameter :: test_child10 = child_const3%child_field1 == 19.9
149   logical, parameter :: test_child11 = child_const3%child_field2 .eqv. .false.
150   logical, parameter :: test_child12 = child_const3%child_field3 == 21
152   type(child_type), parameter :: child_const4 = &
156   logical, parameter :: test_child13 = child_const4%parent_field1 == 22
157   logical, parameter :: test_child14 = child_const4%parent_field2 == 20.0
158   logical, parameter :: test_child15 = child_const4%parent_field3 .eqv. .true.
159   logical, parameter :: test_child16 = child_const4%child_field1 == 23.4
160   logical, parameter :: test_child17 = child_const4%child_field2 .eqv. .false.
161   logical, parameter :: test_child18 = child_const4%child_field3 == 24