110110> else label2
111111#^^^^ source .fortran .free meta .named - construct .fortran .modern meta .block .if .fortran keyword .control .else .fortran
112112# ^ source .fortran .free meta .named - construct .fortran .modern meta .block .if .fortran
113- # ^^^^^^ source .fortran .free meta .named - construct .fortran .modern meta .block .if .fortran meta .label .else
113+ # ^^^^^^ source .fortran .free meta .named - construct .fortran .modern meta .block .if .fortran meta .label .else . fortran
114114> end if label2
115115#^^^^^^ source .fortran .free meta .named - construct .fortran .modern keyword .control .endif .fortran
116116# ^ source .fortran .free meta .named - construct .fortran .modern meta .statement .control .if .fortran
145145# ^ source .fortran .free meta .named - construct .fortran .modern meta .block .if .fortran punctuation .parentheses .right .fortran
146146# ^ source .fortran .free meta .named - construct .fortran .modern meta .block .if .fortran
147147# ^^^^ source .fortran .free meta .named - construct .fortran .modern meta .block .if .fortran keyword .control .then .fortran
148- # ^^^^^^^ source .fortran .free meta .named - construct .fortran .modern meta .block .if .fortran meta .label .elseif
148+ # ^^^^^^^ source .fortran .free meta .named - construct .fortran .modern meta .block .if .fortran meta .label .elseif . fortran
149149> else label3
150150#^^^^ source .fortran .free meta .named - construct .fortran .modern meta .block .if .fortran keyword .control .else .fortran
151151# ^ source .fortran .free meta .named - construct .fortran .modern meta .block .if .fortran
152- # ^^^^^^ source .fortran .free meta .named - construct .fortran .modern meta .block .if .fortran meta .label .else
152+ # ^^^^^^ source .fortran .free meta .named - construct .fortran .modern meta .block .if .fortran meta .label .else . fortran
153153> end if label3
154154#^^^^^^ source .fortran .free meta .named - construct .fortran .modern keyword .control .endif .fortran
155155# ^ source .fortran .free meta .named - construct .fortran .modern meta .statement .control .if .fortran
241241# ^ source .fortran .free meta .statement .control .if .fortran meta .statement .control .stop .fortran
242242# ^^^^ source .fortran .free meta .statement .control .if .fortran meta .statement .control .stop .fortran keyword .control .stop .fortran
243243# ^ source .fortran .free meta .statement .control .if .fortran meta .statement .control .stop .fortran
244- # ^^^^^^ source .fortran .free meta .statement .control .if .fortran meta .statement .control .stop .fortran meta .label .stop
244+ # ^^^^^^ source .fortran .free meta .statement .control .if .fortran meta .statement .control .stop .fortran meta .label .stop . stop
245245> if (1 ) stop " label" // "7"
246246#^^ source .fortran .free keyword .control .if .fortran
247247# ^ source .fortran .free meta .expression .control .logical .fortran
257257# ^^ source .fortran .free meta .statement .control .if .fortran meta .statement .control .stop .fortran keyword .other .concatination .fortran
258258# ^ source .fortran .free meta .statement .control .if .fortran meta .statement .control .stop .fortran string .quoted .double .fortran punctuation .definition .string .begin .fortran
259259# ^ source .fortran .free meta .statement .control .if .fortran meta .statement .control .stop .fortran string .quoted .double .fortran
260- # ^ source .fortran .free meta .statement .control .if .fortran meta .statement .control .stop .fortran string .quoted .double .fortran punctuation .definition .string .end .fortran
260+ # ^ source .fortran .free meta .statement .control .if .fortran meta .statement .control .stop .fortran string .quoted .double .fortran punctuation .definition .string .end .fortran
261+ >
262+ > ! do loop
263+ #^ source .fortran .free comment .line .fortran
264+ # ^^^^^^^^ source .fortran .free comment .line .fortran
265+ > do i = 1 , 10
266+ #^^ source .fortran .free meta .block .do .unlabeled .fortran keyword .control .do .fortran
267+ # ^ source .fortran .free meta .block .do .unlabeled .fortran meta .loop - control .fortran
268+ # ^ source .fortran .free meta .block .do .unlabeled .fortran meta .loop - control .fortran meta .parameter .fortran
269+ # ^ source .fortran .free meta .block .do .unlabeled .fortran meta .loop - control .fortran
270+ # ^ source .fortran .free meta .block .do .unlabeled .fortran meta .loop - control .fortran keyword .operator .assignment .fortran
271+ # ^ source .fortran .free meta .block .do .unlabeled .fortran meta .loop - control .fortran
272+ # ^ source .fortran .free meta .block .do .unlabeled .fortran meta .loop - control .fortran constant .numeric .fortran
273+ # ^^ source .fortran .free meta .block .do .unlabeled .fortran meta .loop - control .fortran
274+ # ^^ source .fortran .free meta .block .do .unlabeled .fortran meta .loop - control .fortran constant .numeric .fortran
275+ > end do
276+ #^^^^^^ source .fortran .free meta .block .do .unlabeled .fortran keyword .control .enddo .fortran
277+ >
278+ > ! labelled do loop
279+ #^ source .fortran .free comment .line .fortran
280+ # ^^^^^^^^^^^^^^^^^ source .fortran .free comment .line .fortran
281+ > label8 : do i = 1 , 10
282+ #^^^^^^^ source .fortran .free
283+ # ^ source .fortran .free meta .named - construct .fortran .modern
284+ # ^^ source .fortran .free meta .named - construct .fortran .modern meta .block .do .unlabeled .fortran keyword .control .do .fortran
285+ # ^ source .fortran .free meta .named - construct .fortran .modern meta .block .do .unlabeled .fortran meta .loop - control .fortran
286+ # ^ source .fortran .free meta .named - construct .fortran .modern meta .block .do .unlabeled .fortran meta .loop - control .fortran meta .parameter .fortran
287+ # ^ source .fortran .free meta .named - construct .fortran .modern meta .block .do .unlabeled .fortran meta .loop - control .fortran
288+ # ^ source .fortran .free meta .named - construct .fortran .modern meta .block .do .unlabeled .fortran meta .loop - control .fortran keyword .operator .assignment .fortran
289+ # ^ source .fortran .free meta .named - construct .fortran .modern meta .block .do .unlabeled .fortran meta .loop - control .fortran
290+ # ^ source .fortran .free meta .named - construct .fortran .modern meta .block .do .unlabeled .fortran meta .loop - control .fortran constant .numeric .fortran
291+ # ^^ source .fortran .free meta .named - construct .fortran .modern meta .block .do .unlabeled .fortran meta .loop - control .fortran
292+ # ^^ source .fortran .free meta .named - construct .fortran .modern meta .block .do .unlabeled .fortran meta .loop - control .fortran constant .numeric .fortran
293+ > end do label8
294+ #^^^^^^ source .fortran .free meta .named - construct .fortran .modern meta .block .do .unlabeled .fortran keyword .control .enddo .fortran
295+ # ^ source .fortran .free meta .named - construct .fortran .modern
296+ # ^^^^^^ source .fortran .free meta .label .end .name .fortran
297+ >
298+ >
0 commit comments