From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-286422-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 27696 invoked by alias); 16 Jun 2009 15:20:29 -0000
Received: (qmail 27562 invoked by uid 48); 16 Jun 2009 15:20:15 -0000
Date: Tue, 16 Jun 2009 15:20:00 -0000
Subject: [Bug fortran/40461]  New: Interface mismatch in dummy procedure
X-Bugzilla-Reason: CC
Message-ID: <bug-40461-14284@http.gcc.gnu.org/bugzilla/>
Reply-To: gcc-bugzilla@gcc.gnu.org
To: gcc-bugs@gcc.gnu.org
From: "michael dot a dot richmond at nasa dot gov" <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: 2009-06/txt/msg01074.txt.bz2

I downloaded
http://users.physik.fu-berlin.de/~tburnus/gcc-trunk/gcc-trunk-x86_64.tar.gz and
attempted to compile the following module:

MODULE Nonlin_Conf_Regions
CONTAINS
SUBROUTINE halprn(deriv)
INTERFACE
  SUBROUTINE deriv(wt)
    REAL, INTENT(IN)     :: wt
  END SUBROUTINE deriv
END INTERFACE
END SUBROUTINE halprn
END MODULE Nonlin_Conf_Regions

PROGRAM Test_AS290
USE Nonlin_Conf_Regions
INTERFACE
  SUBROUTINE Logistic4(wt)
    REAL, INTENT(OUT)  :: wt
  END SUBROUTINE Logistic4
END INTERFACE
CALL halprn(Logistic4)
END PROGRAM Test_AS290

I got the message:

u.f90:19.12:

CALL halprn(Logistic4)
            1
Error: Interface mismatch in dummy procedure 'deriv' at (1): INTENT mismatch in
argument 'wt'

This is presumably connected with PR 36947/40039 written by Janus Weil. I don't
know whether the error message is valid.


-- 
           Summary: Interface mismatch in dummy procedure
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: michael dot a dot richmond at nasa dot gov


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