gcc/testsuite/gfortran.dg/coarray_37.f90

   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