gcc/testsuite/gdc.test/runnable/test17.d

   1
   2 import core.stdc.stdio: fflush, stdout;
   3
   4 extern(C) int printf(const char*, ...);
   5
   6 void ulog(string s)
   7 {
   8     printf("%.*s\n",cast(int)s.length, s.ptr);
   9     fflush(stdout);
  10 }
  11
  12 int open()
  13 {
  14     char *s;
  15     char[2000] abs;
  16     char[100] qu;
  17     int a;
  18     ulog("reaches this only 9 times of 10!\n");
  19     return 0;
  20 }
  21
  22
  23 int yhenda()
  24 {
  25     char[2200] MEM;
  26     int a;
  27     ulog("point(2.1) \n");
  28     open();
  29     ulog("point(2.2) \n");
  30     return 0;
  31 }
  32
  33
  34 int main()
  35 {
  36     printf("Content-type: text/html\n\n");
  37     fflush(stdout);
  38     ulog("point(1.1)\n");
  39     yhenda();
  40     ulog("point(1.2)\n");
  41     return 0;
  42 }
  43