Program gcheck
  Real x(10)
  External sub
  Call sub(x,10)
  Print *,'FAIL',x
End Program
Subroutine sub(y,n) ! Different data type.
  Integer n,y(n)
  y = 42
End Subroutine