From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-175330-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 32348 invoked by alias); 1 Feb 2006 14:27:34 -0000
Received: (qmail 32329 invoked by uid 48); 1 Feb 2006 14:27:30 -0000
Date: Wed, 01 Feb 2006 14:27:00 -0000
Subject: [Bug fortran/26064]  New: 4.1 regression introduced with patch for bug 18197
X-Bugzilla-Reason: CC
Message-ID: <bug-26064-11543@http.gcc.gnu.org/bugzilla/>
Reply-To: gcc-bugzilla@gcc.gnu.org
To: gcc-bugs@gcc.gnu.org
From: "sven dot buijssen at math dot uni-dortmund dot de" <gcc-bugzilla@gcc.gnu.org>
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
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: 2006-02/txt/msg00076.txt.bz2
List-Id: <gcc-bugs.sourceware.org>

Erik Edelmann's patch for PR fortran/18197 introduced a regression. 

a) The following test case does not compile with gfortran >= Revision 108555

--- cut here ---
% cat > foo.h <<EOF
interface
  function foo() result (dresult)
    real :: dresult
  end function foo
end interface
EOF

% cat > regression.f90 <<EOF
module regression

contains

  subroutine helper(foo)
    include "foo.h"
  end subroutine helper

  subroutine master(foo)
    include "foo.h"
    call slave(foo, helper)
  end subroutine master

  subroutine slave(foo, subslave)
    include "foo.h"
    interface
      subroutine subslave(foo)
        include "foo.h"
      end subroutine subslave
    end interface
    call subslave(foo)
  end subroutine slave

end module regression
EOF
--- cut here ---

instead gfortran gives:

% gfortran -v -c regression.f90
Using built-in specs.
Target: i686-pc-linux-gnu
Configured with: ../../src/gcc/configure --enable-shared
--prefix=/home/[...]/20060201 --enable-languages=c,c++,fortran --enable-threads
--enable-__cxa_atexit
Thread model: posix
gcc version 4.2.0 20060201 (experimental)
 /home/[...]/20060201/bin/../libexec/gcc/i686-pc-linux-gnu/4.2.0/f951
regression.f90 -quiet -dumpbase regression.f90 -mtune=generic -auxbase
regression -version -o /tmp/ccNFDNgH.s
GNU F95 version 4.2.0 20060201 (experimental) (i686-pc-linux-gnu)
        compiled by GNU C version 4.2.0 20060201 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096

 In file regression.f90:11

    call slave(foo, helper)
                  1
Error: Type/rank mismatch in argument 'subslave' at (1)

b) Swapping the order of subroutines helper and master in above testcase
resolves the regression, gfortran compiles smoothly. (The complexity of the
code I actually tried to compile is higher and I did not find a suitable
permutation of subroutines yet.)

c) Compiling the current revision (110474) having reverted only Erik's patch:

--- cut here ---
% cat > undopatch18197 <<EOF
140a141,151
>           else
>             {
>                /* Set the type of the RESULT, then copy.  */
>               if (sym->result->ts.type == BT_UNKNOWN)
>                 gfc_set_default_type (sym->result, 1, sym->result->ns);
>
>               sym->ts = sym->result->ts;
>               if (sym->as == NULL)
>                 sym->as = gfc_copy_array_spec (sym->result->as);
>             }
>
EOF

% patch gcc/fortran/resolve.c < undopatch18197
% ./configure [....]; make bootstrap install
--- cut here ---

the above testcase compiles smoothly again - while reopening the error reported
in bug 18197 (and causing another error in my already mentioned code I could
not reduce to a small testcase so far.)


-- 
           Summary: 4.1 regression introduced with patch for bug 18197
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: sven dot buijssen at math dot uni-dortmund dot de
 GCC build triplet: i686-pc-linux-gnu
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu


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