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

re PR fortran/37498 (Incorrect array value returned - 4.3 ABI Broken)

Browse source 
2008-09-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org

	PR fortran/37498
	* trans-io.c (build_dt): Revert previous patch..
	* ioparm.def: Delete IOPARM_dt_f2003.

From-SVN: r140683
This commit is contained in:
Jerry DeLisle 2008-09-26 06:15:21 +00:00
parent e7b012c044
commit 5e1bdeb75f
3 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View file

@ -1,3 +1,9 @@
2008-09-25 Jerry DeLisle <jvdelisle@gcc.gnu.org
PR fortran/37498
* trans-io.c (build_dt): Revert previous patch..
* ioparm.def: Delete IOPARM_dt_f2003.
2008-09-25 Tobias Burnus <burnus@net-b.de>
PR fortran/37504

1
gcc/fortran/ioparm.def
View file

@ -93,4 +93,3 @@ IOPARM (dt, pad, 1 << 22, char1)
IOPARM (dt, round, 1 << 23, char2)
IOPARM (dt, sign, 1 << 24, char1)
IOPARM (dt, u, 0, pad)
#define IOPARM_dt_f2003 (1 << 25)

2
gcc/fortran/trans-io.c
View file

@ -1641,7 +1641,7 @@ build_dt (tree function, gfc_code * code)
tree tmp, var;
gfc_expr *nmlname;
gfc_namelist *nml;
unsigned int mask = IOPARM_dt_f2003;
unsigned int mask = 0;
gfc_start_block (&block);
gfc_init_block (&post_block);