gcc/testsuite/gm2/examples/callingC/run/pass/m.mod

   1 MODULE m ;
   2
   3 IMPORT c ;
   4 FROM SYSTEM IMPORT THROW, ADDRESS ;
   5
   6 PROCEDURE foo (file : ARRAY OF CHAR) : ADDRESS ;
   7 BEGIN
   8    IF c.bar(file, 'rb')
   9    THEN
  10    END ;
  11    RETURN NIL ;
  12 END foo ;
  13
  14
  15 VAR
  16    s: ADDRESS ;
  17 BEGIN
  18    s := foo('test.bmp')
  19 END m.