Skip to content

Commit 8cfb9a7

Browse files
committed
assert_m: silence some harmless style warnings from LFortran
1 parent 80879e0 commit 8cfb9a7

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/assert_m.F90

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -117,16 +117,16 @@ pure subroutine assert_always(assertion, description, file, line)
117117
end block
118118
else
119119
location = location // '<unknown>'
120-
endif
121-
endif
120+
end if
121+
end if
122122

123123
#if ASSERT_MULTI_IMAGE
124124
# if ASSERT_PARALLEL_CALLBACKS
125125
if (associated(assert_this_image)) then
126126
me = assert_this_image()
127127
else
128128
me = 0
129-
endif
129+
end if
130130
# else
131131
me = this_image()
132132
# endif
@@ -145,7 +145,7 @@ pure subroutine assert_always(assertion, description, file, line)
145145
call assert_error_stop(message)
146146
else
147147
; ! deliberate fall-thru
148-
endif
148+
end if
149149
#endif
150150
#ifdef __LFORTRAN__
151151
! workaround a defect observed in LFortran 0.54:

0 commit comments

Comments
 (0)