public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
From: "burnus at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/48820] TR 29113: Implement parts needed for MPI 3
Date: Fri, 20 Jul 2012 05:57:00 -0000 [thread overview]
Message-ID: <bug-48820-4-U8G6OsW1x8@http.gcc.gnu.org/bugzilla/> (raw)
In-Reply-To: <bug-48820-4@http.gcc.gnu.org/bugzilla/>
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48820
--- Comment #16 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-07-20 05:56:41 UTC ---
Author: burnus
Date: Fri Jul 20 05:56:37 2012
New Revision: 189700
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=189700
Log:
2012-07-20 Tobias Burnus <burnus@net-b.de>
PR fortran/48820
* array.c (match_array_element_spec, gfc_match_array_spec,
spec_size, gfc_array_dimen_size): Add support for
assumed-rank arrays.
* check.c (dim_rank_check): Ditto.
* class.c (gfc_add_component_ref): Ditto.
(gfc_build_class_symbol): Regard assumed-rank arrays
as having GFC_MAX_DIMENSIONS. And build extra class
container for a scalar pointer class.
* decl.c (merge_array_spec): Add assert.
* dump-parse-tree.c (show_array_spec): Add support for
assumed-rank arrays.
* expr.c (gfc_is_simply_contiguous): Ditto.
* gfortran.h (array_type): Ditto.
(gfc_array_spec, gfc_expr): Add comment to "rank" field.
* interface.c (compare_type_rank, argument_rank_mismatch,
compare_parameter, gfc_procedure_use): Ditto.
(compare_actual_formal): Fix NULL() to optional-dummy
handling for polymorphic dummies.
* module.c (mio_typespec): Add support for
assumed-rank arrays.
* resolve.c (resolve_formal_arglist, resolve_actual_arglist,
resolve_elemental_actual, resolve_global_procedure,
expression_shape, resolve_variable, update_ppc_arglist,
check_typebound_baseobject, gfc_resolve_expr,
resolve_fl_var_and_proc, gfc_resolve_finalizers,
resolve_typebound_procedure, resolve_symbol): Ditto.
(assumed_type_expr_allowed): Remove static variable.
(actual_arg, first_actual_arg): New static variables.
* simplify.c (simplify_bound, gfc_simplify_range): Add
support for assumed-rank arrays.
* trans-array.c (gfc_conv_array_parameter): Ditto.
(gfc_get_descriptor_dimension): New function, which returns
the descriptor.
(gfc_conv_descriptor_dimension): Use it.
(gfc_conv_descriptor_stride_get, gfc_conv_array_parameter):
Handle GFC_ARRAY_ASSUMED_RANK_CONT and AS_ASSUMED_RANK.
* trans-array.h (gfc_get_descriptor_dimension): New prototype.
* trans-decl. (gfc_build_dummy_array_decl,
gfc_trans_deferred_vars, add_argument_checking): Add
support for assumed-rank arrays.
* trans-expr.c (gfc_conv_expr_present, gfc_conv_variable,
gfc_conv_procedure_call): Ditto.
(get_scalar_to_descriptor_type, class_array_data_assign,
conv_scalar_to_descriptor): New static functions.
(gfc_conv_derived_to_class, gfc_conv_class_to_class): Use
them.
* trans-intrinsic.c (get_rank_from_desc): New function.
(gfc_conv_intrinsic_rank, gfc_conv_associated): Use it.
* trans-types.c (gfc_array_descriptor_base_caf,
gfc_array_descriptor_base): Make space for scalar array.
(gfc_is_nodesc_array, gfc_is_nodesc_array,
gfc_build_array_type, gfc_get_array_descriptor_base): Add
support for assumed-rank arrays.
* trans.h (gfc_array_kind): Add GFC_ARRAY_ASSUMED_RANK and
GFC_ARRAY_ASSUMED_RANK_CONT.
2012-07-20 Tobias Burnus <burnus@net-b.de>
PR fortran/48820
* gfortran.dg/assumed_type_3.f90: Update dg-error.
* gfortran.dg/assumed_rank_1.f90: New.
* gfortran.dg/assumed_rank_1_c.c: New.
* gfortran.dg/assumed_rank_2.f90: New.
* gfortran.dg/assumed_rank_4.f90: New.
* gfortran.dg/assumed_rank_5.f90: New.
* gfortran.dg/assumed_rank_6.f90: New.
* gfortran.dg/assumed_rank_7.f90: New.
* gfortran.dg/assumed_rank_8.f90: New.
* gfortran.dg/assumed_rank_8_c.c: New.
* gfortran.dg/assumed_rank_9.f90: New.
* gfortran.dg/assumed_rank_10.f90: New.
* gfortran.dg/assumed_rank_12.f90: New.
Added:
trunk/gcc/testsuite/gfortran.dg/assumed_rank_1.f90
trunk/gcc/testsuite/gfortran.dg/assumed_rank_10.f90
trunk/gcc/testsuite/gfortran.dg/assumed_rank_12.f90
trunk/gcc/testsuite/gfortran.dg/assumed_rank_1_c.c
trunk/gcc/testsuite/gfortran.dg/assumed_rank_2.f90
trunk/gcc/testsuite/gfortran.dg/assumed_rank_4.f90
trunk/gcc/testsuite/gfortran.dg/assumed_rank_5.f90
trunk/gcc/testsuite/gfortran.dg/assumed_rank_6.f90
trunk/gcc/testsuite/gfortran.dg/assumed_rank_7.f90
trunk/gcc/testsuite/gfortran.dg/assumed_rank_8.f90
trunk/gcc/testsuite/gfortran.dg/assumed_rank_8_c.c
trunk/gcc/testsuite/gfortran.dg/assumed_rank_9.f90
Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/array.c
trunk/gcc/fortran/check.c
trunk/gcc/fortran/class.c
trunk/gcc/fortran/decl.c
trunk/gcc/fortran/dump-parse-tree.c
trunk/gcc/fortran/expr.c
trunk/gcc/fortran/gfortran.h
trunk/gcc/fortran/interface.c
trunk/gcc/fortran/module.c
trunk/gcc/fortran/resolve.c
trunk/gcc/fortran/simplify.c
trunk/gcc/fortran/trans-array.c
trunk/gcc/fortran/trans-array.h
trunk/gcc/fortran/trans-decl.c
trunk/gcc/fortran/trans-expr.c
trunk/gcc/fortran/trans-intrinsic.c
trunk/gcc/fortran/trans-types.c
trunk/gcc/fortran/trans.h
trunk/gcc/testsuite/ChangeLog
trunk/gcc/testsuite/gfortran.dg/assumed_type_3.f90
next prev parent reply other threads:[~2012-07-20 5:57 UTC|newest]
Thread overview: 23+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-04-29 12:49 [Bug fortran/48820] New: " burnus at gcc dot gnu.org
2011-05-06 18:22 ` [Bug fortran/48820] " burnus at gcc dot gnu.org
2011-05-06 18:46 ` burnus at gcc dot gnu.org
2011-05-27 18:58 ` burnus at gcc dot gnu.org
2011-12-13 20:48 ` w6ws at earthlink dot net
2011-12-31 23:21 ` pinskia at gcc dot gnu.org
2012-02-28 14:54 ` burnus at gcc dot gnu.org
2012-02-29 16:14 ` w6ws at earthlink dot net
2012-03-01 9:24 ` burnus at gcc dot gnu.org
2012-03-01 19:08 ` burnus at gcc dot gnu.org
2012-03-02 11:31 ` burnus at gcc dot gnu.org
2012-03-03 8:41 ` burnus at gcc dot gnu.org
2012-03-03 14:12 ` burnus at gcc dot gnu.org
2012-03-03 18:56 ` burnus at gcc dot gnu.org
2012-03-05 10:22 ` burnus at gcc dot gnu.org
2012-03-07 9:26 ` burnus at gcc dot gnu.org
2012-03-08 7:20 ` burnus at gcc dot gnu.org
2012-07-20 5:57 ` burnus at gcc dot gnu.org [this message]
2012-07-20 6:24 ` burnus at gcc dot gnu.org
2012-07-21 11:03 ` burnus at gcc dot gnu.org
2012-08-01 10:36 ` burnus at gcc dot gnu.org
2012-08-02 19:49 ` mikael at gcc dot gnu.org
2012-09-21 18:47 ` burnus at gcc dot gnu.org
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=bug-48820-4-U8G6OsW1x8@http.gcc.gnu.org/bugzilla/ \
--to=gcc-bugzilla@gcc.gnu.org \
--cc=gcc-bugs@gcc.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).