[Bug debug/94284] New: [9/10 Regression] gcc: error: fort.f90: ‘-fcompare-debug’ failure (length) since r9-7156-g33579b59aaf02eb7

[marxin at gcc dot gnu.org]

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

            Bug ID: 94284
           Summary: [9/10 Regression] gcc: error: fort.f90:
                    ‘-fcompare-debug’ failure (length) since
                    r9-7156-g33579b59aaf02eb7
           Product: gcc
           Version: 10.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: debug
          Assignee: unassigned at gcc dot gnu.org
          Reporter: marxin at gcc dot gnu.org
                CC: law at gcc dot gnu.org
  Target Milestone: ---

I see following error:

$ cat fort.f90
module test
  type sometype
  end type
contains
  function dosomething(A)
    type(sometype)  A(:,:)
      allocatable    R(:)
    N = PRODUCT(UBOUND(A))
    allocate (R(N))
  end 
end 

$ gcc fort.f90 -fno-tree-dce -O3 -fcompare-debug -c
gcc: error: fort.f90: ‘-fcompare-debug’ failure (length)