Home
last modified time | relevance | path

Searched refs:lcl_fp (Results 1 – 2 of 2) sorted by relevance

/dports/math/libpgmath/flang-d07daf3/runtime/flang/
H A Dopen.c64 FILE *lcl_fp; /* local file fp */ in __fortio_open() local
72 lcl_fp = NULL; in __fortio_open()
193 (lcl_fp = __io_fopen(filename, perms)) == NULL) { in __fortio_open()
204 if ((lcl_fp = __io_fopen(filename, perms)) == NULL) in __fortio_open()
211 if ((lcl_fp = __io_fopen(filename, perms)) == NULL) in __fortio_open()
221 if ((lcl_fp = __io_fopen(filename, perms)) == NULL) { in __fortio_open()
226 if ((lcl_fp = __io_fopen(filename, perms)) == NULL) in __fortio_open()
245 f->fp = lcl_fp; in __fortio_open()
246 assert(lcl_fp != NULL); in __fortio_open()
280 len = (seekoffx_t)__io_ftellx(lcl_fp); in __fortio_open()
[all …]
H A Dinquire.c339 FILE *lcl_fp; in inquire() local
342 lcl_fp = f->fp; in inquire()
361 if ((lcl_fp = __io_fopen(tmpnam, "rb")) == NULL) in inquire()
363 else if (__io_fseek(lcl_fp, 0L, SEEK_END) != 0) in inquire()
366 *size = __io_ftellx(lcl_fp); in inquire()
367 if (lcl_fp) in inquire()
368 (void)__io_fclose(lcl_fp); in inquire()