diff options
Diffstat (limited to 'libgfortran/io/lock.c')
| -rw-r--r-- | libgfortran/io/lock.c | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/libgfortran/io/lock.c b/libgfortran/io/lock.c index 8daf1aa57c3..f0f8ddf4c0f 100644 --- a/libgfortran/io/lock.c +++ b/libgfortran/io/lock.c @@ -24,9 +24,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" #include "io.h" -st_parameter ioparm; -namelist_info * ionml; -global_t g; +st_parameter ioparm = { }; +iexport_data(ioparm); + +namelist_info *ionml = 0; +global_t g = { }; /* library_start()-- Called with a library call is entered. */ @@ -37,11 +39,10 @@ library_start (void) if (g.in_library) internal_error ("Recursive library calls not allowed"); -/* The in_library flag indicates whether we're currently processing a - * library call. Some calls leave immediately, but READ and WRITE - * processing return control to the caller but are still considered to - * stay within the library. */ - + /* The in_library flag indicates whether we're currently processing a + library call. Some calls leave immediately, but READ and WRITE + processing return control to the caller but are still considered to + stay within the library. */ g.in_library = 1; if (ioparm.iostat != NULL && ioparm.library_return == LIBRARY_OK) @@ -52,7 +53,7 @@ library_start (void) /* library_end()-- Called when a library call is complete in order to - * clean up for the next call. */ + clean up for the next call. */ void library_end (void) |