------- Comment #1 from manfred99 at gmx dot ch  2008-01-17 22:45 -------
shorter version:
      Logical*1 :: bmp(1),bmpv(1)

      bmp(1)=.false.
      bmpv(1)=.true.

      if ( ANY(bmp(1:1) .NEQV. bmpv(1:1)) ) then
        print*,"hello"
      endif
      end


"Logical", "Logical*2" and "Logical*4" in variable definition work.

"Logical*1" breaks.


-- 


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

Reply via email to