@@ -27,11 +27,11 @@ function test_ref_reference() result(tests)
27
27
tests = &
28
28
describe( &
29
29
" The compiler" , &
30
- [ it(" finalizes a non-allocatable object on the LHS of an intrinsic assignment" , check_lhs_object) &
30
+ [ it(" finalizes a non-allocatable object on the LHS of an intrinsic assignment" , check_lhs_object) &
31
31
,it(" finalizes an allocated allocatable LHS of an intrinsic assignment" , check_allocated_allocatable_lhs) &
32
32
,it(" finalizes a target when the associated pointer is deallocated" , check_target_deallocation) &
33
33
,it(" finalizes an object upon explicit deallocation" , check_finalize_on_deallocate) &
34
- ,it(" finalizes a non-pointer non-allocatable array object at the END statement" , check_finalize_on_end) &
34
+ ,it(" finalizes a non-pointer non-allocatable object at the END statement" , check_finalize_on_end) &
35
35
,it(" finalizes a non-pointer non-allocatable object at the end of a block construct" , check_block_finalization) &
36
36
,it(" finalizes a function reference on the RHS of an intrinsic assignment" , check_rhs_function_reference) &
37
37
,it(" finalizes a specification expression function result" , check_specification_expression) &
@@ -98,7 +98,7 @@ function check_target_deallocation() result(result_)
98
98
end function
99
99
100
100
function check_allocatable_component_finalization () result(result_)
101
- ! ! Tests 7.5.6.3, para. 2 ("allocatable entity is deallocated")
101
+ ! ! Tests 7.5.6.3, para. 2 ("allocatable entity is deallocated")
102
102
! ! + 9.7.3.2, para. 6 ("INTENT(OUT) allocatable dummy argument is deallocated")
103
103
type (wrapper_t), allocatable :: wrapper
104
104
type (result_t) result_
0 commit comments