From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-310130-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 25020 invoked by alias); 28 Feb 2010 21:05:40 -0000
Received: (qmail 24854 invoked by uid 48); 28 Feb 2010 21:05:27 -0000
Date: Sun, 28 Feb 2010 21:05:00 -0000
Subject: [Bug fortran/43214]  New: [OOP] TBP with non-scalar PASS
X-Bugzilla-Reason: CC
Message-ID: <bug-43214-13404@http.gcc.gnu.org/bugzilla/>
Reply-To: gcc-bugzilla@gcc.gnu.org
To: gcc-bugs@gcc.gnu.org
From: "burnus at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>
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
X-SW-Source: 2010-02/txt/msg02882.txt.bz2

I think there was not yet a PR about this. The following program compiles with
NAG f95 but fails in gfortran with:

call x(:)%foo
      1
Error: Non-scalar base object at (1) currently not implemented


module m
type t
contains
  procedure, pass :: foo => foo
end type t
contains
  elemental subroutine foo(x)
    class(t),intent(in) :: x
  end subroutine foo
end module m

use m
type(t) :: x(3)
call x(:)%foo
end


-- 
           Summary: [OOP] TBP with non-scalar PASS
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Keywords: rejects-valid
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


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