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