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

Reply via email to