@@ -27,11 +27,11 @@ function test_ref_reference() result(tests)
2727 tests = &
2828 describe( &
2929 " 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) &
3131 ,it(" finalizes an allocated allocatable LHS of an intrinsic assignment" , check_allocated_allocatable_lhs) &
3232 ,it(" finalizes a target when the associated pointer is deallocated" , check_target_deallocation) &
3333 ,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) &
3535 ,it(" finalizes a non-pointer non-allocatable object at the end of a block construct" , check_block_finalization) &
3636 ,it(" finalizes a function reference on the RHS of an intrinsic assignment" , check_rhs_function_reference) &
3737 ,it(" finalizes a specification expression function result" , check_specification_expression) &
@@ -98,7 +98,7 @@ function check_target_deallocation() result(result_)
9898 end function
9999
100100 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")
102102 ! ! + 9.7.3.2, para. 6 ("INTENT(OUT) allocatable dummy argument is deallocated")
103103 type (wrapper_t), allocatable :: wrapper
104104 type (result_t) result_
0 commit comments