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