1! { dg-do compile }
2! { dg-options "-fcoarray=single" }
3!
4      program cg
5        implicit none
6        integer reduce_recv_starts(2)[1,0:*]
7        interface
8          subroutine conj_grad (reduce_recv_starts) ! { dg-warning "Interface mismatch in global procedure 'conj_grad' at \\(1\\): Corank mismatch in argument 'reduce_recv_starts' \\(2/1\\)" }
9            integer   reduce_recv_starts(2)[2, 2:*]
10          end subroutine
11        end interface
12        call conj_grad (reduce_recv_starts) ! Corank mismatch is okay
13      end
14
15      subroutine conj_grad (reduce_recv_starts)
16        implicit none
17        integer reduce_recv_starts(2)[2:*]
18      end
19