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