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