------- Comment #1 from tkoenig at gcc dot gnu dot org 2008-01-04 11:19 -------
oops, seems we're still missing the relevant library functions
for kind=1 and kind=2, too:
$ cat any.f90
program main
logical(kind=1) :: f(2,2)
f = .false.
print *,any(f,dim=1)
print *,all(f,dim=1)
end program main
$ gfortran any.f90
/tmp/ccgpkOpB.o: In function `MAIN__':
any.f90:(.text+0xeb): undefined reference to `_gfortran_any_l1'
any.f90:(.text+0x1fb): undefined reference to `_gfortran_all_l1'
collect2: ld returned 1 exit status
--
tkoenig at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |tkoenig at gcc dot gnu dot
|dot org |org
Status|UNCONFIRMED |ASSIGNED
Ever Confirmed|0 |1
Keywords| |wrong-code
Last reconfirmed|0000-00-00 00:00:00 |2008-01-04 11:19:43
date| |
Summary|convert "any" and "all" to |any(kind=1) and all(kind=1)
|GFOR_POINTER_TO_L1 |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34671
