gcc/testsuite/gm2/extensions/asm/pass/fooasm.mod

MODULE fooasm ;

VAR
   x: INTEGER ;

PROCEDURE test ;
BEGIN
   ASM("" : : "m"(x))
END test ;

BEGIN
   test
END fooasm.