diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-07 18:57:43 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-07 18:57:43 +0000 |
| commit | 82b12af70c15f25bf9c1d3b761069473ee169888 (patch) | |
| tree | e2b0715b914cdb097c8b193771d9487252906c00 /libjava/classpath/lib/java/sql/Ref.class | |
| parent | 12eacd7e3469608e142cb3e1e6d9a7505473fd0f (diff) | |
| download | ppe42-gcc-82b12af70c15f25bf9c1d3b761069473ee169888.tar.gz ppe42-gcc-82b12af70c15f25bf9c1d3b761069473ee169888.zip | |
2009-05-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/40008
* gfortran.h (gfc_open): Add newunit expression to structure.
* io.c (io_tag): Add new unit tag and fix whitespace.
(match_open_element): Add matching for newunit.
(gfc_free_open): Free the newunit expression.
(gfc_resolve_open): Add newunit to resolution and check constraints.
(gfc_resolve_close): Add check for non-negative unit.
(gfc_resolve_filepos): Likewise.
(gfc_resolve_dt): Likewise.
* trans-io.c (set_parameter_value): Build runtime checks for unit
numbers within range of kind=4 integer. (gfc_trans_open) Set the
newunit parameter.
* ioparm.def (IOPARM): Define the newunit parameter as a pointer
to GFC_INTEGER_4, pint4.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148252 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libjava/classpath/lib/java/sql/Ref.class')
0 files changed, 0 insertions, 0 deletions
