https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82258

--- Comment #8 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Could you try the following program:

      program try_lf0030
      call LF0030(10)
      end

      SUBROUTINE LF0030(nf10)
      INTEGER ILA1(7)
      INTEGER ILA2(7)
      LOGICAL LLA(:,:,:,:,:,:,:)
      INTEGER ICA(7)
      ALLOCATABLE LLA


      ALLOCATE (LLA(2:3, 4, 0:5,
     $          NF10:1, -2:7, -3:8,
     $          -4:9))

      ILA1 = LBOUND(LLA)
      ILA2 = UBOUND(LLA)
      print *,ila1
      print *,ila2

      END SUBROUTINE

and report its output?

On the machines I have access to, the output is

           2           1           0           1          -2          -3       
  -4
           3           4           5           0           7           8       
   9

Reply via email to