From 2d24f24b97c347da705188b5f96dfcacd76b2d4c Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Thu, 17 May 2007 10:39:32 +0200 Subject: re PR fortran/31917 ([4.1 only] GFORTRAN_CONVERT_UNIT is ignored) 2007-05-14 Tobias Burnus PR fortran/31917 * runtime/environ.c (mark_range): Fix setting default convert unit. From-SVN: r124787 --- libgfortran/runtime/environ.c | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) (limited to 'libgfortran/runtime') diff --git a/libgfortran/runtime/environ.c b/libgfortran/runtime/environ.c index c9c1e27..388383c 100644 --- a/libgfortran/runtime/environ.c +++ b/libgfortran/runtime/environ.c @@ -868,14 +868,13 @@ mark_range (int unit1, int unit2) static int do_parse (void) { - int tok, def; + int tok; int unit1; int continue_ulist; char *start; unit_count = 0; - def = 0; start = p; /* Parse the string. First, let's look for a default. */ @@ -930,6 +929,7 @@ do_parse (void) break; case END: + def = endian; goto end; break; @@ -946,6 +946,18 @@ do_parse (void) tok = next_token (); switch (tok) { + case NATIVE: + if (next_token () != ':') + goto error; + endian = CONVERT_NATIVE; + break; + + case SWAP: + if (next_token () != ':') + goto error; + endian = CONVERT_SWAP; + break; + case LITTLE: if (next_token () != ':') goto error; -- cgit v1.1