[Bug fortran/26822] Scalarization of non-elemental intrinsic: __logical_4_l4

[paulthomas2 at wanadoo dot fr]

------- 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