[Bug fortran/60952] New: Problem using "end" as a type bound procedure and contained procedures

[Bug fortran/60952] New: Problem using "end" as a type bound procedure and contained procedures

[Thomas.L.Clune at nasa dot gov]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60952

            Bug ID: 60952
           Summary: Problem using "end" as a type bound procedure and
                    contained procedures
           Product: gcc
           Version: 4.9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: Thomas.L.Clune at nasa dot gov

Created attachment 32675
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=32675&action=edit
Compile with: gfortran -c methodCalledEnd.F90

The attached reproducer shows a very simple module that generates the message:
methodCalledEnd.F90:24.15:

   function end(this) result(i)
               1
Error: VARIABLE attribute of 'end' conflicts with PROCEDURE attribute at (1)
methodCalledEnd.F90:25.18:

      integer :: i
                  1
Error: Unexpected data declaration statement in CONTAINS section at (1)
…


The message disappears if one does any of the following:
  -  the implementation of swap() is moved below end()
  -  "end" is renamed to something less "keywordish", e.g. "last"
  -  the contained procedure subSwap() is removed


Obligatory context info: 
bash-3.2$ gfortran -v methodCalledEnd.F90 
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/opt/local/libexec/gcc/x86_64-apple-darwin12/4.9.0/lto-wrapper
Target: x86_64-apple-darwin12
Configured with:
/opt/local/var/macports/build/_opt_mports_dports_lang_gcc49/gcc49/work/gcc-4.9-20140406/configure
--prefix=/opt/local --build=x86_64-apple-darwin12
--enable-languages=c,c++,objc,obj-c++,fortran,java
--libdir=/opt/local/lib/gcc49 --includedir=/opt/local/include/gcc49
--infodir=/opt/local/share/info --mandir=/opt/local/share/man
--datarootdir=/opt/local/share/gcc-4.9 --with-local-prefix=/opt/local
--with-system-zlib --disable-nls --program-suffix=-mp-4.9
--with-gxx-include-dir=/opt/local/include/gcc49/c++/ --with-gmp=/opt/local
--with-mpfr=/opt/local --with-mpc=/opt/local --with-cloog=/opt/local
--enable-cloog-backend=isl --disable-cloog-version-check
--enable-stage1-checking --disable-multilib --enable-lto
--enable-libstdcxx-time --with-as=/opt/local/bin/as --with-ld=/opt/local/bin/ld
--with-ar=/opt/local/bin/ar --with-bugurl=https://trac.macports.org/newticket
--with-pkgversion='MacPorts gcc49 4.9-20140406_0'
Thread model: posix
gcc version 4.9.0 20140406 (experimental) (MacPorts gcc49 4.9-20140406_0)
>From gcc-bugs-return-449809-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org Thu Apr 24 13:59:16 2014
Return-Path: <gcc-bugs-return-449809-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Delivered-To: listarch-gcc-bugs@gcc.gnu.org
Received: (qmail 31301 invoked by alias); 24 Apr 2014 13:59:16 -0000
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-bugs.gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
Delivered-To: mailing list gcc-bugs@gcc.gnu.org
Received: (qmail 31249 invoked by uid 55); 24 Apr 2014 13:59:13 -0000
From: "glisse at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug libstdc++/43622] no C++ typeinfo for __float128
Date: Thu, 24 Apr 2014 13:59:00 -0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: libstdc++
X-Bugzilla-Version: 4.5.0
X-Bugzilla-Keywords:
X-Bugzilla-Severity: enhancement
X-Bugzilla-Who: glisse at gcc dot gnu.org
X-Bugzilla-Status: UNCONFIRMED
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: bkoz at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags:
X-Bugzilla-Changed-Fields:
Message-ID: <bug-43622-4-PhSnScevvk@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-43622-4@http.gcc.gnu.org/bugzilla/>
References: <bug-43622-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: 7bit
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
X-SW-Source: 2014-04/txt/msg01829.txt.bz2
Content-length: 929

http://gcc.gnu.org/bugzilla/show_bug.cgi?idC622

--- Comment #20 from Marc Glisse <glisse at gcc dot gnu.org> ---
Author: glisse
Date: Thu Apr 24 13:58:36 2014
New Revision: 209748

URL: http://gcc.gnu.org/viewcvs?rev 9748&root=gcc&view=rev
Log:
2014-04-24  Marc Glisse  <marc.glisse@inria.fr>

    PR libstdc++/43622
gcc/cp/
    * rtti.c (emit_support_tinfos): Do not iterate on
    registered_builtin_types (partial revert).
libstdc++/
    * config/abi/pre/gnu.ver (CXXABI_1.3.9): Remove __float128 symbols.
    * config/abi/pre/gnu-versioned-namespace.ver: Likewise.
    * config/abi/post/x86_64-linux-gnu/baseline_symbols.txt: Update.


Modified:
    trunk/gcc/cp/ChangeLog
    trunk/gcc/cp/rtti.c
    trunk/libstdc++-v3/ChangeLog
    trunk/libstdc++-v3/config/abi/post/x86_64-linux-gnu/baseline_symbols.txt
    trunk/libstdc++-v3/config/abi/pre/gnu-versioned-namespace.ver
    trunk/libstdc++-v3/config/abi/pre/gnu.ver

[Bug fortran/60952] Problem using "end" as a type bound procedure and contained procedures

[janus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60952

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |rejects-valid
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2014-04-25
                 CC|                            |janus at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #1 from janus at gcc dot gnu.org ---
Confirmed (also with 4.4, 4.6 and 4.8).

Slightly reduced test case:

module A_mod
  implicit none

  type A
  contains
    procedure, nopass :: end
  end type

contains

  subroutine swap
  contains
    subroutine subSwap
    end subroutine
  end subroutine

  integer function end()
  end function

end module


Fails with:

  integer function end()
                      1
Error: VARIABLE attribute of 'end' conflicts with PROCEDURE attribute at (1)