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.
