Re:

[Arjen Markus <arjen.markus895@gmail.com>]

I tried this with Intel Fortran and that accepts the code as well.
Variations in the code do not resolve the problem (different basic
type for arg, using dimension(:), without the nopass attribute).

I suggest you create a PR for this.

Regards,

Arjen

Op zo 26 jul. 2020 om 06:50 schreef Damian Rouson
<damian@sourceryinstitute.org>:
>
> I believe the gfortran error message below is incorrect.  Gfotran 8, 9 and
> 10 give the same message.  The code below compiles cleanly with the NAG
> Fortran compiler.
>
> Damian
>
> ± cat shape-mismatch.f90
> module foobar
>   type foo
>   contains
>     procedure, nopass :: bar
>   end type
>   interface
>     module subroutine bar(arg)
>       character(len=*) arg(:)
>     end subroutine
>   end interface
> contains
>   module procedure bar
>   end procedure
> end module
>
> ± gfortran -c shape-mismatch.f90
> shape-mismatch.f90:12:22:
>
>    12 |   module procedure bar
>       |                      1
> Error: Shape mismatch in argument 'arg' at (1)
>
> ± gfortran --version
> GNU Fortran (GCC) 10.1.0