• Cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. "do while" loop.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 boolean-c    PIC x.
   88 c-true    PIC x VALUE 't'.
   88 c-false   PIC x VALUE 'f'.
PROCEDURE DIVISION.
    PERFORM WITH TEST AFTER UNTIL c-false
       PERFORM somthing
    END-PERFORM   
STOP RUN.

• Ada

loop
   stuff();
   if not c then
      exit;
   end if;
end loop;

• C

do {
	someThing();
	someOtherThing();
} while(c);

• C

do
{
  stuff()
} while ( c ) ;

• Clojure

(loop []
  (do something)
  (when c
    (recur)))

• C++

do {
  someThing();
  someOtherThing();
} while(c);

• C#

do
{
    stuff();
} while(c);

• D

do
{
    something;
    somethingElse;
}
while (c);

• Dart

do {
  someThing();
  someOtherThing();
} while(c);

• Elixir

def main(condition) do
  case condition do
    true -> main(condition)
    false -> nil
  end
end

• Erlang

do_while(Block, C) ->
  case C(Block()) of
    true -> do_while(Block, C);
    false -> ok
  end.

• Fortran

do
  call do_something
  if (.not. c) exit
end do

• Go

for{
   someThing()
   someOtherThing()
   if !c {
     break
   }
}

• Go

for done := false; !done; {
	someThing()
	someOtherThing()
	done = !c()
}

• Haskell

doowhile c b = do a <- b; if c a
                          then doowhile c b
                          else return a

doowhile (=="") getLine
gg

• JS

do {
   something();
} while (c);

• Java

do {
	someThing();
	someOtherThing();
} while(c);

• Java

do f();
while (c);

• Lisp

(loop do (something)
      while c)

• Lua

repeat
	someThing()
	someOtherThing()
until not c

• Obj-C

do ... while(c);

• PHP

do {
    echo '.';
} while ($c);

• Pascal

repeat
  Something;
  SomethingElse;
until not c;

• Pascal

repeat
  Something;
  SomethingElse;
until
  c;

• Perl

do {
    doSomeStuff();
} while(c);

• Python

while True:
    do_something()
    if not c:
        break

• Ruby

begin
  # code
end while c

• Rust

while {
   doStuff();
   c
} { /* EMPTY */ }

• Rust

loop {
    doStuff();
    if !c { break; }
}

• Scala

do {
  someThing()
  someOtherThing()
} while (c)

• Smalltalk

[
    " do something "
    c
] whileTrue: [].

• VB

Do 
    SomeThing()
    SomeOtherThing()
Loop While c