-/* Copyright (C) 2009
+/* Copyright (C) 2009, 2010
Free Software Foundation, Inc.
Contributed by Janne Blomqvist
internal_proto(mem_alloc_w);
extern char * mem_alloc_r (stream *, int *);
-internal_proto(mem_alloc_w);
+internal_proto(mem_alloc_r);
extern stream *input_stream (void);
internal_proto(input_stream);
extern int file_exists (const char *file, gfc_charlen_type file_len);
internal_proto(file_exists);
+extern GFC_IO_INT file_size (const char *file, gfc_charlen_type file_len);
+internal_proto(file_size);
+
extern const char *inquire_sequential (const char *, int);
internal_proto(inquire_sequential);