diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-09-26 06:15:21 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-09-26 06:15:21 +0000 |
| commit | 5e1bdeb75f6f1f724a5e046c4ac39254dbf8ab0f (patch) | |
| tree | b78c1d79096d39ee4168b372a1b0b3cc9e8d38b0 /gcc | |
| parent | e7b012c0443aa04b8b128e64fa1a5e193c8cc340 (diff) | |
| download | gcc-5e1bdeb75f6f1f724a5e046c4ac39254dbf8ab0f.zip gcc-5e1bdeb75f6f1f724a5e046c4ac39254dbf8ab0f.tar.gz gcc-5e1bdeb75f6f1f724a5e046c4ac39254dbf8ab0f.tar.bz2 | |
re PR fortran/37498 (Incorrect array value returned - 4.3 ABI Broken)
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/ioparm.def | 1 | ||||
| -rw-r--r-- | gcc/fortran/trans-io.c | 2 |
3 files changed, 7 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 16ed9e9..389f8fa 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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 diff --git a/gcc/fortran/ioparm.def b/gcc/fortran/ioparm.def index ee3f6b2..deb1b98 100644 --- a/gcc/fortran/ioparm.def +++ b/gcc/fortran/ioparm.def @@ -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) diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index fdc517a..af46ea2 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -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); |