Skip to content

Commit b315ccf

Browse files
authored
Merge pull request #28 from wyphan/wyphan/fix-test-label
Fix typo in compiler test description for `check_finalize_on_end`
2 parents a7b9f9a + 392e7cb commit b315ccf

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

test/compiler_test.f90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)