mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-11 04:14:31 +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>
PR libfortran/31922

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;