7 static integer memfailure
= 3;
10 extern char *malloc();
11 extern void G77_exit_0 ();
14 F77_aloc(Len
, whence
) integer Len
; char *whence
;
20 extern void G77_exit_0 (integer
*);
26 F77_aloc(integer Len
, char *whence
)
30 unsigned int uLen
= (unsigned int) Len
; /* for K&R C */
32 if (!(rv
= (char*)malloc(uLen
))) {
33 fprintf(stderr
, "malloc(%u) failure in %s\n",
35 G77_exit_0 (&memfailure
);