예제 #1
0
파일: fgetc_.c 프로젝트: janfj/dd-wrt 
integer
G77_fget_0 (char *c, const ftnlen Lc)
{
    integer five = 5;

    return G77_fgetc_0 (&five, c, Lc);
}
예제 #2
0
파일: f2cext.c 프로젝트: akbertram/egcs-jvm 
integer fgetc_ (const integer *lunit, char *c, ftnlen Lc) {
    extern integer G77_fgetc_0 (const integer *lunit, char *c, ftnlen Lc);
    return G77_fgetc_0 (lunit, c, Lc);
}