$ fortran/object=z sys$input
      PROGRAM Z
      INTEGER*8 TWO,THREE,RES
      DATA TWO/2000000/
      DATA THREE/3000000/
      RES=TWO+THREE
      RES=TWO*RES
      WRITE(*,*) RES
      END
$
$ link z
$ run z
$ cc/object=z sys$input
#include <stdio.h>
#include <ints.h>

main()
{
   int64 two = {2000000};
   int64 three = {3000000};
   union {int64 q;long l[2];} res;
   res.q=two+three;
   res.q=two*res.q;
   printf("%d %d\n",res.l[0],res.l[1]);
}
$
$ link z
$ run z
$ exit
