[Bug fortran/96843] New: gfortran rejects as shape mismatch rank one logical array arguments

[w.clodius at icloud dot com]

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

            Bug ID: 96843
           Summary: gfortran rejects as shape mismatch rank one logical
                    array arguments
           Product: gcc
           Version: 10.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: w.clodius at icloud dot com
  Target Milestone: ---

Created attachment 49153
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=49153&action=edit
A greatly reduced example of the rejected code.

I have a code with procedures with rank one logical array arguments with
INTENT(IN). They require an INTERFACE. gfortran 10.2 and 8.1 reject the
interface code with the message

gfortran -fmax-errors=10 test_shape_mismatch.f90
test_shape_mismatch.f90:56:60:

   56 |     pure module subroutine assign_log8_large( self, alogical )
      |                                                            1
Error: Shape mismatch in argument 'alogical' at (1)


As near as I can tell the shapes and other attributes of the argument lists
agree between the interface and the main procedure body.