This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/25292] New: ASSOCIATED( func() ) rejected ?
- From: "jpr at csc dot fi" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 7 Dec 2005 09:43:39 -0000
- Subject: [Bug fortran/25292] New: ASSOCIATED( func() ) rejected ?
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
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