]>
gcc.gnu.org Git - gcc.git/blob - gcc/f/runtime/libF77/system_.c
1 /* f77 interface to system routine */
6 extern char *F77_aloc();
9 G77_system_0 (s
, n
) register char *s
; ftnlen n
;
15 extern char *F77_aloc(ftnlen
, char*);
18 G77_system_0 (register char *s
, ftnlen n
)
21 char buff0
[256], *buff
;
22 register char *bp
, *blast
;
25 buff
= bp
= n
< sizeof(buff0
)
26 ? buff0
: F77_aloc(n
+1, "system_");
29 while(bp
< blast
&& *s
)
This page took 0.037713 seconds and 5 git commands to generate.