1! { dg-do compile }
2! { dg-options "-fcoarray=single" }
3!
4! Before a bogus error (argument not simply contiguous)
5! was printed instead of the rank mismatch
6!
7! PR fortran/18918
8!
9integer :: A[*]
10call bar(A) ! { dg-error "Rank mismatch in argument" }
11contains
12  subroutine bar(x)
13    integer :: x(1)[*]
14  end subroutine bar
15end
16