[Bug fortran/56969] New: ISO_C_BINDING regression with current trunk

[Bug fortran/56969] New: ISO_C_BINDING regression with current trunk

[sfilippone at uniroma2 dot it]

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

             Bug #: 56969
           Summary: ISO_C_BINDING regression with current trunk
    Classification: Unclassified
           Product: gcc
           Version: 4.9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: sfilippone@uniroma2.it


Created attachment 29876
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=29876
test case

Hi,
Attached code works with 4.8, fails with trunk.
Salvatore 

---------------------------------------------------------
[sfilippo@jacobi BugCBind]$ gfortran -v
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/usr/local/gnu48/libexec/gcc/x86_64-unknown-linux-gnu/4.8.0/lto-wrapper
Target: x86_64-unknown-linux-gnu
Configured with: ../gcc-4.8.0/configure --prefix=/usr/local/gnu48
--enable-languages=c,c++,fortran --with-gmp=/home/travel/GNUBUILD/gmp
--with-mpfr=/home/travel/GNUBUILD/mpfr --with-mpc=/home/travel/GNUBUILD/mpc
Thread model: posix
gcc version 4.8.0 (GCC) 
[sfilippo@jacobi BugCBind]$ gfortran -c tst_cbind.f90
[sfilippo@jacobi BugCBind]$ 
------------------------------------------------------------
[sfilippo@jacobi BugCBind]$ gfortran -v 
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/usr/local/gnu49/libexec/gcc/x86_64-unknown-linux-gnu/4.9.0/lto-wrapper
Target: x86_64-unknown-linux-gnu
Configured with: ../gcc/configure --prefix=/usr/local/gnu49
--enable-languages=c,c++,fortran --with-gmp=/home/travel/GNUBUILD/gmp
--with-mpfr=/home/travel/GNUBUILD/mpfr --with-mpc=/home/travel/GNUBUILD/mpc :
(reconfigured) ../gcc/configure --prefix=/usr/local/gnu49
--enable-languages=c,c++,fortran --with-gmp=/home/travel/GNUBUILD/gmp
--with-mpfr=/home/travel/GNUBUILD/mpfr --with-mpc=/home/travel/GNUBUILD/mpc :
(reconfigured) ../gcc/configure --prefix=/usr/local/gnu49
--enable-languages=c,c++,fortran --with-gmp=/home/travel/GNUBUILD/gmp
--with-mpfr=/home/travel/GNUBUILD/mpfr --with-mpc=/home/travel/GNUBUILD/mpc :
(reconfigured) ../gcc/configure --prefix=/usr/local/gnu49
--enable-languages=c,c++,fortran --with-gmp=/home/travel/GNUBUILD/gmp
--with-mpfr=/home/travel/GNUBUILD/mpfr --with-mpc=/home/travel/GNUBUILD/mpc :
(reconfigured) ../gcc/configure --prefix=/usr/local/gnu49
--enable-languages=c,c++,fortran --with-gmp=/home/travel/GNUBUILD/gmp
--with-mpfr=/home/travel/GNUBUILD/mpfr --with-mpc=/home/travel/GNUBUILD/mpc
Thread model: posix
gcc version 4.9.0 20130411 (experimental) (GCC) 
[sfilippo@jacobi BugCBind]$ gfortran -c tst_cbind.f90 
tst_cbind.f90:57.18:

  if (c_associated(a%deviceMat%Mat)) then 
                  1
Error: Name 'c_associated' at (1) is an ambiguous reference to 'c_associated'
from module '__iso_c_binding'
tst_cbind.f90:59.5:

  end if
     1
Error: Expecting END SUBROUTINE statement at (1)
[sfilippo@jacobi BugCBind]$

[Bug fortran/56969] [4.9 Regression] ISO_C_BINDING regression with current trunk

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2013-04-15
                 CC|                            |burnus@net-b.de
            Summary|ISO_C_BINDING regression    |[4.9 Regression]
                   |with current trunk          |ISO_C_BINDING regression
                   |                            |with current trunk
     Ever Confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2013-04-15 14:40:14 UTC ---
Revision 196819 (2013-03-20) is OK, while revision 197238 (2013-03-29) gives
the error. I suspect revision 197053 (CCed Tobias).

[Bug fortran/56969] [4.9 Regression] ISO_C_BINDING regression with current trunk

[burnus at gcc dot gnu.org]

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

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |rejects-valid
                 CC|burnus@net-b.de             |burnus at gcc dot gnu.org
   Target Milestone|---                         |4.9.0

--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> 2013-04-15 14:53:36 UTC ---
Workaround:

module extd_mat_mod
! use iso_c_binding  ! << comment this line

Or alternatively:
  use test_mod, only: s_Cmat  ! <<< add "only:"

The problem seems to be that the indirectly imported function "c_associated"
does not seem to get recognized as being the same as the indirectly imported
one.

[Bug fortran/56969] [4.9 Regression] ISO_C_BINDING regression with current trunk

[burnus at gcc dot gnu.org]

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

--- Comment #4 from Tobias Burnus <burnus at gcc dot gnu.org> 2013-04-16 14:18:12 UTC ---


Author: burnus
Date: Tue Apr 16 14:17:15 2013
New Revision: 198000

URL: http://gcc.gnu.org/viewcvs?rev=198000&root=gcc&view=rev
Log:
2013-04-16  Tobias Burnus  <burnus@net-b.de>

        PR fortran/56969
        * intrinsic.c (gfc_intrinsic_func_interface): Don't set
        module name to "(intrinsic)" for intrinsics from intrinsic
        modules.

2013-04-16  Tobias Burnus  <burnus@net-b.de>

        PR fortran/56969
        * gfortran.dg/c_assoc_5.f90: New.


Added:
    trunk/gcc/testsuite/gfortran.dg/c_assoc_5.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/intrinsic.c
    trunk/gcc/testsuite/ChangeLog

[Bug fortran/56969] [4.9 Regression] ISO_C_BINDING regression with current trunk

[burnus at gcc dot gnu.org]

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

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
         Resolution|                            |FIXED

--- Comment #5 from Tobias Burnus <burnus at gcc dot gnu.org> 2013-04-16 14:18:35 UTC ---
FIXED.

Thanks for the report!