From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-146144-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 26997 invoked by alias); 8 Jun 2005 14:35:41 -0000
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
Received: (qmail 26985 invoked by uid 48); 8 Jun 2005 14:35:36 -0000
Date: Wed, 08 Jun 2005 14:35:00 -0000
From: "mhesseli at caltech dot edu" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Message-ID: <20050608143534.21961.mhesseli@caltech.edu>
Reply-To: gcc-bugzilla@gcc.gnu.org
Subject: [Bug fortran/21961] New: PURE function in INTERFACE block not resolved as being a function
X-Bugzilla-Reason: CC
X-SW-Source: 2005-06/txt/msg01224.txt.bz2
List-Id: <gcc-bugs.sourceware.org>

A PURE function that is part of an INTERFACE block is not resolved as being a
function. Gfortran gives the following warning for the code attached at the end
of this description:

module_procedure-1.f90: In function 'show':
module_procedure-1.f90:30: warning: unused variable 'test'

I originally tested this using GNU Fortran 95 (GCC 4.1.0 20050602
(experimental)) and retested it using GNU Fortran 95 (GCC 4.1.0 20050608
(experimental)).

---

MODULE procedures
   PUBLIC               :: test

   PRIVATE              :: test1,test2

   INTERFACE test
      MODULE PROCEDURE test1,test2
   END INTERFACE test
CONTAINS
   PURE FUNCTION test1 (x) RESULT(r)
      REAL(KIND(0.0d0)), INTENT(IN) :: x
      REAL(KIND(0.0d0))             :: r

      r=x+1.0d0
   END FUNCTION test1

   PURE FUNCTION test2 (x) RESULT(r)
      REAL(KIND(0.0d0)), DIMENSION(:), INTENT(IN)  :: x
      REAL(KIND(0.0d0)), DIMENSION(SIZE(x))        :: r

      FORALL (i=1:SIZE(x))
         r(i)=x(i)+1.0d0
      END FORALL
   END FUNCTION test2
END MODULE procedures

MODULE actions
   USE procedures
CONTAINS
   SUBROUTINE show (x)
      REAL(KIND(0.0d0)), DIMENSION(:)        :: x
      REAL(KIND(0.0d0)), DIMENSION(SIZE(x))  :: d

      d=test (x)
      WRITE (*,'(F8.6)') d
   END SUBROUTINE show
END MODULE actions

PROGRAM module_procedure_1
   USE actions

   REAL(KIND(0.0d0)), DIMENSION(2)  :: x

   x=(/ 1.0d0,0.0d0 /)

   CALL show (x)

END PROGRAM module_procedure_1

-- 
           Summary: PURE function in INTERFACE block not resolved as being a
                    function
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: mhesseli at caltech dot edu
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: powerpc-apple-darwin7.9.0
  GCC host triplet: powerpc-apple-darwin7.9.0
GCC target triplet: powerpc-apple-darwin7.9.0


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