!=======================================================================
!   FILE: TEST38.F90
!   DATE: 22 April 2003
!
!   TEST: Inconsistent scalar/array subprogram mapping.
!
!   Contact: Vivek Rao
!=======================================================================
real function same(x)
implicit none
real :: x(1)
same = x(1)
end function same

program xtwice
implicit none
real, external :: same
print*,same(10.0)
print*,"Bug not caught!"
end program xtwice