gcc/testsuite/gfortran.dg/coarray_20.f90

   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 !
   9 integer :: A[*]
  10 call bar(A) ! { dg-error "Rank mismatch in argument" }
  11 contains
  12   subroutine bar(x)
  13     integer :: x(1)[*]
  14   end subroutine bar
  15 end