diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-05-17 10:39:32 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-05-17 10:39:32 +0200 |
| commit | 2d24f24b97c347da705188b5f96dfcacd76b2d4c (patch) | |
| tree | 19fb736fd9a917500a93c71edfce4561975e9cb9 /libgfortran/runtime/environ.c | |
| parent | b02b9b53ec39cfd36e27424c4c07be5880ec393a (diff) | |
| download | gcc-2d24f24b97c347da705188b5f96dfcacd76b2d4c.tar.gz | |
re PR fortran/31917 ([4.1 only] GFORTRAN_CONVERT_UNIT is ignored)
2007-05-14 Tobias Burnus <burnus@net-b.de>
PR fortran/31917
* runtime/environ.c (mark_range): Fix setting default convert unit.
From-SVN: r124787
Diffstat (limited to 'libgfortran/runtime/environ.c')
| -rw-r--r-- | libgfortran/runtime/environ.c | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/libgfortran/runtime/environ.c b/libgfortran/runtime/environ.c index c9c1e27f3a2..388383c9a81 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; |