Skip to content

Commit 80e9ad8

Browse files
committed
fix(designed-to-error-terminate):eliminate warning
Gfortran erroneously flagged a function named "and" as shadowing an intrinsic function. This commit renames the user-defined function.
1 parent e9da484 commit 80e9ad8

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

test/unit-tests/designed-to-error-terminate.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -32,7 +32,7 @@ program designed_to_error_terminate
3232

3333
contains
3434

35-
pure function and(lhs,rhs) result(lhs_and_rhs)
35+
pure function and_operation(lhs,rhs) result(lhs_and_rhs)
3636
logical, intent(in) :: lhs, rhs
3737
logical lhs_and_rhs
3838

@@ -43,7 +43,7 @@ pure function and(lhs,rhs) result(lhs_and_rhs)
4343
subroutine co_all(boolean)
4444
logical, intent(inout) :: boolean
4545

46-
call co_reduce(boolean, and)
46+
call co_reduce(boolean, and_operation)
4747

4848
end subroutine
4949

0 commit comments

Comments
 (0)