integer MAXPTS
PARAMETER (MAXPTS=10000000)
Logical*1,allocatable,dimension(:) :: bmp,bmpv
integer :: igds(5)=(/0,0,0,0,0/)
allocate(bmp(maxpts))
allocate(bmpv(maxpts))
bmp(1)=.false.
bmpv(1)=.true.
igds(2)=1
if ( ANY(bmp(1:igds(2)) .NEQV. bmpv(1:igds(2))) ) then
print*,"hello"
endif
end
gives:
demo.f:17.72:
end
1
Internal Error at (1):
demo.f:14.36:
if ( ANY(bmp(1:igds(2)) .NEQV. bmpv(1:igds(2))) ) then
1
Can't convert LOGICAL(1) to LOGICAL(1) at (1)
this is with
Using built-in specs.
Target: x86_64-unknown-linux-gnu
Configured with: /projects/tob/gcc/configure --enable-languages=c,fortran
--prefix=/projects/tob/gcc-trunk
Thread model: posix
gcc version 4.3.0 20080117 (experimental) [trunk revision 131592] (GCC)
--
Summary: Internal Error: Can't convert LOGICAL(1) to LOGICAL(1)
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: manfred99 at gmx dot ch
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34838