------- Comment #2 from paulthomas2 at wanadoo dot fr 2006-03-23 16:53 -------
Subject: Re: New: Scalarization of non-elemental intrinsic:
__logical_4_l4
Carsten,
Would you be so kind as to send me bessj.f90, please? My Numerical
Recipes is the F77 version!
I am not sure that I know how this message is being generated! With GNU
Fortran 95 (GCC) 4.2.0 20060322 (experimental)
logical(4) :: l(4), ls
integer(4) :: i(4), is
l = (/.TRUE., .FALSE., .TRUE., .FALSE./)
print *, transfer (l, i, 2)
ls = .TRUE.
print *, transfer (ls, i)
is = ls
print *, is
i = l
print *, i
end
Gives
In file pr26822.f90:10
is = ls
1
Warning: Extension: Conversion from LOGICAL(4) to INTEGER(4) at (1)
In file pr26822.f90:13
i = l
1
Warning: Extension: Conversion from LOGICAL(4) to INTEGER(4) at (1)
but runs correctly.
Thanks
Paul
>While PR 17298 fixed part of the OP to PR17298, for logical transfer statements
>the problem persists with 4.2.0 20060323
>
>----------------------------------------------------
>
>./numrec-f90> gfortran -v -c src/bessj.f90
>Es werden eingebaute Spezifikationen verwendet.
>Ziel: i686-pc-linux-gnu
>Konfiguriert mit: /opt/src/gcc/configure --prefix=/opt
>--enable-languages=c,c++,fortran --enable-checking --enable-cxa_atexit
>Thread-Modell: posix
>gcc-Version 4.2.0 20060323 (experimental)
>/opt/libexec/gcc/i686-pc-linux-gnu/4.2.0/f951 src/bessj.f90 -quiet -dumpbase
>bessj.f90 -mtune=generic -auxbase bessj -version -I
>/opt/lib/gcc/i686-pc-linux-gnu/4.2.0/finclude -o /tmp/ccQU67R0.s
>GNU F95 Version 4.2.0 20060323 (experimental) (i686-pc-linux-gnu)
> kompiliert von GNU-C-Version 4.2.0 20060323 (experimental).
>GGC-Heuristik: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
>src/bessj.f90: In Funktion »bessj_v«:
>src/bessj.f90:69: schwerwiegender Fehler: gfc_todo: Not Implemented:
>Scalarization of non-elemental intrinsic: __logical_4_l4
>Kompilierung beendet.
>
>
>
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26822
