[Bug fortran/25292] New: ASSOCIATED( func() ) rejected ?

[Bug fortran/25292] New: ASSOCIATED( func() ) rejected ?

[jpr at csc dot fi]

The ASSOCIATED statement with function argument is rejected by gfortran.
ifort, g95, pgf90, pathf90, sunf90, xlf90 all happily accept the (somewhat
silly) program below with expected results?

Regards, Juha

program test
   real, pointer :: a

   allocate(a)
   print*,associated( x(a) )

contains

  function x(a) RESULT(b)
    real, pointer :: a,b

    b => a
  end function x
end program test

gfortran -v -o ptrf ptrf.f90
Driving: gfortran -v -o ptrf ptrf.f90 -lgfortranbegin -lgfortran -lm
-shared-libgcc
Using built-in specs.
Target: i386-linux
Configured with: ../gcc/configure --prefix=/tmp/gfortran-20051205/irun
--enable-languages=c,fortran --host=i386-linux
Thread model: posix
gcc version 4.2.0 20051205 (experimental)
 /home/wrk/jpr/irun/bin/../libexec/gcc/i386-linux/4.2.0/f951 ptrf.f90 -quiet
-dumpbase ptrf.f90 -auxbase ptrf -version -o /tmp/ccZ3fGqg.s
GNU F95 version 4.2.0 20051205 (experimental) (i386-linux)
        compiled by GNU C version 4.0.2 (Debian 4.0.2-2).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
 In file ptrf.f90:5

   print*,associated( x(a) )
                    1
Error: 'pointer' argument of 'associated' intrinsic at (1) must be a variable


-- 
           Summary: ASSOCIATED( func() ) rejected ?
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jpr at csc dot fi


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

[Bug fortran/25292] ASSOCIATED( func() ) rejected ?

[eedelman at gcc dot gnu dot org]

------- Comment #1 from eedelman at gcc dot gnu dot org  2005-12-07 22:31 -------
Confirmed.


-- 

eedelman at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |eedelman at gcc dot gnu dot
                   |                            |org
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2005-12-07 22:31:34
               date|                            |


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

[Bug fortran/25292] ASSOCIATED( func() ) rejected ?

[eedelman at gcc dot gnu dot org]

------- Comment #2 from eedelman at gcc dot gnu dot org  2005-12-08 16:56 -------
Subject: Bug 25292

Author: eedelman
Date: Thu Dec  8 16:56:10 2005
New Revision: 108238

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=108238
Log:
fortran/
2005-12-08  Erik Edelmann  <eedelman@gcc.gnu.org>

        PR fortran/25292
        * check.c (gfc_check_associated): Allow function results
        as actual arguments to ASSOCIATED.  Moved a misplaced
        comment.


testsuite/
2005-12-08  Erik Edelmann  <eedelman@gcc.gnu.org>

        PR fortran/25292
        * gfortran.dg/associated_1.f90: New.



Added:
    trunk/gcc/testsuite/gfortran.dg/associated_1.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/check.c
    trunk/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/25292] ASSOCIATED( func() ) rejected ?

[eedelman at gcc dot gnu dot org]

------- Comment #3 from eedelman at gcc dot gnu dot org  2005-12-08 17:00 -------
Subject: Bug 25292

Author: eedelman
Date: Thu Dec  8 17:00:26 2005
New Revision: 108239

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=108239
Log:
fortran/
2005-12-08  Erik Edelmann  <eedelman@gcc.gnu.org>

        PR fortran/25292
        * check.c (gfc_check_associated): Allow function results
        as actual arguments to ASSOCIATED.  Moved a misplaced
        comment.


testsuite/
2005-12-08  Erik Edelmann  <eedelman@gcc.gnu.org>

        PR fortran/25292
        * gfortran.dg/associated_1.f90: New.


Added:
    branches/gcc-4_1-branch/gcc/testsuite/gfortran.dg/associated_1.f90
Modified:
    branches/gcc-4_1-branch/gcc/fortran/check.c
    branches/gcc-4_1-branch/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/25292] ASSOCIATED( func() ) rejected ?

[eedelman at gcc dot gnu dot org]

------- Comment #4 from eedelman at gcc dot gnu dot org  2005-12-08 17:04 -------
Subject: Bug 25292

Author: eedelman
Date: Thu Dec  8 17:04:54 2005
New Revision: 108241

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=108241
Log:
fortran/
2005-12-08  Erik Edelmann  <eedelman@gcc.gnu.org>

        PR fortran/25292
        * check.c (gfc_check_associated): Allow function results
        as actual arguments to ASSOCIATED.  Moved a misplaced
        comment.


testsuite/
2005-12-08  Erik Edelmann  <eedelman@gcc.gnu.org>

        PR fortran/25292
        * gfortran.dg/associated_1.f90: New.


Added:
    branches/gcc-4_0-branch/gcc/testsuite/gfortran.dg/associated_1.f90
Modified:
    branches/gcc-4_0-branch/gcc/fortran/ChangeLog
    branches/gcc-4_0-branch/gcc/fortran/check.c
    branches/gcc-4_0-branch/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/25292] ASSOCIATED( func() ) rejected ?

[eedelman at gcc dot gnu dot org]

------- Comment #5 from eedelman at gcc dot gnu dot org  2005-12-09 18:08 -------
Fixed on 4.0, 4.1 and mainline.


-- 

eedelman at gcc dot gnu dot org changed:

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


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

[Bug fortran/25292] ASSOCIATED( func() ) rejected ?

[pinskia at gcc dot gnu dot org]

-- 

pinskia at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |4.0.3


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