mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-11 07:34:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/31917 ([4.1 only] GFORTRAN_CONVERT_UNIT is ignored)

Browse Source 
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
This commit is contained in:
Tobias Burnus 2007-05-17 10:39:32 +02:00 committed by Tobias Burnus
parent b02b9b53ec
commit 2d24f24b97
2 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -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> 2007-05-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/31922 PR libfortran/31922

16
libgfortran/runtime/environ.c
View File

@ -868,14 +868,13 @@ mark_range (int unit1, int unit2)
static int static int
do_parse (void) do_parse (void)
{ {
int tok, def; int tok;
int unit1; int unit1;
int continue_ulist; int continue_ulist;
char *start; char *start;
unit_count = 0; unit_count = 0;
def = 0;
start = p; start = p;
/* Parse the string. First, let's look for a default. */ /* Parse the string. First, let's look for a default. */
@ -930,6 +929,7 @@ do_parse (void)
break; break;
case END: case END:
def = endian;
goto end; goto end;
break; break;
@ -946,6 +946,18 @@ do_parse (void)
tok = next_token (); tok = next_token ();
switch (tok) 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: case LITTLE:
if (next_token () != ':') if (next_token () != ':')
goto error; goto error;