This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [Bug fortran/46896] [4.3/4.4/4.5/4.6 Regression] Wrong code with transpose(a) passed to subroutine
- From: Paul Richard Thomas <paul dot richard dot thomas at gmail dot com>
- To: gcc-patches <gcc-patches at gcc dot gnu dot org>, fortran at gcc dot gnu dot org
- Date: Sat, 8 Jan 2011 20:19:20 +0100
- Subject: Re: [Bug fortran/46896] [4.3/4.4/4.5/4.6 Regression] Wrong code with transpose(a) passed to subroutine
- References: <bug-46896-10374@http.gcc.gnu.org/bugzilla/> <bug-46896-10374-tYs4THALT8@http.gcc.gnu.org/bugzilla/>
Following approval by Tobias Burnus on #gfortran.
Paul
> Date: Sat Jan ?8 19:17:03 2011
> New Revision: 168600
>
> URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=168600
> Log:
> 2011-01-08 ?Paul Thomas ?<pault@gcc.gnu.org>
>
> ? ?PR fortran/46896
> ? ?* trans-expr.c (gfc_conv_procedure_call): With a non-copying
> ? ?procedure argument (eg TRANSPOSE) use a temporary if there is
> ? ?any chance of aliasing due to host or use association.
> ? ?(arrayfunc_assign_needs_temporary): Correct logic for function
> ? ?results and do not use a temporary for implicitly PURE
> ? ?variables. ?Use a temporary for Cray pointees.
> ? ?* symbol.c (gfc_add_save): Explicit SAVE not compatible with
> ? ?implicit pureness of containing procedure.
> ? ?* decl.c (match_old_style_init, gfc_match_data): Where decl
> ? ?would fail in PURE procedure, set implicit_pure to zero.
> ? ?* gfortran.h : Add implicit_pure to structure symbol_attr and
> ? ?add prototype for function gfc_implicit_pure.
> ? ?* expr.c (gfc_check_pointer_assign, gfc_check_vardef_context):
> ? ?Where decl would fail in PURE procedure, reset implicit_pure.
> ? ?* io.c (match_vtag, gfc_match_open, gfc_match_close,
> ? ?gfc_match_print, gfc_match_inquire, gfc_match_wait): The same.
> ? ?* match.c (gfc_match_critical, gfc_match_stopcode,
> ? ?sync_statement, gfc_match_allocate, gfc_match_deallocate): The
> ? ?same.
> ? ?* parse.c (decode_omp_directive): The same.
> ? ?(parse_contained): If not PURE, set implicit pure attribute.
> ? ?* resolve.c (resolve_formal_arglist, resolve_structure_cons,
> ? ?resolve_function, resolve_ordinary_assign) : The same.
> ? ?(gfc_implicit_pure): New function.
> ? ?* module.c (mio_symbol_attribute): Introduce AB_IMPLICIT_PURE
> ? ?to ab_attribute enum and use it in this function.
>
> 2011-01-08 ?Paul Thomas ?<pault@gcc.gnu.org>
>
> ? ?PR fortran/46896
> ? ?* gfortran.dg/transpose_optimization_2.f90 : New test.
>
>
> Added:
> ? ?trunk/gcc/testsuite/gfortran.dg/transpose_optimization_2.f90
> Modified:
> ? ?trunk/gcc/fortran/ChangeLog
> ? ?trunk/gcc/fortran/decl.c
> ? ?trunk/gcc/fortran/expr.c
> ? ?trunk/gcc/fortran/gfortran.h
> ? ?trunk/gcc/fortran/io.c
> ? ?trunk/gcc/fortran/match.c
> ? ?trunk/gcc/fortran/module.c
> ? ?trunk/gcc/fortran/parse.c
> ? ?trunk/gcc/fortran/resolve.c
> ? ?trunk/gcc/fortran/symbol.c
> ? ?trunk/gcc/fortran/trans-expr.c
> ? ?trunk/gcc/testsuite/ChangeLog
>
> --
> Configure bugmail: http://gcc.gnu.org/bugzilla/userprefs.cgi?tab=email
> ------- You are receiving this mail because: -------
> You are the assignee for the bug.
>
--
The knack of flying is learning how to throw yourself at the ground and miss.
? ? ?? --Hitchhikers Guide to the Galaxy