Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-fwhole-file" }

! Tests the fix for PR26227 in which the interface mismatches

! below were not detected.

!

! Contributed by Andrew Pinski 

!

function a(b)

REAL ::b

b = 2.0

a = 1.0

end function

program gg

real :: h

character (5) :: chr = 'hello'

h = a(); ! { dg-warning "Missing actual argument" }

call test ([chr]) ! { dg-warning "Rank mismatch" }

end program gg

subroutine test (a)

  character (5) :: a

  if (a .ne. 'hello') call abort

end subroutine test