Subversion Repositories openrisc_2011-10-31

! { dg-do compile }

!

! PR fortran/30940

program test

implicit none

interface

  subroutine foo(a)

     character(len=1),dimension(:) :: a

  end subroutine foo

  subroutine bar(a)

     character(len=1),dimension(:,:) :: a

  end subroutine bar

  subroutine foobar(a)

     character(len=1),dimension(4) :: a

  end subroutine foobar

  subroutine arr(a)

     character(len=1),dimension(1,2,1,2) :: a

  end subroutine arr

end interface

  character(len=2) :: len2

  character(len=4) :: len4

  len2 = '12'

  len4 = '1234'

  call foo(len2) ! { dg-warning "Rank mismatch in argument" }

  call foo("ca") ! { dg-warning "Rank mismatch in argument" }

  call bar("ca") ! { dg-warning "Rank mismatch in argument" }

  call foobar(len2) ! { dg-warning "contains too few elements" }

  call foobar(len4)

  call foobar("bar") ! { dg-warning "contains too few elements" }

  call foobar("bar33")

  call arr(len2) ! { dg-warning "contains too few elements" }

  call arr(len4)

  call arr("bar") ! { dg-warning "contains too few elements" }

  call arr("bar33")

end program test