[Bug fortran/44022] Spurious 'unused parameter' for a used procedure argument

[Bug fortran/44022] Spurious 'unused parameter' for a used procedure argument

[john.harper at vuw dot ac.nz]

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

john.harper at vuw dot ac.nz changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |john.harper at vuw dot
                   |                            |ac.nz

--- Comment #3 from john.harper at vuw dot ac.nz 2011-10-06 01:10:36 UTC ---
This gfortran bug happens if the offending subprogram is after CONTAINS in a
main program as well as in a module.

With gfortran -Wall -W this program showed the bug but did print 3.000000 

program test                                                                    
  implicit none                                                                 
  intrinsic sqrt                                                                
  print "(F10.6)",find(sqrt,9.0)                                                
contains                                                                        
  real function find(func,x) ! gfortran -Wall -W warns unused parameter func    
    real,external  ::func                                                       
    real,intent(in)::     x                                                     
    find = func(x)                                                              
  end function find                                                             
end program test                                   

I used two versions: gcc version 4.4.3 (Ubuntu 4.4.3-4ubuntu5) and 
gcc version 4.4.4 20100726 (Red Hat 4.4.4-13) (GCC).
I would have installed version 4.6 if I could have.

-- John Harper

[Bug fortran/44022] Spurious 'unused parameter' for a used procedure argument

[tkoenig at gcc dot gnu.org]

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

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
                 CC|                            |tkoenig at gcc dot gnu.org
         Resolution|                            |FIXED

--- Comment #4 from Thomas Koenig <tkoenig at gcc dot gnu.org> 2012-02-19 20:00:39 UTC ---
Fixed with the fix for PR 48847.  No separate test case
necessary. Closing.

[Bug fortran/44022] New: Spurious 'unused parameter' for a used procedure argument

[mathewc at nag dot co dot uk]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 966 bytes --]

> gfortran --version
GNU Fortran (GCC) 4.5.0 20100128 (experimental)

> uname -a
Linux loanamd25 2.6.16.46-0.10-smp #1 SMP Mon May 7 13:37:05 UTC 2007 x86_64
x86_64 x86_64 GNU/Linux

> cat used_dummy.f90 
    FUNCTION DGEES_SELECTH(SELECT)
       LOGICAL                         :: DGEES_SELECTH
       LOGICAL, EXTERNAL               :: SELECT
       DGEES_SELECTH = SELECT()
    END FUNCTION DGEES_SELECTH

> gfortran -Wunused-parameter -c used_dummy.f90
used_dummy.f90:1:0: warning: unused parameter ‘select’

Does PR40039 already fix this?


-- 
           Summary: Spurious 'unused parameter' for a used procedure
                    argument
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: mathewc at nag dot co dot uk


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

[Bug fortran/44022] Spurious 'unused parameter' for a used procedure argument

[burnus at gcc dot gnu dot org]

------- Comment #1 from burnus at gcc dot gnu dot org  2010-05-07 13:08 -------
Manuel: As this is a middle-end warning, do you have an idea?


dgees_selecth (logical(kind=4) (*<T410>) (void) select)
{
  logical(kind=4) __result_dgees_selecth.0;
  logical(kind=4) D.1538;
  logical(kind=4) __result_dgees_selecth;

  __result_dgees_selecth.0 = select ();


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |manu at gcc dot gnu dot org,
                   |                            |burnus at gcc dot gnu dot
                   |                            |org
           Keywords|                            |diagnostic


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

[Bug fortran/44022] Spurious 'unused parameter' for a used procedure argument

[domob at gcc dot gnu dot org]

------- Comment #2 from domob at gcc dot gnu dot org  2010-07-16 17:50 -------
I just hit it, too:

subroutine foo (x)
  procedure(intf) :: x

  abstract interface
    integer function intf ()
    end function intf
  end interface

  print *, x()
end subroutine foo


-- 

domob at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2010-07-16 17:50:51
               date|                            |


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