diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-17 08:39:32 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-17 08:39:32 +0000 |
| commit | dd1803df3b2e91b53896da6ec13ac7a3bb782ccd (patch) | |
| tree | 19fb736fd9a917500a93c71edfce4561975e9cb9 /libgfortran | |
| parent | 7e0311aec8e6ab97a323f24623f2d0da6bb2d779 (diff) | |
| download | gcc-dd1803df3b2e91b53896da6ec13ac7a3bb782ccd.tar.gz | |
2007-05-14 Tobias Burnus <burnus@net-b.de>
PR fortran/31917
* runtime/environ.c (mark_range): Fix setting default convert unit.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124787 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/runtime/environ.c | 16 |
2 files changed, 19 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 531787f3289..6d3e78e360f 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2007-05-17 Tobias Burnus <burnus@net-b.de> + + PR fortran/31917 + * runtime/environ.c (mark_range): Fix setting default convert unit. + 2007-05-15 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libfortran/31922 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; |