FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
Download patch file Download diff file Expand all files Collapse all files

16
libgfortran/runtime/environ.c
View file

@ -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;