2016-08-31 19:45:26 +02:00
|
|
|
|
2016-08-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
|
|
PR libgfortran/77393
|
|
|
|
|
|
* io/write.c (kind_from_size): New function to calculate required buffer
|
|
|
|
|
|
size based on kind type. (select_buffer, select_string): Use new
|
|
|
|
|
|
function. (write_float_0, write_real, write_real_g0, write_complex):
|
|
|
|
|
|
Adjust calls to pass parameters needed by new function.
|
|
|
|
|
|
|
[multiple changes]
2016-08-31 Paul Thomas <pault@gcc.gnu.org>
Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/48298
* decl.c (access_attr_decl): Include case INTERFACE_DTIO as
appropriate.
* gfortran.h : Add INTRINSIC_FORMATTED and
INTRINSIC_UNFORMATTED to gfc_intrinsic_op. Add INTERFACE_DTIO
to interface type. Add new enum 'dtio_codes'. Add bitfield
'has_dtio_procs' to symbol_attr. Add prototypes
'gfc_check_dtio_interfaces' and 'gfc_find_specific_dtio_proc'.
* interface.c (dtio_op): New function.
(gfc_match_generic_spec): Match generic DTIO interfaces.
(gfc_match_interface): Treat DTIO interfaces in the same way as
(gfc_current_interface_head): Add INTERFACE_DTIO appropriately.
(check_dtio_arg_TKR_intent): New function.
(check_dtio_interface1): New function.
(gfc_check_dtio_interfaces): New function.
(gfc_find_specific_dtio_proc): New function.
* io.c : Add FMT_DT to format_token.
(format_lex): Handle DTIO formatting.
* match.c (gfc_op2string): Add DTIO operators.
* resolve.c (derived_inaccessible): Ignore pointer components
to enclosing derived type.
(resolve_transfer): Resolve transfers that involve DTIO.
procedures. Find the specific subroutine for the transfer and
use its existence to over-ride some of the constraints on
derived types. If the transfer is recursive, require that the
subroutine be so qualified.
(dtio_procs_present): New function.
(resolve_fl_namelist): Remove inhibition of polymorphic objects
in namelists if DTIO read and write subroutines exist. Likewise
for derived types.
(resolve_types): Invoke 'gfc_verify_dtio_procedures'.
* symbol.c : Set 'dtio_procs' using 'minit'.
* trans-decl.c (gfc_finish_var_decl): If a derived-type/class
object is associated with DTIO procedures, make it TREE_STATIC.
* trans-expr.c (gfc_get_vptr_from_expr): If the expression
drills down to a PARM_DECL, extract the vptr correctly.
(gfc_conv_derived_to_class): Check 'info' in the test for
'useflags'. If the se expression exists and is a pointer, use
it as the class _data.
* trans-io.c : Add IOCALL_X_DERIVED to iocall and the function
prototype. Likewise for IOCALL_SET_NML_DTIO_VAL.
(set_parameter_tree): Renamed from 'set_parameter_const', now
returns void and has new tree argument. Calls modified to match
new interface.
(transfer_namelist_element): Transfer DTIO procedure pointer
and vpointer using the new function IOCALL_SET_NML_DTIO_VAL.
(get_dtio_proc): New function.
(transfer_expr): Add new argument for the vptr field of class
objects. Add the code to call the specific DTIO proc, convert
derived types to class and call IOCALL_X_DERIVED.
(trans_transfer): Add BT_CLASS to structures for treatment by
the scalarizer. Obtain the vptr for the dynamic type, both for
scalar and array transfer.
2016-08-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
Paul Thomas <pault@gcc.gnu.org>
PR libgfortran/48298
* gfortran.map : Flag _st_set_nml_dtio_var and
_gfortran_transfer_derived.
* io/format.c (format_lex): Detect DTIO formatting.
(parse_format_list): Parse the DTIO format.
(next_format): Include FMT_DT.
* io/format.h : Likewise. Add structure 'udf' to structure
'fnode' to carry the IOTYPE string and the 'vlist'.
* io/io.h : Add prototypes for the two types of DTIO subroutine
and a typedef for gfc_class. Also, add to 'namelist_type'
fields for the pointer to the DTIO procedure and the vtable.
Add fields to struct st_parameter_dt for pointers to the two
types of DTIO subroutine. Add to gfc_unit DTIO specific fields.
(internal_proto): Add prototype for 'read_user_defined' and
'write_user_defined'.
* io/list_read.c (check_buffers): Use the 'current_unit' field.
(unget_char): Likewise.
(eat_spaces): Likewise.
(list_formatted_read_scalar): For case BT_CLASS, call the DTIO
procedure.
(nml_get_obj_data): Likewise when DTIO procedure is present,.
* io/transfer.c : Export prototypes for 'transfer_derived' and
'transfer_derived_write'.
(unformatted_read): For case BT_CLASS, call the DTIO procedure.
(unformatted_write): Likewise.
(formatted_transfer_scalar_read): Likewise.
(formatted_transfer_scalar_write: Likewise.
(transfer_derived): New function.
(data_transfer_init): Set last_char if no child_dtio.
(finalize_transfer): Return if child_dtio set.
(st_write_done): Add condition for child_dtio not set.
Add extra arguments for st_set_nml_var prototype.
(set_nml_var): New function that contains the contents of the
old version of st_set_nml_var. Also sets the 'dtio_sub' and
'vtable' fields of the 'nml' structure.
(st_set_nml_var): Now just calls set_nml_var with 'dtio_sub'
and 'vtable' NULL.
(st_set_nml_dtio_var): New function that calls set_nml_var.
* io/unit.c (get_external_unit): If the found unit child_dtio
is non zero, don't do any mutex locking/unlocking. Just
return the unit.
* io/unix.c (tempfile_open): Revert to C style comment.
* io/write.c (list_formatted_write_scalar): Do the DTIO call.
(nml_write_obj): Add BT_CLASS and do the DTIO call.
2016-08-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
Paul Thomas <pault@gcc.gnu.org>
PR fortran/48298
* gfortran.dg/dtio_1.f90: New test.
* gfortran.dg/dtio_2.f90: New test.
* gfortran.dg/dtio_3.f90: New test.
* gfortran.dg/dtio_4.f90: New test.
* gfortran.dg/dtio_5.f90: New test.
* gfortran.dg/dtio_6.f90: New test.
* gfortran.dg/dtio_7.f90: New test.
* gfortran.dg/dtio_8.f90: New test.
* gfortran.dg/dtio_9.f90: New test.
* gfortran.dg/dtio_10.f90: New test.
From-SVN: r239880
2016-08-31 07:36:22 +02:00
|
|
|
|
2016-08-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
Paul Thomas <pault@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
|
|
PR libgfortran/48298
|
|
|
|
|
|
* gfortran.map : Flag _st_set_nml_dtio_var and
|
|
|
|
|
|
_gfortran_transfer_derived.
|
|
|
|
|
|
* io/format.c (format_lex): Detect DTIO formatting.
|
|
|
|
|
|
(parse_format_list): Parse the DTIO format.
|
|
|
|
|
|
(next_format): Include FMT_DT.
|
|
|
|
|
|
* io/format.h : Likewise. Add structure 'udf' to structure
|
|
|
|
|
|
'fnode' to carry the IOTYPE string and the 'vlist'.
|
|
|
|
|
|
* io/io.h : Add prototypes for the two types of DTIO subroutine
|
|
|
|
|
|
and a typedef for gfc_class. Also, add to 'namelist_type'
|
|
|
|
|
|
fields for the pointer to the DTIO procedure and the vtable.
|
|
|
|
|
|
Add fields to struct st_parameter_dt for pointers to the two
|
|
|
|
|
|
types of DTIO subroutine. Add to gfc_unit DTIO specific fields.
|
|
|
|
|
|
(internal_proto): Add prototype for 'read_user_defined' and
|
|
|
|
|
|
'write_user_defined'.
|
|
|
|
|
|
* io/list_read.c (check_buffers): Use the 'current_unit' field.
|
|
|
|
|
|
(unget_char): Likewise.
|
|
|
|
|
|
(eat_spaces): Likewise.
|
|
|
|
|
|
(list_formatted_read_scalar): For case BT_CLASS, call the DTIO
|
|
|
|
|
|
procedure.
|
|
|
|
|
|
(nml_get_obj_data): Likewise when DTIO procedure is present,.
|
|
|
|
|
|
* io/transfer.c : Export prototypes for 'transfer_derived' and
|
|
|
|
|
|
'transfer_derived_write'.
|
|
|
|
|
|
(unformatted_read): For case BT_CLASS, call the DTIO procedure.
|
|
|
|
|
|
(unformatted_write): Likewise.
|
|
|
|
|
|
(formatted_transfer_scalar_read): Likewise.
|
|
|
|
|
|
(formatted_transfer_scalar_write: Likewise.
|
|
|
|
|
|
(transfer_derived): New function.
|
|
|
|
|
|
(data_transfer_init): Set last_char if no child_dtio.
|
|
|
|
|
|
(finalize_transfer): Return if child_dtio set.
|
|
|
|
|
|
(st_write_done): Add condition for child_dtio not set.
|
|
|
|
|
|
Add extra arguments for st_set_nml_var prototype.
|
|
|
|
|
|
(set_nml_var): New function that contains the contents of the
|
|
|
|
|
|
old version of st_set_nml_var. Also sets the 'dtio_sub' and
|
|
|
|
|
|
'vtable' fields of the 'nml' structure.
|
|
|
|
|
|
(st_set_nml_var): Now just calls set_nml_var with 'dtio_sub'
|
|
|
|
|
|
and 'vtable' NULL.
|
|
|
|
|
|
(st_set_nml_dtio_var): New function that calls set_nml_var.
|
|
|
|
|
|
* io/unit.c (get_external_unit): If the found unit child_dtio
|
|
|
|
|
|
is non zero, don't do any mutex locking/unlocking. Just
|
|
|
|
|
|
return the unit.
|
|
|
|
|
|
* io/unix.c (tempfile_open): Revert to C style comment.
|
|
|
|
|
|
* io/write.c (list_formatted_write_scalar): Do the DTIO call.
|
|
|
|
|
|
(nml_write_obj): Add BT_CLASS and do the DTIO call.
|
|
|
|
|
|
|
2016-08-29 21:09:57 +02:00
|
|
|
|
2016-08-29 Nathan Sidwell <nathan@acm.org>
|
|
|
|
|
|
|
|
|
|
|
|
* configure.ac (nvptx-*): Hardwire newlib.
|
|
|
|
|
|
* configure: Rebuilt.
|
|
|
|
|
|
|
2016-08-19 16:19:51 +02:00
|
|
|
|
2016-08-19 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
2016-08-29 21:09:57 +02:00
|
|
|
|
* intrinsics/random.c (xor_keys): New array with "secret" keys.
|
|
|
|
|
|
(scramble_seed): XOR given seed with xor_keys array rather than
|
|
|
|
|
|
shuffling bytes.
|
|
|
|
|
|
(unscramble_seed): Remove function.
|
|
|
|
|
|
(random_seed_i4): Use new scramble_seed.
|
|
|
|
|
|
(random_seed_i8): Likewise.
|
2016-08-19 16:19:51 +02:00
|
|
|
|
|
|
|
|
|
|
2016-08-19 Janne Blomqvist <jb@gcc.gnu.org>
|
2016-08-19 16:12:32 +02:00
|
|
|
|
|
2016-08-29 21:09:57 +02:00
|
|
|
|
* intrinsics/random.c (master_init): New variable.
|
|
|
|
|
|
(init_rand_state): Move below getosrandom (), maybe initialize
|
|
|
|
|
|
master_state.
|
|
|
|
|
|
(random_seed_i4): If called with no arguments, set master_init to
|
|
|
|
|
|
false, and reinitialize. If called with PUT=, set master_init to
|
|
|
|
|
|
true.
|
|
|
|
|
|
(random_seed_i8): Likewise.
|
2016-08-19 16:12:32 +02:00
|
|
|
|
|
2016-08-11 17:26:07 +02:00
|
|
|
|
2016-08-11 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
|
|
|
|
|
|
|
|
|
|
|
|
* intrinsics/random.c: Include <stdlib.h>.
|
|
|
|
|
|
|
2016-08-11 10:58:55 +02:00
|
|
|
|
2016-08-11 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
|
|
* intrinsics/random.c: Replace KISS with xorshift1024* using
|
|
|
|
|
|
per-thread state.
|
|
|
|
|
|
* runtime/main.c (init): Don't call random_seed_i4.
|
|
|
|
|
|
|
2016-07-22 11:58:50 +02:00
|
|
|
|
2016-07-22 Andre Vehreschild <vehre@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
|
|
* caf/libcaf.h: Add parameter stat to caf_get() and
|
|
|
|
|
|
caf_send()'s function prototypes.
|
|
|
|
|
|
* caf/single.c (_gfortran_caf_get): Implement reporting
|
|
|
|
|
|
error using stat instead of abort().
|
|
|
|
|
|
(_gfortran_caf_send): Same.
|
|
|
|
|
|
(_gfortran_caf_sendget): Use NULL for stat when calling
|
|
|
|
|
|
caf_send().
|
|
|
|
|
|
|
re PR libfortran/48852 (Invalid spaces in list-directed output of complex constants)
2016-06-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/48852
* io/write.c: Cleaned up whitespace.
(write_d, write_e, write_f, write_es, write_en): Use new helper function
write_float_0. (write_float_0): New helper function.
(get_precision, select_buffer, select_string, write_float_string): New
helper functions used in remaining float writing functions. Helper function
write_float_string now contains code for writing to kind=4 character
internal units.
(write_real): Modified to establish working buffers at this level and to
use new helper functions.
(write_real_g0): Likewise modified.
(write_complex): Likewise modified. Gets both float strings before
output so that final lengths can be determined which allows right
justifying the complex number with no intervening spaces.
* io/write_float.def (build_float_string): Renamed from previosly
output_float, modified to use buffers passed in from higher functions,
builds a null terminated string of the floating point value. Character
kind=4 code eliminated.
(write_infnan): Likewise modified to use incoming buffers and eliminate
kind=4 related code.
(OUTPUT_FLOAT_FMT_G): Deleted, functionality moved into FORMAT_FLOAT.
(FORMAT_FLOAT): Renamed macro from WRITE_FLOAT. Use build_float_string.
(get_float_string): Renamed from write_float, uses FORMAT_FLOAT macro.
Buffer allocation removed, now at higher level.
PR libgfortran/48852
* gfortran.dg/char4_iunit_1.f03: Update test.
* gfortran.dg/f2003_io_5.f03: Update test.
* gfortran.dg/real_const_3.f90: Update test.
From-SVN: r237735
2016-06-23 17:58:05 +02:00
|
|
|
|
2016-06-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
|
|
PR libgfortran/48852
|
|
|
|
|
|
* io/write.c: Cleaned up whitespace.
|
2016-08-29 21:09:57 +02:00
|
|
|
|
(write_d, write_e, write_f, write_es, write_en): Use new helper
|
|
|
|
|
|
function write_float_0.
|
|
|
|
|
|
(write_float_0): New helper function.
|
re PR libfortran/48852 (Invalid spaces in list-directed output of complex constants)
2016-06-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/48852
* io/write.c: Cleaned up whitespace.
(write_d, write_e, write_f, write_es, write_en): Use new helper function
write_float_0. (write_float_0): New helper function.
(get_precision, select_buffer, select_string, write_float_string): New
helper functions used in remaining float writing functions. Helper function
write_float_string now contains code for writing to kind=4 character
internal units.
(write_real): Modified to establish working buffers at this level and to
use new helper functions.
(write_real_g0): Likewise modified.
(write_complex): Likewise modified. Gets both float strings before
output so that final lengths can be determined which allows right
justifying the complex number with no intervening spaces.
* io/write_float.def (build_float_string): Renamed from previosly
output_float, modified to use buffers passed in from higher functions,
builds a null terminated string of the floating point value. Character
kind=4 code eliminated.
(write_infnan): Likewise modified to use incoming buffers and eliminate
kind=4 related code.
(OUTPUT_FLOAT_FMT_G): Deleted, functionality moved into FORMAT_FLOAT.
(FORMAT_FLOAT): Renamed macro from WRITE_FLOAT. Use build_float_string.
(get_float_string): Renamed from write_float, uses FORMAT_FLOAT macro.
Buffer allocation removed, now at higher level.
PR libgfortran/48852
* gfortran.dg/char4_iunit_1.f03: Update test.
* gfortran.dg/f2003_io_5.f03: Update test.
* gfortran.dg/real_const_3.f90: Update test.
From-SVN: r237735
2016-06-23 17:58:05 +02:00
|
|
|
|
(get_precision, select_buffer, select_string, write_float_string): New
|
2016-08-29 21:09:57 +02:00
|
|
|
|
helper functions used in remaining float writing functions.
|
|
|
|
|
|
Helper function write_float_string now contains code for writing
|
|
|
|
|
|
to kind=4 character internal units.
|
|
|
|
|
|
(write_real): Modified to establish working buffers at this level
|
|
|
|
|
|
and to use new helper functions.
|
re PR libfortran/48852 (Invalid spaces in list-directed output of complex constants)
2016-06-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/48852
* io/write.c: Cleaned up whitespace.
(write_d, write_e, write_f, write_es, write_en): Use new helper function
write_float_0. (write_float_0): New helper function.
(get_precision, select_buffer, select_string, write_float_string): New
helper functions used in remaining float writing functions. Helper function
write_float_string now contains code for writing to kind=4 character
internal units.
(write_real): Modified to establish working buffers at this level and to
use new helper functions.
(write_real_g0): Likewise modified.
(write_complex): Likewise modified. Gets both float strings before
output so that final lengths can be determined which allows right
justifying the complex number with no intervening spaces.
* io/write_float.def (build_float_string): Renamed from previosly
output_float, modified to use buffers passed in from higher functions,
builds a null terminated string of the floating point value. Character
kind=4 code eliminated.
(write_infnan): Likewise modified to use incoming buffers and eliminate
kind=4 related code.
(OUTPUT_FLOAT_FMT_G): Deleted, functionality moved into FORMAT_FLOAT.
(FORMAT_FLOAT): Renamed macro from WRITE_FLOAT. Use build_float_string.
(get_float_string): Renamed from write_float, uses FORMAT_FLOAT macro.
Buffer allocation removed, now at higher level.
PR libgfortran/48852
* gfortran.dg/char4_iunit_1.f03: Update test.
* gfortran.dg/f2003_io_5.f03: Update test.
* gfortran.dg/real_const_3.f90: Update test.
From-SVN: r237735
2016-06-23 17:58:05 +02:00
|
|
|
|
(write_real_g0): Likewise modified.
|
|
|
|
|
|
(write_complex): Likewise modified. Gets both float strings before
|
|
|
|
|
|
output so that final lengths can be determined which allows right
|
|
|
|
|
|
justifying the complex number with no intervening spaces.
|
|
|
|
|
|
* io/write_float.def (build_float_string): Renamed from previosly
|
|
|
|
|
|
output_float, modified to use buffers passed in from higher functions,
|
|
|
|
|
|
builds a null terminated string of the floating point value. Character
|
|
|
|
|
|
kind=4 code eliminated.
|
|
|
|
|
|
(write_infnan): Likewise modified to use incoming buffers and eliminate
|
|
|
|
|
|
kind=4 related code.
|
|
|
|
|
|
(OUTPUT_FLOAT_FMT_G): Deleted, functionality moved into FORMAT_FLOAT.
|
|
|
|
|
|
(FORMAT_FLOAT): Renamed macro from WRITE_FLOAT. Use build_float_string.
|
|
|
|
|
|
(get_float_string): Renamed from write_float, uses FORMAT_FLOAT macro.
|
|
|
|
|
|
Buffer allocation removed, now at higher level.
|
|
|
|
|
|
|
2016-05-24 08:11:21 +02:00
|
|
|
|
2016-05-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
2016-05-24 08:16:00 +02:00
|
|
|
|
PR libgfortran/71123
|
2016-05-24 08:11:21 +02:00
|
|
|
|
* io/list_read (eat_spaces): Eat '\r' as part of spaces.
|
|
|
|
|
|
|
2016-04-19 21:24:28 +02:00
|
|
|
|
2016-04-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
|
|
PR libgfortran/70684
|
|
|
|
|
|
* io/list_read (check_buffers): Add '\r' to check for end of line.
|
|
|
|
|
|
|
2016-03-30 22:47:45 +02:00
|
|
|
|
2016-03-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
Dominique d'Humieres <dominiq@lps.ens.fr>
|
|
|
|
|
|
|
|
|
|
|
|
PR libgfortran/70235
|
|
|
|
|
|
* io/write_float.def: Fix PF format for negative values of the scale
|
|
|
|
|
|
factor.
|
|
|
|
|
|
|
2016-03-28 11:05:01 +02:00
|
|
|
|
2016-03-28 Alessandro Fanfarillo <fanfarillo.gcc@gmail.com>
|
|
|
|
|
|
|
|
|
|
|
|
* caf/libcaf.h: caf_stop_numeric and caf_stop_str prototype.
|
|
|
|
|
|
* caf/single.c: _gfortran_caf_stop_numeric and
|
|
|
|
|
|
_gfortran_caf_stop_str implementation.
|
|
|
|
|
|
|
2016-02-23 19:38:31 +01:00
|
|
|
|
2016-02-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
|
|
PR libgfortran/69456
|
|
|
|
|
|
* io/list_read.c (read_real): If digit is missing from exponent issue
|
|
|
|
|
|
an error. (parse_real): Likewise and adjusted error message to clarify
|
|
|
|
|
|
it is part of a complex number.
|
|
|
|
|
|
(nml_read_obj): Bump item count and add comment that this is used to
|
|
|
|
|
|
identify which item in a namelist read has a problem.
|
|
|
|
|
|
|
2016-02-17 17:48:57 +01:00
|
|
|
|
2016-02-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
|
|
PR libgfortran/69651
|
|
|
|
|
|
* io/list_read.c (push_char4): Fix the pointer usage for xrealloc.
|
|
|
|
|
|
|
2016-02-15 23:31:13 +01:00
|
|
|
|
2016-02-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
|
|
PR libgfortran/69651
|
|
|
|
|
|
* io/list_read.c: Entire file trailing spaces removed.
|
|
|
|
|
|
(CASE_SEPARATORS): Remove '!'.
|
|
|
|
|
|
(is_separator): Add namelist mode as condition with '!'.
|
|
|
|
|
|
(push_char): Remove un-needed memset. (push_char4): Likewise and remove
|
|
|
|
|
|
'new' pointer. (eat_separator): Remove un-needed use of notify_std.
|
|
|
|
|
|
(read_logical): If '!' bang encountered when not in namelist mode got
|
|
|
|
|
|
bad_logical to give an error. (read_integer): Likewise reject '!'.
|
|
|
|
|
|
(read_character): Remove condition testing c = '!' which is now inside
|
|
|
|
|
|
the is_separator macro. (parse_real): Reject '!' unless in namelist mode.
|
|
|
|
|
|
(read_complex): Reject '!' unless in namelist mode. (read_real): Likewise
|
[multiple changes]
2016-08-31 Paul Thomas <pault@gcc.gnu.org>
Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/48298
* decl.c (access_attr_decl): Include case INTERFACE_DTIO as
appropriate.
* gfortran.h : Add INTRINSIC_FORMATTED and
INTRINSIC_UNFORMATTED to gfc_intrinsic_op. Add INTERFACE_DTIO
to interface type. Add new enum 'dtio_codes'. Add bitfield
'has_dtio_procs' to symbol_attr. Add prototypes
'gfc_check_dtio_interfaces' and 'gfc_find_specific_dtio_proc'.
* interface.c (dtio_op): New function.
(gfc_match_generic_spec): Match generic DTIO interfaces.
(gfc_match_interface): Treat DTIO interfaces in the same way as
(gfc_current_interface_head): Add INTERFACE_DTIO appropriately.
(check_dtio_arg_TKR_intent): New function.
(check_dtio_interface1): New function.
(gfc_check_dtio_interfaces): New function.
(gfc_find_specific_dtio_proc): New function.
* io.c : Add FMT_DT to format_token.
(format_lex): Handle DTIO formatting.
* match.c (gfc_op2string): Add DTIO operators.
* resolve.c (derived_inaccessible): Ignore pointer components
to enclosing derived type.
(resolve_transfer): Resolve transfers that involve DTIO.
procedures. Find the specific subroutine for the transfer and
use its existence to over-ride some of the constraints on
derived types. If the transfer is recursive, require that the
subroutine be so qualified.
(dtio_procs_present): New function.
(resolve_fl_namelist): Remove inhibition of polymorphic objects
in namelists if DTIO read and write subroutines exist. Likewise
for derived types.
(resolve_types): Invoke 'gfc_verify_dtio_procedures'.
* symbol.c : Set 'dtio_procs' using 'minit'.
* trans-decl.c (gfc_finish_var_decl): If a derived-type/class
object is associated with DTIO procedures, make it TREE_STATIC.
* trans-expr.c (gfc_get_vptr_from_expr): If the expression
drills down to a PARM_DECL, extract the vptr correctly.
(gfc_conv_derived_to_class): Check 'info' in the test for
'useflags'. If the se expression exists and is a pointer, use
it as the class _data.
* trans-io.c : Add IOCALL_X_DERIVED to iocall and the function
prototype. Likewise for IOCALL_SET_NML_DTIO_VAL.
(set_parameter_tree): Renamed from 'set_parameter_const', now
returns void and has new tree argument. Calls modified to match
new interface.
(transfer_namelist_element): Transfer DTIO procedure pointer
and vpointer using the new function IOCALL_SET_NML_DTIO_VAL.
(get_dtio_proc): New function.
(transfer_expr): Add new argument for the vptr field of class
objects. Add the code to call the specific DTIO proc, convert
derived types to class and call IOCALL_X_DERIVED.
(trans_transfer): Add BT_CLASS to structures for treatment by
the scalarizer. Obtain the vptr for the dynamic type, both for
scalar and array transfer.
2016-08-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
Paul Thomas <pault@gcc.gnu.org>
PR libgfortran/48298
* gfortran.map : Flag _st_set_nml_dtio_var and
_gfortran_transfer_derived.
* io/format.c (format_lex): Detect DTIO formatting.
(parse_format_list): Parse the DTIO format.
(next_format): Include FMT_DT.
* io/format.h : Likewise. Add structure 'udf' to structure
'fnode' to carry the IOTYPE string and the 'vlist'.
* io/io.h : Add prototypes for the two types of DTIO subroutine
and a typedef for gfc_class. Also, add to 'namelist_type'
fields for the pointer to the DTIO procedure and the vtable.
Add fields to struct st_parameter_dt for pointers to the two
types of DTIO subroutine. Add to gfc_unit DTIO specific fields.
(internal_proto): Add prototype for 'read_user_defined' and
'write_user_defined'.
* io/list_read.c (check_buffers): Use the 'current_unit' field.
(unget_char): Likewise.
(eat_spaces): Likewise.
(list_formatted_read_scalar): For case BT_CLASS, call the DTIO
procedure.
(nml_get_obj_data): Likewise when DTIO procedure is present,.
* io/transfer.c : Export prototypes for 'transfer_derived' and
'transfer_derived_write'.
(unformatted_read): For case BT_CLASS, call the DTIO procedure.
(unformatted_write): Likewise.
(formatted_transfer_scalar_read): Likewise.
(formatted_transfer_scalar_write: Likewise.
(transfer_derived): New function.
(data_transfer_init): Set last_char if no child_dtio.
(finalize_transfer): Return if child_dtio set.
(st_write_done): Add condition for child_dtio not set.
Add extra arguments for st_set_nml_var prototype.
(set_nml_var): New function that contains the contents of the
old version of st_set_nml_var. Also sets the 'dtio_sub' and
'vtable' fields of the 'nml' structure.
(st_set_nml_var): Now just calls set_nml_var with 'dtio_sub'
and 'vtable' NULL.
(st_set_nml_dtio_var): New function that calls set_nml_var.
* io/unit.c (get_external_unit): If the found unit child_dtio
is non zero, don't do any mutex locking/unlocking. Just
return the unit.
* io/unix.c (tempfile_open): Revert to C style comment.
* io/write.c (list_formatted_write_scalar): Do the DTIO call.
(nml_write_obj): Add BT_CLASS and do the DTIO call.
2016-08-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
Paul Thomas <pault@gcc.gnu.org>
PR fortran/48298
* gfortran.dg/dtio_1.f90: New test.
* gfortran.dg/dtio_2.f90: New test.
* gfortran.dg/dtio_3.f90: New test.
* gfortran.dg/dtio_4.f90: New test.
* gfortran.dg/dtio_5.f90: New test.
* gfortran.dg/dtio_6.f90: New test.
* gfortran.dg/dtio_7.f90: New test.
* gfortran.dg/dtio_8.f90: New test.
* gfortran.dg/dtio_9.f90: New test.
* gfortran.dg/dtio_10.f90: New test.
From-SVN: r239880
2016-08-31 07:36:22 +02:00
|
|
|
|
reject '!'.
|
2016-02-15 23:31:13 +01:00
|
|
|
|
|
2016-02-12 20:52:13 +01:00
|
|
|
|
2016-02-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
|
|
PR libgfortran/69668
|
|
|
|
|
|
* io/list_read.c (read_character): Remove code related to DELIM_NONE.
|
|
|
|
|
|
|
2016-01-24 00:32:13 +01:00
|
|
|
|
2016-01-23 John David Anglin <danglin@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
|
|
PR libfortran/68744
|
|
|
|
|
|
* runtime/backtrace.c: Include gthr.h.
|
|
|
|
|
|
(show_backtrace): Use __gthread_active_p() to determine whether threads
|
|
|
|
|
|
are active. Return if lbstate is NULL.
|
|
|
|
|
|
|
2016-01-15 21:20:58 +01:00
|
|
|
|
2016-01-15 Jakub Jelinek <jakub@redhat.com>
|
|
|
|
|
|
|
|
|
|
|
|
* intrinsics/execute_command_line.c (set_cmdstat): Use "%s", msg
|
|
|
|
|
|
instead of msg to avoid -Wformat-security warning.
|
|
|
|
|
|
|
2016-01-04 15:30:50 +01:00
|
|
|
|
2016-01-04 Jakub Jelinek <jakub@redhat.com>
|
2015-01-05 13:33:28 +01:00
|
|
|
|
|
|
|
|
|
|
Update copyright years.
|
2016-01-04 15:30:50 +01:00
|
|
|
|
|
|
|
|
|
|
Copyright (C) 2016 Free Software Foundation, Inc.
|
2010-01-04 09:59:59 +01:00
|
|
|
|
|
|
|
|
|
|
Copying and distribution of this file, with or without modification,
|
|
|
|
|
|
are permitted in any medium without royalty provided the copyright
|
|
|
|
|
|
notice and this notice are preserved.
|
